Macro pour effacer un tbleau

[Fredo3003]

Bonsoir à tous,
Malgré tous mes efforts je ne parviens pas à formuler une Macro pour remettre à zéro des tableaux.
Voir ci-joint un modèle.
Merci de votre aide
Bien cordialement

 

[vbacrumble]

Re : Macro pour effacer un tbleau

Bonsoir


Voila une macro qui fait le le job

Sub effacer_tableau()
[tableau].ClearContents
End Sub

PS: et voici l'autre macro pour que la première fonctionne correctement.

Sub cree_nom_tableau()
Dim plage As Range
Set plage = Range("A3:AP6")
plage.Name = "tableau"
End Sub

Voici pièce jointe

A+

 

[Paritec]

Re : Macro pour effacer un tbleau

bonsoir Fredo le forum
ton fichier en retour
a+
Papou

 

[ChTi160]

Re : Macro pour effacer un tbleau

Salut Fredo3003
Bonsoir le fil
Bonsoir le Forum

Histoire de vous saluer , un condensé des deux Lol

Sub test()
[tableau].Value = 0 '[COLOR=DarkGreen]tableau étant le nom donné à la plage non contiguë 
"a3:u6" "w3: AP6 "[/COLOR]
End Sub

Bonne fin de Soirée

 

[Fredo3003]

Re : Macro pour effacer un tbleau

Après quelques tâtonnements de ma part ça fonctionne à présent.
Merci beaucoup et chapeau bas pour la rapidité de traitement
Cordialement