Couleur de remplissage

[Don Diego]

Salut

Bon, je suis pas un pro de VB, au contraire, j'ai juste eu besoin de faire une macro pour le boulot...et je suis coincé. c terrible, j'ai réussit a fiare tout ce que je voulais, et je bloque sur la couleur de remplissage de mes cellules.
En gros, j'ai une feuille de données, et pour chaque colonne de cette feuille, je récupère les informations réparti sur un dizaine de lignes. Et à un moment, je dois récupéré un code couleur. ca marche bien quand il y a une couleur, mais quand il n'y a pas de couleur de remplissage, il prend une couleur bleu pâle qu'il sort d'on ne sais où. Et j'arrive pas a savoir reconnaitre qd une cellule n'a pas de oculeur. Vous pouvez m'aider??
Voici mon code.

For i = 2 To 6 Step 1
couleur = 0
Sheets("Recap").Select //Recap est ma feuille de donnée//
ActiveSheet.Cells(Ligne, colonne).Select
If ActiveCell.Interior.ColorIndex = ColorIndexNone Then

Else
couleur = ActiveCell.Interior.ColorIndex
Sheets(Nom).Select // je crée une feuille par colonne de ma feuille recap et je lui donne le nom de la variable Nom//
ActiveSheet.Cells(i, 10).Select
ActiveCell.Interior.Color = couleur
End If

Ligne = Ligne + 1
Next i

 

[Pascal76]

Bonjour

ton test serait plutot celui-ci

If ActiveCell.Interior.ColorIndex = xlNone Then

ou même

If ActiveCell.Interior.ColorIndex <> xlNone Then
et tu retires le else qui ne sert plus

Bon courage

Pascal

 

[Don Diego]

Merci c bon ca marche!!
Ct tout bête!!
Merci pour tout, maintenant j'ai une petite macro qui tourne! Je viens de gagner ma croute et accessoirement 4 ou 5 jours de recopiage si je n'avais pas reussit a la faire!

Encore merci, salut