modififier mon code

maval

XLDnaute Barbatruc

• 23 Mai 2017

• #2

re,

oui peut être comme ceci

Code:

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

@+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 23 Mai 2017

• #3

Bonjour Max,

essaie ceci:

Code:

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

à+
Philippe

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 23 Mai 2017

• #4

Bonjour Philippe

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

@+
Max

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 23 Mai 2017

• #5

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

@+

Cliquez pour agrandir...

Bonjour,
Pourquoi sélectionner ?

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 23 Mai 2017

• #6

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("D5😀6000"), Range("K2"), Range("M2")).ClearContents

Je vous remercie d'avance

Max

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Mai 2017

• #7

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 23 Mai 2017

• #8

Bonsoir JC

Je te remercie et te souhaite une bonne soirée

Max

 

Vote positif 0 Vote négatif