RESOLU par sousou Effacer contenu des cellules

[castor30]

Bonjour à tous,
J'ai un champ nommé "SupSelect" =Visite!$E$2:$E$19
Je veux exécuter un ClearContents
Sub Supprime()
Sheets("Visite").Range("E2:E").ClearContents
End Sub
Mais ça ne fonctionne pas, je compte sur votre aide avisé.

 

[piga25]

Bonjour,
Peut être comme cela :

Sub Supprime()
Sheets("Visite").Range("E2:E19").ClearContents
End Sub

 

[sousou]

bonjour
si ton champs est nommé:
thisworkbook.names("supselect").referstorange.clearcontents

 

[castor30]

Bonjour piga25, sousou
sousou c'est exactement ce que je souhaitai
Est-il possible d'ajouter avant une condition : si A2 est différent de vide
Car je vais mettre le code en fin d'impression pour effacer la sélection
en vous remerciant

 

[sousou]

Bien sur
If a2<>"" then thisworkbook.........

 

[castor30]

Je te remercie et te souhaite une bonne journée