Ci-dessous, nous examinerons un programme qui parcourt une plage définie. Par exemple, lorsque nous voulons mettre au carré les nombres dans la plage (“D3: D7”). Saviez-vous que vous pouvez également parcourir une plage dynamique?
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes:
- Tout d’abord, nous déclarons deux objets Range. Nous appelons les objets Range rng et cell.
Dim rng As Range, cellule As Range
- Nous initialisons l’objet Range rng avec Range (“D4: D7”).
Set rng = Range ("D4: D7")
- Ajoutez la boucle For Each Next.
For Each cellule In rng Next cellule
Remarque: rng et cellule sont choisis au hasard ici, vous pouvez utiliser n’importe quel nom. N’oubliez pas de faire référence à ces noms dans le reste de votre code.
4. Ensuite, nous mettons au carré chaque cellule de cette plage. Pour ce faire, ajoutez la ligne de code suivante à la boucle:
cellule.Value = cellule.Value * cellule.Value
Résultat lorsque vous cliquez sur le bouton de commande sur la feuille:
5. Si vous souhaitez vérifier chaque cellule dans une plage sélectionnée au hasard, remplacez simplement:
Set rng = Range ("D4: D7")
avec
Set rng = Selection
