Détecter une cellule différence juste par sa couleur

[Laulo]

Bonjour,

Je cherche à détecter une cellule différence juste par sa couleur. (voir fichier joint)

Comment puis-je faire ??

Merci !

 

[phlaurent55]

Re : Détecter une cellule différence juste par sa couleur

Bonjour Laulo,

ton fichier en retour avec une solution par macro

à+
Philippe

 

[Laulo]

Re : Détecter une cellule différence juste par sa couleur

Cool ça marche merci !

Et si je souhaite mettre la cellule à droite de celle qui est différente de la même couleur ?

(J'aurai peut etre du le demander dès mon 1er message désolé)

 

[phlaurent55]

Re : Détecter une cellule différence juste par sa couleur

Re,

Et si je souhaite mettre la cellule à droite de celle qui est différente de la même couleur ?

Comment dois-je comprendre cette phrase ???
- déplacer la cellule coloriée vers la droite ??????
- colorier à l'identique la cellule qui se trouve à droite ??????
- autre interprétation ??????

à+
Philippe

 

[Laulo]

Re : Détecter une cellule différence juste par sa couleur

Je choisis la deuxième solution, "colorier à l'identique la cellule qui se trouve à droite" 😀

 

[phlaurent55]

Re : Détecter une cellule différence juste par sa couleur

Re,

avec ce code: (mais uniquement valable pour une seule cellule dans la zone noire)

Sub Bouton1_Clic()
Dim cellule As Range
For Each cellule In Range("A1:H19")
If cellule.Interior.Color <> 0 Then
cellule.Offset(0, 1).Interior.Color = cellule.Interior.Color
Exit Sub
End If
Next cellule
End Sub

à+
Philippe