Ci-dessous, nous examinerons un programme en Excel VBA ce met en surbrillance la ligne et la colonne de la cellule active (cellule sélectionnée). Ce programme étonnera et impressionnera votre patron.
Situation:
Chaque fois que nous modifions la cellule active sur Sheet1, une macro doit être exécutée. Vous pouvez y parvenir en créant un événement SelectionChange de feuille de calcul.
1. Ouvrez l'éditeur Visual Basic.
2. Double-cliquez sur Sheet1 (Sheet1) dans l'explorateur de projet.
3. Choisissez Feuille de calcul dans la liste déroulante de gauche. Choisissez SelectionChange dans la liste déroulante de droite.
Ajoutez les lignes de code suivantes à l'événement Worksheet SelectionChange :
4. Nous déclarons quatre variables de type Integer. Un nommé rowNumberValue, un nommé columnNumberValue, un nommé i et un nommé j.
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
5. Tout d'abord, nous ajoutons la ligne qui modifie la couleur d'arrière-plan de toutes les cellules en « Pas de remplissage ».
Cells.Interior.ColorIndex = 0
6. Nous initialisons la variable rowNumberValue avec le numéro de ligne de la cellule active et la variable columnNumberValue avec le numéro de colonne de la cellule active.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Nous mettons en évidence la colonne en bleu. C'est-à-dire : toutes les cellules avec un numéro de ligne inférieur ou égal à rowNumberValue et un numéro de colonne égal à columnNumberValue
Pour i = 1 à rowNumberValue
Cells(i, columnNumberValue).Interior.ColorIndex = 37
Ensuite je
Explication : pour cet exemple (voir image ci-dessus), rowNumberValue vaut 12 et columnNumberValue vaut 8. Les lignes de code entre For et Next seront exécutées douze fois. Pour i = 1, Excel VBA colore la cellule à l'intersection de la ligne 1 et de la colonne 8. Pour i = 2, Excel VBA colore la cellule à l'intersection de la ligne 2 et de la colonne 8, etc.
Remarque : au lieu du numéro 37 ColorIndex (bleu), vous pouvez utiliser n'importe quel numéro ColorIndex.
8. De la même manière, nous mettons en évidence la ligne en bleu. C'est-à-dire : toutes les cellules avec un numéro de ligne égal à rowNumberValue et un numéro de colonne inférieur ou égal à columnNumberValue.
Pour j = 1 à columnNumberValue
Cells(rowNumberValue, j).Interior.ColorIndex = 37
j suivant
9. Il est maintenant temps de tester le programme. Téléchargez le fichier Excel et voyez comment la ligne et la colonne de la cellule active sont mises en évidence chaque fois que vous modifiez la cellule active.
