Discussion :

[comme de bien entendu]

Bonjour,
Voulant détecter des lignes particulières à l'aide de la méthode .Find
en fonction de la couleur je tourne en rond.
Mon code marche pour une recherche de texte, mais pour la couleur pas moyen de trouver.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Columns("D:D").Select
With Range("D:D")
' je cherche cette couleur
Application.FindFormat.Interior.ColorIndex = 46
 
Set objcell = Selection.Find(What:="", SearchFormat:=True)
    If Not objcell Is Nothing Then
    reponse = objcell.Row
    firstAddress = objcell.Address
    Set objcell = Selection.FindNext(After:=ActiveCell)
    While Not objcell Is Nothing And objcell.Address <> firstAddress
            reponse = objcell.Row
            Set objcell = Selection.FindNext(After:=ActiveCell)
    Wend
End If

Merci d'avance de vos idées.

Bon week-end.

[laetitia]

bonjour comme de bien entendu le forum question ta couleur passe par MFC???

[comme de bien entendu]

Ben je souhaite reconnaitre la couleur orange dans les lignes de mon fichier Excel, pour conserver leur "référence".
J'ai utilisé l'enregistreur de macro pour obtenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.FindFormat.Interior.ColorIndex = 46

Merci de m'aider à trouver la formule adéquat.
Bon week-end.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Sub FindF(ByVal LastLig As Long) 'LastLig dernière ligne de la colonne D à contrôler
Dim Rng As Range, c As Range
Dim TabRow() As Long, k As Long, Tr As Long
 
Application.FindFormat.Interior.ColorIndex = 46
Set Rng = Range("D1:D" & LastLig)
Do
    Set c = Rng.Find("", LookAt:=xlPart, SearchFormat:=True)
    If Not c Is Nothing Then
        If c.Row = Tr Then Exit Do
        ReDim Preserve TabRow(k)
        TabRow(k) = c.Row
        k = k + 1
        Tr = c.Row
        Set Rng = Range("D" & c.Row & ":D" & LastLig)
    Else
        Exit Do
    End If
Loop
Set Rng = Nothing
Set c = Nothing
Application.FindFormat.Clear
'-----------------------------------------------------------------
'Dans TabRow on récuppère le n° des lignes dont la couleur est 46
If k > 0 Then
    For k = 0 To UBound(TabRow)
        Range("B" & k + 1) = TabRow(k)
    Next k
End If
End Sub

[comme de bien entendu]

Merci ca marche très bien.
Est ce que cela veut dire qu'il vaut mieux d'une manière générale se passer du FindNext où que l'on est plutôt dans un cas particulier ?
D'avance merci de vos lumières.