modififier mon code

maval · 23 Mai 2017

Bonjour,

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

Mon code

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 · 23 Mai 2017

re,

oui peut être comme ceci

Code:

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

@+

phlaurent55 · 23 Mai 2017

Bonjour Max,

essaie ceci:

Code:

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

à+
Philippe

maval · 23 Mai 2017

Bonjour Philippe

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

@+
Max

Jacky67 · 23 Mai 2017

maval à dit:
re,

oui peut être comme ceci

Code:

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

@+

Bonjour,
Pourquoi sélectionner ?

Code:

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

maval · 23 Mai 2017

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 · 23 Mai 2017

Bonjour à tous,
Salut Philippe,

Peux-tu essayer :

VB:

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

A+ à tous

maval · 23 Mai 2017

Bonsoir JC

Je te remercie et te souhaite une bonne soirée

Max

modififier mon code

maval

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

maval

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires