Boucle FOR EACH

[GGPS58]

Bonjour à tous,
J'ai une feuille dans laquelle j'ai des cellules de couleur.
Je voudrais que les cellules, en colonne et en rangée, siuées AVANT la cellule active se mettent dans une couleur différente (ici en bleu ciel Réf. 20)
J'ai donc fait une macro qui fonctionne bien (même si le code n'est sûrement pas très catholique)
Je souhaite maintenant enlever la couleur dans toute les cellules bleues ciel.

C'est a ce moment que j'ai un soucis avec la boucle "For Each ..."
Quelqu'un pourrait-il m'aider et me montrer où je me plante ?

Le fchier exemple est crée sous EXCEL 2007, mais j'utilise habituellement EXCEL 2003

D'avance merci de votre aide

 

[Compte Supprimé 979]

Re : Boucle FOR EACH

Bonjour GGPS58,

Le fchier exemple est crée sous EXCEL 2007, mais j'utilise habituellement EXCEL 2003

Tu est ici, sur le forum Excel 2003 et antérieur

Merci de bien vouloir enregistrer ton fichier sous le bon format !

Nous n'avons pas tous la version 2007 (biiirrkkk)
si tu veux que l'on puisse t'aider

A+

 

[GGPS58]

Re : Boucle FOR EACH

Oups ....
Le voici

 

[Compte Supprimé 979]

Re : Boucle FOR EACH

Salut

bonjour
veut tu un sac a vomir ?? 🙁

Yes s'il te plait, parce que là je ne peu plus ...

désolé, me retenir ....

😛😀

 

[Lii]

Re : Boucle FOR EACH

Bonsoir,

essaie de corriger ainsi :

For Each c In [B]ActiveSheet.UsedRange[/B]

 

[Compte Supprimé 979]

Re : Boucle FOR EACH

Merci à toi GGPS58,

Tu n'étais pas loin de la solution 😉

Dim c As Range
For Each c In [B][COLOR=blue]ActiveSheet[/COLOR][/B].UsedRange
If c.Interior.ColorIndex = 20 Then
       c.Interior.ColorIndex = xlNone 'Enlève la couleur
   End If
Next c

A+

Edit : oups, salut Lii

 

[GGPS58]

Re : Boucle FOR EACH

Merci à tous ...
Cela fonctionne.