Bonjour, il est possible d'effacer des cellules spécifiques lors de la réouverture d'un fichier Excel en utilisant la macro "Workbook_Open".
Voici comment procéder :
- Ouvrez votre fichier Excel et appuyez sur Alt + F11 pour ouvrir l'éditeur de Visual Basic.
- Dans l'éditeur, sélectionnez "ThisWorkbook" dans le menu déroulant "Project - VBAProject" en haut à gauche.
- Copiez-collez le code suivant dans la fenêtre de l'éditeur :
Private Sub Workbook_Open()
'Définissez les plages de cellules à effacer Dim rng1 As Range Set rng1 = Range("A1:C10")
'Effacez les cellules rng1.ClearContents
End Sub
- Remplacez "A1:C10" par les plages de cellules que vous souhaitez effacer. Vous pouvez en ajouter autant que vous le souhaitez en utilisant la syntaxe suivante :
Set rng2 = Range("D1:D10") rng2.ClearContents
- Enregistrez et fermez le fichier. Lorsque vous rouvrirez le fichier, les cellules spécifiées seront automatiquement effacées.
Note : si vous souhaitez effacer toutes les cellules d'un feuillet, vous pouvez utiliser la méthode "Clear" à la place de "ClearContents". Cela effacera également les formules et les formats de cellules.