R: augmentation da la valeur d'une cellule en cliquant

[AmD77BrG]

[b

]Bonjour
Je cherche un code vb sert à cliquer sur un bouton
Bon si la valeur de la cellule choisie B3 (le code vb en bas) est vide il va écrire le chiffre : 1
Si non il va écrire i+1 (incrémentation)
J’ai essayé comme mais je n’ai pas arrivé
Merci à vous[/b]

Sub Suivant_Cliquer()
Dim i As Integer
For i = 3 To 44
If Val(Feuil1.Cells(3, b)) = "" Then
Feuil1.Cells(c, i) = 1
Else
Feuil1.Cells(c, i) = i + 1
End If
Next
End Sub[/color]

[Banzai64]

Bonsoir

Peut-être comme ceci

Code: Tout sélectionner

Sub Suivant_Cliquer()
  Feuil1.Range("B3") = Feuil1.Range("B3") + 1
 End Sub
 

[AmD77BrG]

Bonsoir

Peut-être comme ceci

Code: Tout sélectionner

Sub Suivant_Cliquer()
  Feuil1.Range("B3") = Feuil1.Range("B3") + 1
 End Sub
 

Merci Bien
C’est magnifique

[AmD77BrG]

bonjour

je sais pas mais il donne souvet


erreur d'execution 424 - objet requis

y'a t'il une solution

[Banzai64]

Bonsoir

Un code si simple ne devrait pas le faire

Détermine exactement quand il te génère l'erreur afin que l'on puisse le reproduire

A suivre