supprimer des cellules qui ne continnent pas une valeur donnée

A

Abel

Guest

• 10 Mai 2004

• #2

Bonjour Diop, tous


Sub tets()
For each c in Selection
If c <> "X" Then c.ClearContents
Next c
End Sub

Tu sélectionnes la zone où tu veux appliquer la macro puis tu exécutes la macro.
Attention à la casse.

En espérant que ça te dépanne.

Abel

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 10 Mai 2004

• #3

Bonjour Diop, tous


Sub tets()
For each c in Selection
If c <> "X" Then c.ClearContents
Next c
End Sub

Tu sélectionnes la zone où tu veux appliquer la macro puis tu exécutes la macro.
Attention à la casse.

En espérant que ça te dépanne.

Abel

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 10 Mai 2004

• #4

Oups ! Pardon, j'ai ripé.

Abel

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 10 Mai 2004

• #5

Bonjour le forum
Bonjour Diop & Abel

Sans la sélection manuelle des cellules ce qui peut être fastidieux si la plage est étendue. Ne fonctionne pas sous XL97.
@ ++ Eric C

 

Pièces jointes

• Nettoyage_Des_Cells.zip

  9 KB · Affichages: 15

Vote positif 0 Vote négatif

A

Abel

Guest

• 10 Mai 2004

• #6

Eric C, tous

Allélouïa !

UsedRange

Je vais diviser par deux la plupart de mes macros !

Merci Eric C et @Thierry.

L'est vraiment trop bien ce forum (qui ne serait rien sans tout ceux qui y participent).

Abel

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 11 Mai 2004

• #7

Diop, Eric C, tous,

Ma première utilisation de UsedRange.
Peut sans doute mieux faire. Mais bon, ça marche.

Abel

 

Pièces jointes

• Diop1.zip

  5.6 KB · Affichages: 24

Vote positif 0 Vote négatif