Discussion :

[varik]

Bonjour tout le monde

je lance mon programme de recherche qui grace a la fonction FIND je dois effectuer des actions sur le champ souhaité ,sauf que le fonction FIND ne détecte pas les doublons .

comment faire pour que la fonction FINF cible tout les champs en double voir plus ??, car dans mon cas la fonction une fois qu'elle trouve un champs elle ne cherche pas s'il y a un doublons !!

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
Sub Findq(CIBLE, ligne, WBC)
Dim x As Variant
Dim Val As Range
 Application.ScreenUpdating = False
  Application.DisplayAlerts = False
 Set WBS = Workbooks.Open("C:\Documents\Desktop\recap.xls")
 With WBS
 Set Val = WBS.Sheets(2).Columns("A:A").Find(CIBLE, LookIn:=xlValues)
 If Not Val Is Nothing Then
               WBC.Worksheets(3).Range("C" & ligne) = WBS.Worksheets(2).Cells(Val.Row, 12).Value
      'WBC.Worksheets(3).Range("J" & ligne) = WBS.Worksheets(1).Cells(Val.Row, 6).Value
       Else
    'MsgBox  & CIBLE & " non trouvée dans la table de correspondance"
 End If
 End With
 WBS.Save
 WBS.Close
    Set WBS = Nothing
    Application.ScreenUpdating = True
End Sub

[AlphaScorpi]

Je ne l'ai pas testé mais cela devrait faire l'affaire.

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
31
32
Sub Findq(CIBLE, Ligne, WBC)
    Dim Val As Range
    Dim i As Long, k As Long
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set WBS = Workbooks.Open("C:\Documents\Desktop\recap.xls")
    With WBS.Worksheets(2)
        k = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set Val = .Range(.Cells(1, 1), .Cells(k, 1)).Find(CIBLE, LookIn:=xlValues)
        If Not Val Is Nothing Then
            i = Val.Row
                Do
                    WBC.Worksheets(3).Range("C" & Ligne) = .Cells(Val.Row, 12).Value
                    Ligne = Ligne + 1
                    If i = k Then GoTo 1
                    Set Val = .Range(.Cells(i, 1), .Cells(k, 1)).Find(CIBLE, LookIn:=xlValues)
                    If Val Is Nothing Then GoTo 1
                    If Val.Row = i Then GoTo 1
                    i = Val.Row
                Loop
        Else
            GoTo 1
        End If
    End With
1
    WBS.Save
    WBS.Close
    Set WBS = Nothing
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

[edelweisseric]

Bonsoir à tous

Voici le petit code que je regarde à chaque fois que je veux faire un "Find :

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
Sub recherche()
Dim c as range
Dim firstAddress As String
Dim ligne As Integer
Dim mavar as Integer
 
With Worksheets("Feuil1").Range("d:d")
 
mavar = "3"
    Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole) 
' Lookat:=xlwhole => recherche exacte, cad la cellule entière
' Lookat:=xlPart   => recherche dans la cellule n'importe où
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            'ce que tu veux faire      
            ligne = c.Row
            If Range("C" & c.Row) = "ABCD" Then
                 Range("C" & c.Row).Interior.ColorIndex = 6
                 MsgBox "Gagné ! "
            End If
            'fin de ce que tu veux faire
 
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
End Sub

Cela cherche TOUS les "mavar".
Tu n'as plus qu'à l'adapter
Eric

[varik]

Je vous remercie beaucoup de votre intervention tout les deux .
passer par paramétre d'adresses de cellules est la solution la plus approprié dans ce genre de situation .
trés instructif