RESOLU par sousou Effacer contenu des cellules

piga25

XLDnaute Barbatruc

• 6 Avril 2017

• #2

Bonjour,
Peut être comme cela :

Code:

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 6 Avril 2017

• #3

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

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 6 Avril 2017

• #4

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 6 Avril 2017

• #5

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

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 6 Avril 2017

• #6

Je te remercie et te souhaite une bonne journée

 

Vote positif 0 Vote négatif