boucle avec donnée incrémentée

[meldja]

Bonjour,
J'essaye de faire une petite macro pour attribuer une valeur à des cellules.
Les cellules en question sont en colonne C et espacées de 8 lignes (variable x)
Je voulais que la première cellule prenne la valeur "A1", la seconde "A2", etc..
J'ai tenté ça :

Private Sub CommandButton1_Click()
Dim x As Integer
Dim i As Integer
i = 1

For x = 1 To 3193 Step 8

    Range("C" & x).Value = "A" & i + 1

Next x

End Sub

Le problème, c'est avec la variable i.
Toutes les cellules prennent la valeur "A2". Je ne sais pas comment faire pour incrémenter "i", de façon à ce que la 1ère cellule (C1) prenne la valeur "A1", la seconde cellule (C9) prenne la valeur "A2" etc... jusqu'à "A400".

Merci d'avance et bonne soirée.

 

[Pierrot93]

Re : boucle avec donnée incrémentée

Bonsoir Meldja
essaye peut être ainsi :

Dim x As Integer
Dim i As Integer
i = 1
For x = 1 To 3193 Step 8
    Range("C" & x).Value = "A" & i
    i = i + 1
Next x

bonne soirée
@+

 

[Etienne2323]

Re : boucle avec donnée incrémentée

Salut meldja,
pour incrémenter, il faut faire

i = i + 1

Voici donc ton code modifié. À noter, si tu commences ton code avec i = 1, ta première valeur en C1 sera A2 et non A1. Il faut mettre i = 0 au départ.

Private Sub CommandButton1_Click()
Dim x As Integer
Dim i As Integer

i = 0

For x = 1 To 3193 Step 8

    Range("C" & x).Value = "A" & i + 1
    i = i + 1
Next x

End Sub

En te souhaitant une bonne fin de soirée !

Étienne

 

[meldja]

Re : boucle avec donnée incrémentée

Bonsoir,
Merci pour vos réponses, pour info, je venais juste de trouver une solution :

Private Sub CommandButton1_Click()
Dim x As Integer
Dim i As Integer

For x = 1 To 3193 Step 8
For i = 1 To i
    Range("C" & x).Value = "A" & i + 1
    Next i
Next x

End Sub

Mais je vais prendre vos solutions qui doivent sûrement être meilleures vu que je procède au pif par test.

Merci encore et bonne soirée