Essai de boucles
Bonjour à tous et bonne année 2014
J'aurais voulu que ma boucle commence en "A40" non pas avec la valeur "40" mais bien avec la valeur "1" et ainsi de suite jusque "A52" pour avoir la valeur de "12" en "A52" .
Alors que dois-je changer dans la boucle" Sub boucle_while_repetitif()"?
Ma question se trouve au niveau A40 dans le fichier joint.
Bonsoir,
Dim numero As Integer
Dim i As Integer
i = 0
numero = 40 'Numéro de départ (correspond ici au n° de ligne et au n° de numérotation)
While numero <= 52 'TANT QUE la variable numero est <= 52, la boucle est répétée
Cells(numero, 1) = i 'Numérotation
numero = numero + 1 'Le numéro est augmenté de 1 à chaque boucle
i = i + 1
Wend
End Sub
Bonne fête de fin d'année, cordialement.
Cagouman
Bingo super et encore merci.
Bonne et heurese fête à toi.
A l'année prochaine HI,HI