Ci-dessous, nous examinerons un programme qui boucle à travers une plage définie. Par exemple, lorsque nous voulons mettre les nombres au carré dans Range("A1:A3"). Saviez-vous que vous pouvez également parcourir une plage dynamique en boucle ?
Situation:
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :
1. Tout d'abord, nous déclarons deux objets Range. Nous appelons les objets Range rng et cell.
Dim rng As Range, cellule As Range
2. Nous initialisons l'objet Range rng avec Range("A1:A3").
Définir rng = Range("A1:A3")
3. Ajoutez la boucle For Each Next.
Pour chaque cellule dans rng
Cellule suivante
Remarque : rng et cell 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.Valeur = cellule.Valeur * cellule.Valeur
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 :
Définir rng = Range("A1:A3")
avec:
Définir rng = Sélection
6. Maintenant, par exemple, sélectionnez Range("A1:A2").
Résultat lorsque vous cliquez sur le bouton de commande sur la feuille :