Créer une macro sous excel

Résolu
perrus53 -  
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

  • Votes
  • Date
  • Date décroissante
  1. perrus53 Auteur
    Cela ne fonctionne pas, ca me met erreur d'execution 13, incompatibilité de type.
    1. kadeh
      mais ça est bien marché chez moi
      tu peux copier/coller ta macro ici ?
      @+
  2. eriiic Contributeur
    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
    2. perrus53 Auteur
      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?
      2. eriiic Contributeur
        ???
        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
        1. perrus53 Auteur
          Justement, je veut que quand A1=0, le compte ne se fasse pas. Je sais je suis chiant!!
          1. kadeh
            alors tu faix ça

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

            End Sub

            Bonne soirée
        2. perrus53 Auteur
          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!!
          1. kadeh
            désolé j'ai oublié (Sub inc())
            mais enfin tu résolue ton problème
            bonne chance , bonne soirée
        3. kadeh
          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