Macro pour cellules non contigues

Salut,
Commençons par la devise de Mike-31 sur ce forum : "Un problème sans solution est un problème mal posé (Einstei­n)"...
Ensuite, plusieurs étapes :
1- Créer la liste déroulante :
Dans la feuille Excel ou tu veux ta liste déroulante, créé d'abord les champs (par exemple en colonne F) avec dans la cellule voisine le numéro VBA correspondant à la couleur (en colonne G)
F_________G
Noir_______1
Rouge_____3
Orange____46
Vert_______50
Bleu_______33
Violet______13
Gris________2
Ensuite tu cliques sur A4, Données/validation
Autoriser choisir "liste" et source : =$F$1:$F$7 (par exemple)
OK voilà ta liste est créée.
2- Insérer le code au bon endroit pour que lorsque ta feuille change la couleur change dans les cellules concernées :
Clic droit sur l'onglet de la feuille et choisir "visualiser le code", Visual Basic s'ouvre.
copier coller ce code dans cette fenêtre :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim var As String
var = ActiveSheet.Columns(6).Cells.Find(Range("A4")).Offset(0, 1)
Set plage = ActiveSheet.Range("A5,A7,A9,A11:A12")
With plage.Interior
.ColorIndex = var
End With
Set plage = Nothing
End Sub
Explications :
Dim var As String : déclaration d'une variable nommée "var" comme étant une chaîne de caractère
var = ActiveSheet.Columns(6).Cells.Find(Range("A4")).Offset(0, 1) attribution d'une valeur à cette variable. Ici la valeur qu'on lui donne c'est : ActiveSheet [page active] Columns(6) [colonne F] .Cells.Find(Range("A4")) [recherche de la cellule ayant le même contenu que "A4"] .Offset(0, 1) [on prends la valeur contenue dans la cellule voisine, colonne de droite]
Set plage = ActiveSheet.Range("A5,A7,A9,A11:A12") définit la plage de cellules qui changera de couleurs
With plage.Interior
.ColorIndex = var attribue à la plage la couleur recherchée (var)
End With

Si tu souhaites plus d'explications n'hésite pas. En VBA le principal n'est pas le code lui même mais la démarche.

salut,
Je dois être mal réveillé car je ne comprends pas ce que tu souhaites réaliser...

Pourquoi pas? :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim var As String
var = ActiveSheet.Columns(28).Cells.Find(Range("F4")).Offset(0, 1)
Set plage = ActiveSheet.Range("F4")
With plage.Interior
.ColorIndex = var
End With
Set plage = Nothing
var = ActiveSheet.Columns(28).Cells.Find(Range("B4")).Offset(0, 1)
Set plage = ActiveSheet.Range("B4")
With plage.Interior
.ColorIndex = var
End With
Set plage = Nothing
End Sub
J'ai choisit B4 et F4...