Créer une macro sous excel

Résolu
perrus53 Messages postés 1024 Statut Membre -  
kadeh Messages postés 341 Statut Membre -
Bonjour,
Je souhaite créer une macro sous excel pour incrementer une case de 1 lorsque je clique sur un bouton.

Pouvez vous m'aider?
--
Google est votre ami, allez y faire un tour avant tout!!! 
Bonjour, merci, au revoir, tels sont nos seuls récompenses ici, ne l'oubliez pas!!!
Configuration: Windows Vista
Internet Explorer 7.0

8 réponses

  1.
    perrus53 Messages postés 1024 Statut Membre 223
     
    Cela ne fonctionne pas, ca me met erreur d'execution 13, incompatibilité de type.
    0
    1. kadeh Messages postés 341 Statut Membre 92
       
      mais ça est bien marché chez moi
      tu peux copier/coller ta macro ici ?
      @+
      0
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonsoir,

    essaie :
    Sub inc()
    [A1].value = [A1].value + 1
    end sub

    Tu peux aussi utiliser le contrôle compteur (menu 'affichage / barres d'outils... / formulaire').
    Dessiner le contrôle, clic-droit dessus et lier à une cellule dans 'format de contrôle...'

    eric
    0
  3. perrus53 Messages postés 1024 Statut Membre 223
     
    Bizarre, ca ne fonctionne que dans un classeur vide!!!
    0
  4. perrus53 Messages postés 1024 Statut Membre 223
     
    Bon la deuxieme (celle d'eric) fonctionne
    Mais je vous explique, quand j'appuie sur le bouton, j'aimerais que l'incrementation fonctionne si la case n'est pas vide uniquement, j'imagine qu'il doit y avoir une manip?
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    ???
    Ca fonctionne dans la feuille où tu as mis le code, qu'il soit vide ou non...
    N'oublie pas de mettre en résolu si tu pb est réglé stp
    Merci
    0
  7. perrus53 Messages postés 1024 Statut Membre 223
     
    Justement, je veut que quand A1=0, le compte ne se fasse pas. Je sais je suis chiant!!
    0
    1. kadeh Messages postés 341 Statut Membre 92
       
      alors tu faix ça

      If [A1].Value > 0 Then
      [A1].Value = [A1].Value + 1
      Else
      Exit Sub
      End If

      End Sub

      Bonne soirée
      0
  8. perrus53 Messages postés 1024 Statut Membre 223
     
    Sa marche nikel, mis a part que tu avait oublié Sub inc() au debut!!
    C'est marrant ce language de programmation ressemble beaucoup a celui des calculatrices!!
    Faut que je trouve ou l'apprendre, car il est pratique!!
    Post resolu!!
    0
    1. kadeh Messages postés 341 Statut Membre 92
       
      désolé j'ai oublié (Sub inc())
      mais enfin tu résolue ton problème
      bonne chance , bonne soirée
      0
  9. kadeh Messages postés 341 Statut Membre 92
     
    Bon soir
    tu affecte cette macro à ton bouton (clique droit sur bouton, affecter une macro)
    bien sur tu remplace A1 par la cellule que tu veux incrémenter

    Sub incrémentation()

    Dim x As String
    Range("A1").Select
    x = ActiveCell.Value
    ActiveCell.Value = x + 1

    End Sub

    Bonne soirée
    -1