incrémenter nom de variable

Bonjour,
Je souhaite faire une macro dans laquelle j'ai une variable qui comptabilise un nombre d'élèves dans un groupe.
Seulement, j'ai 6 groupes à faire.
J'aimerais bien incrémenter le nom de ma variable afin de ne pas enchaîner les boucles pour chaque groupe.

J'essaye donc un code tout simple pour m'approprier la méthode.
Le nom de variable à incrémenter est verif (pour avoir verif1, verif2, ... verifnbgpe)

Code:

---

1 2 3 4 5 6 7 8 9 10

dim nbgpe as integer dim verif() as integer   Sheets(1).Select nbgpe = Cells(6, 2).Value   For i = 1 To nbgpe verif(i) = 0   Next i

---

Ce code bug à la ligne verif(i) = 0

Pouvez-vous m'aider ?
Merci d'avance

Nans

Bonjour,

quand tu utilises un tableau, il faut le dimensionner à chaque fois que tu ajoutes des données
de plus, je te conseille de le déclarer en Variant

ensuite, ton tableau va commencer à l'indice 0, ce qui est peu pratique pour ton besoin
pour que le tableau commence à l'indice 1, il suffit d'indiquer en haut du module "Option Base 1"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Base 1   Sub Tableau() Dim NbGpe As Integer Dim Verif() As Variant   ' plutôt que de sélectionner la feuille NbGpe = Sheets(1).Cells(6, 2).Value   For i = 1 To NbGpe ' Redim pour redimentionner le tableau ' Preserve pour conserver les données déjà inscrites dans le tableau ReDim Preserve Verif(i) Verif(i) = 0 Next i   End Sub

---

Je ne sais pas si c'est voulu, mais dans ta boucle, tu ajoutes toujours le chiffre 0 dans ton tableau
si tu veux ajouter un numéro qui s'incrémente à chaque tour de boucle, tu peux faire

Code:

---

Verif(i) = i

---

EDIT : et au passage, puisque tu connais d'entrée de jeu le nombre d'éléments de ton tableau, qui sera le nombre "NbGpe") tu peux directement dimensionner ton tableau avec de réaliser ta boucle de remplissage

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Base 1   Sub Tableau() Dim NbGpe As Integer Dim Verif() As Variant   NbGpe = Sheets(1).Cells(6, 2).Value ReDim Verif(NbGpe)   For i = 1 To NbGpe Verif(i) = 0 Next i   End Sub

---

et une autre variante, sans utiliser de variable NbGpe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Base 1   Sub Tableau() Dim Verif() As Variant   ' on dimensionne le tableau en utilisant ' directement la valeur de ta cellule ReDim Verif(Sheets(1).Cells(6, 2).Value)   ' ubound donne l'élément le plus haut du tableau ' ce qui remplace le chiffre NbGpe For i = 1 To UBound(Verif) Verif(i) = 0 Next i   End Sub

---

Merci pour cette réponse, très rapide.
Je suis en train de tester.

Je vous tiens au courant.

PS : verif(i) = 0 car je veux mettre à 0 ces variables avant de lancer le comptage des élèves après attribution dans un groupe.

Merci encore

Bonjour,
J'ajouterais que si le tableau est typé comme un nombre (Integer, Long, etc.) il n'y a pas de raison d'initialiser avec une valeur nulle.
Chaque variable numérique déclarée vaut 0 par défaut, un string a une chaîne vide (""), un booléen vaut FALSE et un Variant est vide (donc val(Verif(i)) = 0)

ça marche impec !!

Merci à vous pour votre efficacité