Excel Code simple à corriger
Résolu
Bonjour,
J'aimerai créer un button qui incrémente 1 a une cellule j'ai utilisé ce code
Mais comme vous vous doutez, ça ne marche pas :'-( aidez moi SVP
J'ai pas l'habitude d'utiliser Excel...
Merci Pour vos réponses
J'aimerai créer un button qui incrémente 1 a une cellule j'ai utilisé ce code
Private Sub CommandButton1_Click()
D7 = D7 + 1
End Sub
Mais comme vous vous doutez, ça ne marche pas :'-( aidez moi SVP
J'ai pas l'habitude d'utiliser Excel...
Merci Pour vos réponses
3 réponses
-
il faut que sous excel tu affectes a ton bouton la macro que tu viens d'ecrire
A+ -
ContributeurBonjour Christian, Dandy
Sub incrementer()
Range("D7") = Range("D7") + 1
End Sub-
-
Salut déjà merci pour ton aide mais...
ça fonctionne pas. Je vais donner 2 ou 3 précsions.
J'aimerais créer un Button qui quand je presse il Incrémente 1 à la valeur de la case (par exemple D7 ) est ce que je dois faire encore une autre manipulation dans excel pour que mon bouton soit actif?
Ou est-ce que c'est le code qui manque qqch?
Merci pour vos lumières. -
Hello
Alors Michel la solution était un mélange de nos 2 codes
Private Sub CommandButton1_Click() Range("D7") = Range("D7") + 1 End Sub
Il me semble que "incrementer() " fait appel à une fonction et dans mon cas précis il fallait la fonction "CommandButton1_Click()"
Voilà
Merci pour tout à tous
A bientot
-
-
Tu dois avoir un problème de récursivité.
Tente dans le corps :
Dim iValeur As Integer
With ActiveSheet.Cells(4, 7)
iValeur = .Value
iValeur = iValeur + 1
.Value = iValeur
End With
