Syntaxe pour boucle FOR..NEXT

[GillesC]

Bonjour à tous.
Mon problème :
J'ai 3 variables :
Cpt1=0
Cpt2=0
Cpt3=0
Je fais ma boucle pour que ces variables s'enrichissent suivant un certain critère :
For i = 1 to 3
If ActiveCell.value= i then
Cpt & i = (Cpt & i) + 1
end if
NEXT
Mon problème : Excel refuse "Cpt & i = (Cpt & i) + 1"
Quelle syntaxe employer SVP?
Merci

 

[Hervé]

Re : Syntaxe pour boucle FOR..NEXT

bonjour

il faut que tu passes par un tableau de variables, comme ceci :

Dim cpt(1 To 3)
Dim i As Byte

For i = 1 To 3
    If ActiveCell.Value = i Then
        cpt(i) = cpt(i) + 1
    End If
Next i

salut

 

[GillesC]

Re : Syntaxe pour boucle FOR..NEXT

Impeccable! Merci beaucoup Hervé !

 

[myDearFriend!]

Re : Syntaxe pour boucle FOR..NEXT

Bonsoir GillesC, Hervé,

Je me permets d'ajouter qu'on peut aussi définir le type de tableau déclaré si on veut optimiser au mieux les ressources utilisées par la macro et éviter ainsi l'utilisation du type Variant, gros consommateur de ressources... pour un simple comptage.
Suivant le nombre maxi qu'on peut espérer obtenir de ces compteurs :

Jusqu'à 255 maxi
Dim cpt(1 To 3) As Byte

ou jusqu 'à 32 767 maxi
Dim cpt(1 To 3) As Integer

ou au delà (2 147 483 647 maxi)
Dim cpt(1 To 3) As Long

Cordialement,