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,