VBA Macro

Résolu/Fermé

Zeni - Modifié le 15 juil. 2021 à 22:25
Zeni - 18 juil. 2021 à 07:38

Bonjour,

J'ai fait une petite macro :

Sub Clear()

Range("B10").Select
Selection.ClearContents
Range("D10:S10").Select
Selection.ClearContents
Range("U10:AA10").Select
Selection.ClearContents
Range("AC10").Select
Selection.ClearContents

End Sub

Serait-il possible qu'elle s'active en feuil6 lorsqu'on ferme le fichier excel ?

Merci beaucoup pour vos réponses. :-)

Configuration: Windows / Edge 91.0.864.67

A voir également:

VBA Macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Incompatibilité de type vba ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
16 juil. 2021 à 08:24

Bonjour,
macro à placer dans le ThisWorbook du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Sheets("Feuil6").Range("B10,D10:S10,U10:AA10,AC10").ClearContents
End Sub

Zeni
Modifié le 16 juil. 2021 à 21:18

Bonjour,

Navrée pour le retard de ma réponse :-). Merci beaucoup ça fonctionne. :-D

Zeni
17 juil. 2021 à 10:35

Bonjour M-12

Et si je voulais rajouter B15, E15:G15, B17:B25, D18:E24, E30 ? :-)

Réponse 2 / 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
17 juil. 2021 à 10:43

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil6").Range("B10,D10:S10,U10:AA10,AC10,B15, E15:G15, B17:B25, D18:E24, E30").ClearContents
End Sub

Zeni
17 juil. 2021 à 11:01

Merci, j ai essayé de le faire de cette manière hier mais j ai dû mal faire qqch, je vais réessayer :-)

Zeni
18 juil. 2021 à 07:38

Superbe, ça fonctionne. Merciiiii :-)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters