Excel Code simple à corriger

Résolu
Christian Worker -  
 Christian Worker -
Bonjour,

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
A voir également:

3 réponses

Réponse 1 / 3
dandypunk Messages postés 832 Date d'inscription   Statut Membre Dernière intervention   83
 
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
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour Christian, Dandy

Sub incrementer()
Range("D7") = Range("D7") + 1
End Sub
0
dandypunk Messages postés 832 Date d'inscription   Statut Membre Dernière intervention   83
 
Exact c'est plus simple, j'avais oublié Range
0
Christian Worker
 
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.
0
Christian Worker
 
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
0
Réponse 3 / 3
nogaret Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   23
 
il faut que sous excel tu affectes a ton bouton la macro que tu viens d'ecrire
A+
0