Bonjour à toutes et à tous,
Je vous espère en bonne santé et sans être atteints de ce P..... de virus 😉
Je bute sur un codage que je ne parviens pas à faire malgré tous mes tests et recherches 😡
le but est d'atteindre (donc de sélectionner), en bouclant sur col A, la cellule qui est en rouge (couleur de fond).
J'ai fait ce code qui s'en approche le plus :
Mais il me sélectionne toute la colonne !
Je joins un fichier test.
Auriez-vous la solution ?
Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
lionel,
Je vous espère en bonne santé et sans être atteints de ce P..... de virus 😉
Je bute sur un codage que je ne parviens pas à faire malgré tous mes tests et recherches 😡
le but est d'atteindre (donc de sélectionner), en bouclant sur col A, la cellule qui est en rouge (couleur de fond).
J'ai fait ce code qui s'en approche le plus :
VB:
Sub test3()
For i = 1 To 50
Dim r As Range: Set r = Range([a1], Cells(Rows.Count, "a").End(1))
If (Range("a" & i).Interior.Color = RGB(255, 0, 0)) Then
r.Select
Exit Sub
End If
Next
End Sub
Je joins un fichier test.
Auriez-vous la solution ?
Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
lionel,