Discussion :

[SRVnans]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SRVnans]

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

[Philippe Tulliez]

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)

[SRVnans]

ça marche impec !!

Merci à vous pour votre efficacité