Problème d'exécution

À l'ouverture du fichier je veux que le contenu d'une cellule soit incrémenter de 1 et je veux aussi effacer des valeurs dans certaines cellules. Voici mon conde:

Private Sub CommandButton1_Click()

Sheets("Contrat").Range("G3") = Sheets("Contrat").Range("G3") + 1

Sheets("Contrat").Range("B8:B12").ClearContents

End Sub

La première ligne de code s'exécute mais pas l'autre. Quelqu'un a-t-il une explication?

Salutations.

Pourtant la syntaxe est correct

peux-tu joindre ton fichier

Je vais joindre mon fichier.

Salutations.

Premièrement si ta macro est CommandButton1_Click()

tu dois avoir un bouton nommer: CommandButton1 ! c'est logique

Sinon tu peux l'appeller autrement puis l'activer d'une autre facon!

Ci-Joint un exemple

J'ai enlevé le bouton. Comment puis-je activer la macro à l'ouverrture du fichier?

Zone grise pour moi.

Salutations.

J'ai trouvé la solution. Comment marquer ma question résolue?

Salutations.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Contrat").Activate
Range("G3").Value = Range("G3").Value + 1
Range("B8:B12").Select
   Selection.ClearContents
Range("B8").Select
End Sub

Ajoute ceci dans le code VBA de ton classeur ( Pas la feuil1 ni un module )