modififier mon code

[maval]

Bonjour,

J'ai fait un code pour effacer certaines cellules qui fonctionne mais cela n'est pas très propre !

Mon code

Sub effacer()
Range("a6:a6000").ClearContents
Range("d5:d6000").ClearContents
[K2].ClearContents
[M2].ClearContents
End Sub

Si vous pouvez me donner une idée

Je vous remercie d'avance
Cordialement

Max

 

[maval]

re,

oui peut être comme ceci

Sub effacer()
Range("A6:A6000, D5:D6000, K2, M2").Select
Selection.ClearContents
Range("E5").Select
End Sub

@+

 

[phlaurent55]

Bonjour Max,

essaie ceci:

Application.Union(Range("A6:A6000"), Range("D5:D6000"), Range("K2"), Range("M2")).ClearContents

à+
Philippe

 

[maval]

Bonjour Philippe

Oui beaucoup plus pro
Je te remercie et te souhaite une bonne après midi

@+
Max

 

[Jacky67]

re,

oui peut être comme ceci

Sub effacer()
Range("A6:A6000, D5:D6000, K2, M2").Select
Selection.ClearContents
Range("E5").Select
End Sub

@+

Bonjour,
Pourquoi sélectionner ?

Range("a6:a6000, d5:d6000, k2, m2").ClearContents

 

[maval]

Bonjour

Suite au code de phlaurent55 que je remercie au passage est-il possible que lorsque sa efface les cellules "K2 et M2" mette un texte à la place ex:"texte" sur une et mots sur l'autre.

Application.Union(Range("A6:A6000"), Range("D56000"), Range("K2"), Range("M2")).ClearContents

Je vous remercie d'avance

Max

 

[JCGL]

Bonjour à tous,
Salut Philippe,

Peux-tu essayer :

Application.Union(Range("A6:A6000"), Range("D5:D6000"), Range("K2"), Range("M2")).ClearContents
Range("K2")="Texte"
Range("M2")="Mots"

A+ à tous

 

[maval]

Bonsoir JC

Je te remercie et te souhaite une bonne soirée

Max