JulienB
XLDnaute Junior
Bonjour le forum,
Comment via VBA changer un numéro défini en couleur ?
Je veux dire par là que en B5 j'ai le chiffre "3" qui correspond en couleur de remplissage à "vert", donc la cellule B5 doit etre verte idem pour les chiffres de 1 à 5.
Il faut en plus pour compliquer la donne, l'integrer dans le code ci dessus.
".Value = couleur" affiche le chiffre 3...
Merci pour votre aide !!
Comment via VBA changer un numéro défini en couleur ?
Je veux dire par là que en B5 j'ai le chiffre "3" qui correspond en couleur de remplissage à "vert", donc la cellule B5 doit etre verte idem pour les chiffres de 1 à 5.
Il faut en plus pour compliquer la donne, l'integrer dans le code ci dessus.
Code:
Sub MaJ()
nn = Sheets("Feuil1").Range("A65536").End(xlUp).Row
For n = 2 To nn
nom = Sheets("Feuil1").Cells(n, 1)
groupe = Sheets("Feuil1").Cells(n, 2)
couleur = Sheets("Feuil1").Cells(n, 3)
Select Case groupe
Case Is = "Groupe1"
c = "B65536"
cc = 2
ccc = 3
Case Is = "Corporate Banking & Structured Finance IT (CBF)"
c = "K65536"
cc = 11
ccc = 12
Case Is = "Groupe3"
c = "H65536"
cc = 8
ccc = 9
Case Is = "Equity Derivatives IT (EDI)"
c = "E65536"
cc = 5
ccc = 6
End Select
d = Sheets("Feuil2").Range(c).End(xlUp).Row + 1
Sheets("Feuil2").Cells(d, cc).Value = nom
Sheets("Feuil2").Cells(d, ccc).Value = couleur
Next
End Sub
".Value = couleur" affiche le chiffre 3...
Merci pour votre aide !!