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 :
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
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,
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
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.
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
>•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 ?
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é]