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

3 réponses

  1. dandypunk Messages postés 838 Statut Membre 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
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour Christian, Dandy

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