Vba Trouver cell rsi ouge et renvoi

[Marc_du_78]

Un grand bonjour (ou bonsoir) à chacun, chacune, que je suis heureux de retrouver. Merci David.

Je suis a la recherche d'une macro qui balaierai la plage B3:H30 (par ligne) et détecterai LA cellule (remplissage rouge 'par MFC') et, l'ayant trouvée, inscrirait la valeur '1' dans le champ 'I' en regard de la ligne ou se trouve cette cellule rouge. C'est à dire balayant de B3:H3 jusque H3:H30 ligne par ligne.
En prévoyant une sortie si aucune cellule ne remplie la condition qui est d'être rouge (couleur de fond).
En vous en remerciant par avance.

 

[justine]

bonsoir le forum, marc_du_48

j'ai resolu ton petit probleme

Sub Bouton1_QuandClic()
For i = 3 To 30
For j = 2 To 8
If Cells(i, j).Interior.ColorIndex = 3 Then
Cells(i, 9) = 1
End If
Next
Next


End Sub

desolee, je t'envoie la solution comme ca car je n'arrive pas a joindre un fichier

 

[Marc_du_78]

Un grand merci à toi justine et passe une agréable soirée. a+

 

[Marc_du_78]

Bonjour les amis(es)

Comment adapter cette macro de justine pour qu'il n'y ait pas de bouton et qu'elle s'active lorsque la cellule passe en rouge

Sub Bouton1_QuandClic()
For i = 3 To 30
For j = 2 To 8
If Cells(i, j).Interior.ColorIndex = 3 Then
Cells(i, 9) = 1
End If
Next
Next
End Sub

en vous remerciant

 

[Marc_du_78]

Bonjour amis(es) du Forum,
Dois-je en conclure que ce n'est pas réalisable?
Merci à tous ceux et celles qui m'auront lu.
Bon après midi pour ce dimanche ensoleillé.