Boucle FOR EACH

C

Compte Supprimé 979

Guest

• 10 Octobre 2009

• #2

Re : Boucle FOR EACH

Bonjour GGPS58,

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

GGPS58

XLDnaute Occasionnel

• 10 Octobre 2009

• #3

Re : Boucle FOR EACH

Oups ....
Le voici

 

Pièces jointes

• ENLEVERCOULEUR.xls

  37.5 KB · Affichages: 37

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 10 Octobre 2009

• #4

Re : Boucle FOR EACH

Salut

carcharodon-carcharias à dit:

bonjour
veut tu un sac a vomir ?? 🙁

Cliquez pour agrandir...

Yes s'il te plait, parce que là je ne peu plus ...
désolé, me retenir ....

😛😀

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 10 Octobre 2009

• #5

Re : Boucle FOR EACH

Bonsoir,

essaie de corriger ainsi :

Code:

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 10 Octobre 2009

• #6

Re : Boucle FOR EACH

Merci à toi GGPS58,

Tu n'étais pas loin de la solution 😉

Code:

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

 

Vote positif 0 Vote négatif

GGPS58

XLDnaute Occasionnel

• 10 Octobre 2009

• #7

Re : Boucle FOR EACH

Merci à tous ...
Cela fonctionne.

 

Vote positif 0 Vote négatif