Microsoft 365 boucle atteindre ligne selon couleur cellule a

[Usine à gaz]

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 :

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

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,

 

[Robert]

Bonjour Arthour, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim CEL As Range

Set O = Worksheets("Feuil1")
Set PL = O.Range("A1").CurrentRegion
For Each CEL In PL
    If CEL.Interior.Color = RGB(255,  0,  0) Then CEL.Select: Exit Sub
Next CEL
End Sub

 

[Usine à gaz]

Bonjour Robert,
Merci pour ton code
Je teste et je reviens,
lionel,

 

[Robert]

Re,

À tout de suite...

 

[Usine à gaz]

Merci Robert, c'est nickel
lionel,

 

[Hasco]

Bonjour,

Votre macro corrigée:

Sub test3()
    Dim c As Range
    Dim r As Range: Set r = Range([a1], Cells(Rows.Count, "a").End(xlUp))
    '
    For Each c In r
        If c.Interior.Color = RGB(255,  0,  0) Then Exit For
    Next
    If Not c Is Nothing Then c.Select
End Sub

Pas utile de définir 50 fois r et End(1) et End(xlUp) sont différents.

Cordialement

Bonjour @Robert

 

[Usine à gaz]

Bonjour Roblochon,
Merci à vous aussi
lionel,

 

[Staple1600]

Bonjour le fil, arthour973, Robert, Roblochon

>•arthour973
Tiens, comme une odeur de gaz

Sub Pourquoi_du_VBA_Quand_CTRL_F_suffit()
Dim WTF As Range
Application.FindFormat.Interior.Color =255
Set WTF = [A1:A50].Find("", SearchDirection:=xlPrevious, SearchFormat:=True)
MsgBox WTF.Address
End Sub

PS: Test OK

 

[Usine à gaz]

Bonjour JM,
Merci pour ton code.
J'ai mon masque à gaz lol,
lionel,

 

[Staple1600]

Re

>•arthour973
Pas besoin de code, d'où le nom de ma macro...
Excel sait faire tout seul
1) Selection de la colonne avec la cellule rouge
Puis faire
CTRL+F
ALT+F
CTRL+TAB (5 fois de suite)
Clic-gauche sur rouge (ou tout autre couleur de son choix)
ALT+H
ENTER

VBA ne sait pas faire plus simple et plus complet et ergonomique, non ?

 

[Usine à gaz]

Merci JM
Mais ça, je savais déjà.
Il me fallait un code pour l'inclure dans l'un de mes codes dans ma z'usine à gaz.

 

[Staple1600]

Re

•>arthour973

Bonjour à toutes et à tous,
Je bute sur un codage que je ne parviens pas à faire malgré tous mes tests et recherches

Que tu le saches, tu ne l'as point précisé...
Et si tu le savais, pourquoi ne pas avoir pondu un code du type de celui que j'ai posté dans le message#10) ?
(Tu as pourtant fait de nombreux tests et recherches si on en croit le message#1... )

[aparté]
Encore une fois, tu n'es pas le seul lecteur de tes fils.
Quand je réponds à une question, je ne pense pas au seul bénéfice du demandeur, mais à celui de tous les lecteurs potentiels du fil.
[/aparté]

 

[Usine à gaz]

Re-JM,
je n'y avais pas pensé sur le moment tout simplement