D
Don Diego
Guest
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
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