Selectionner des cellules selon la couleur

Bonjour,

http://cjoint.com/?gytGpynq85

Selectionner le champ puis macro:

Sub razcoul()
For Each c In Selection
If c.Interior.ColorIndex = 3 Then c.Value = Empty ' rouge
Next c
End Sub

Selectionner le champ puis macro:

Sub razcoul()
Set x = Application.InputBox("cliquer sur une cellule avec la couleur
à effacer", Type:=8)
For Each c In Selection
If c.Interior.ColorIndex = x.Interior.ColorIndex Then c.Value =
Empty
Next c
End Sub

Cordialement JB

Bonjour,
J'ai une feuille excel avec des cellules vertes (données entrées par
l'utilisateur), je voudrais pouvoir les sélectionner toutes pour ensuite
effacer le contenu de ces cellules dans le but d'entrer de nouvelles
données. Ces cellules ne sont pas contigues.

Merci
Claire

Merci beaucoup, ça marche.

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1151170371.928277.91390@c74g2000cwc.googlegroups.com...
Bonjour,

http://cjoint.com/?gytGpynq85

Selectionner le champ puis macro:

Sub razcoul()
For Each c In Selection
If c.Interior.ColorIndex = 3 Then c.Value = Empty ' rouge
Next c
End Sub

Selectionner le champ puis macro:

Sub razcoul()
Set x = Application.InputBox("cliquer sur une cellule avec la couleur
à effacer", Type:=8)
For Each c In Selection
If c.Interior.ColorIndex = x.Interior.ColorIndex Then c.Value Empty
Next c
End Sub

Cordialement JB

Bonjour,
J'ai une feuille excel avec des cellules vertes (données entrées par
l'utilisateur), je voudrais pouvoir les sélectionner toutes pour ensuite
effacer le contenu de ces cellules dans le but d'entrer de nouvelles
données. Ces cellules ne sont pas contigues.

Merci
Claire