Syntaxe pour boucle FOR..NEXT

GillesC · 17 Novembre 2006

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é · 17 Novembre 2006

Re : Syntaxe pour boucle FOR..NEXT

bonjour

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

Code:

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 · 17 Novembre 2006

Re : Syntaxe pour boucle FOR..NEXT

Impeccable! Merci beaucoup Hervé !

myDearFriend! · 17 Novembre 2006

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,

Syntaxe pour boucle FOR..NEXT

GillesC

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

GillesC

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Syntaxe pour boucle FOR..NEXT

GillesC

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

GillesC

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency