Change de chiffre tout seul

Bonjour,

Comment fait-on pour mettre dans le ThisWorkbook

Merci

Bonjour,

Je voudrais savoir s'il était possible qu'un chiffre change tout seul quand on ferme excel.

Exemple : J'ouvre ma feuille et dans A1 j'ai 23.

Je veux que quand je ferme excel et je le réouvre il me mette dans A1 le chiffre 24.

Par avance merci

3 réponses

  1. Modérateur
    Bonjour,

    C'est possible avec une macro. On peut la faire soit à la fermeture soit à l'ouverture.

    Si on le fait à la fermeture, il faudra obligatoire un enregistrement pour que ça fonctionne.
    Le mieux est peut être de le faire à l'ouverture.

    Tu mets cette macro dans ThisWorkbook :

    Private Sub Workbook_Open()
    Dim c As Range
    Set c = Sheets("feuil3").Range("A1")
    c.Value = c.Value + 1
    End Sub


    Si tu préfères à la fermeture :

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim c As Range
    Set c = Sheets("feuil3").Range("A1")
    c.Value = c.Value + 1
    ActiveWorkbook.Save
    
    End Sub


    m@rina
    2
    1. Comment faire pour mettre dans le ThisWorkbook

      Merci
      0
    2. Modérateur
      Bonsoir,
      Tu fais Alt+F11 pour afficher le VBE.
      Dans la liste à gauche, tu trouveras ThisWorkbook, tu double cliques, et tu colles le code dans la fenêtre à droite.

      m@rina
      0
    3. Merci
      Mais en fait je n'ai jamais fait cela et donc aprés je fais quoi.

      Merci
      0
    4. Modérateur
      Après tu ne fais rien ! :)
      La macro agira toute seule.
      Il suffit de tester : tu ouvres, tu fermes, tu ouvres...
      0
    5. Cela ne fonctionne pas

      Je copie l'une ou l'autre je ferme le visual basic
      Puis je ferme mon classeur excel
      et quand je l'ouvre a nouveau rien a changé
      0
  2. Modérateur
    Vérifie que tes macros sont activées. Quelle version as-tu ?
    0
    1. Mes macro sont ouverts et je suis sur excel 2003
      0
      1. Modérateur
        ça veut dire quoi "ouverts" ?
        Vérifie : Outils, Macro, Sécurité et tu règles sur Moyen.
        Tu fermes Excel et tu relances.
        0