Discussion :

[skorpio]

bonjour,

je vais essayé d'être plus clair

En fait je souhaiterai en clicant sur mon commandButton de mon UserForm
incrémenter une valeur d'une cellule.
Par exemple si j'ai dans la cellule A1 la valeur 15, je souhaiterai que en cliquant sur le CommandButton en question qui est une valeur qui aparaisse en A2 ici se serai la valeur 16 et ainsi de suite...

dans la cellule A3 aparaitrai 17
A4 18
A5 19
. .
. .

J'espère que cette fois j'ai été clair....

[Xtof68]

En fait je souhaiterai en clicant sur mon commandButton de mon UserForm
incrémenter une valeur d'une cellule.

Si je comprends bien, tu ne souhaites pas que la valeur soit incrémentée en A1, et qu'elle change à chaque clic, mais plutôt que les valeurs successives apparaissent dans les cellules suivantes.
Genre : valeur d'origine en A1 = 15
un clic --> apparition de "16" en A2
clic suivant --> "17" en A3
clic suivant --> "18" en A4


Correct ?

[skorpio]

exactement

[ilcocodrillo]

th fais comme ça par exemple c'est pour la première valeur en A15 sinon ça marchera pas bien sur....

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
I = 15
 
Do While Sheets("feuil1").Cells(I, 1) <> ""
I = I + 1
Loop
 
Sheets("feuil1").Cells(I, 1).Value = Sheets("feuil1").Cells(I - 1, 1).Value + 1
End Sub

[skorpio]

merci beaucoup c'est parfait

[ilcocodrillo]

oups il manque un .value.

Code :

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

Do While Sheets("feuil1").Cells(I, 1).value <> ""

n'oublie pas le si c'est ok