Discussion :

[DoctaSpock]

Bonjour à tous,

Voilà mon petit problème, je fait actuellement une recherche avec l'outil FIND sur vba, mais lorsque la recherche se fait il ne me copie que la première valeurs égale à ma recherche et je voudrais qu'il me copie toutes les valeurs égale à ma recherche, un petit casse-tête pour moi, quelqu'un pourrait-il m'aider à me dépatouiller de cette situation? =D

Voilà mon début de code :

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
Sub RechercheTout()
 
 
Sheets("Sheet1").Select
 
Dim Valeur As String
Dim CellTrouvee As Range
 
Valeur = Application.InputBox("Quel Client recherchez-vous ?", "RECHERCHER")
If Valeur = "" Then Exit Sub
Set CellTrouvee = Range("S:S").Find(Valeur, Range("S1"), xlValues, xlWhole, xlByRows, xlNext)
If CellTrouvee Is Nothing Then
    MsgBox "Client non répertorié!"
Else
        If Find = Range("S:S").Find(Value) Then
            Sheets("Résultat de la recherche").Range("A3").EntireRow.ClearContents
            CellTrouvee.EntireRow.Select
            Selection.Copy
            Sheets("Résultat de la recherche").Range("A3").PasteSpecial
            Application.CutCopyMode = False
            Sheets("Résultat de la recherche").Activate
 
        End If
    MsgBox "Client Trouvé"
End If
End Sub

Merci pour votre aide,

[Marc-L]

Bonjour,

comme indiqué dans l'aide de cette méthode, c'est tout à fait normal !
Et consulter l'exemple de cette aide pour voir comment afficher les autres correspondances …

Maintenant il y a bien mieux dans ce cas : un filtre avancé !
Astuce : se placer sur la feuille de destination avant d'appeler le filtre avancé …
En activant le Générateur de macros puis en effectuant la manipulation, une base de code est livrée sur un plateau !
Sans compter le tutoriel dédié de ce site …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[gnain]

Bonjour,
Voilà votre sub modifié si vous ne voulez pas passer par les filtres ou filtres avancés.
mais pour de grande plage, les filtres et filtres avancés sont plus rapide.

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 Copy_Client()
 
    Dim Valeur As String
 
    Valeur = Application.InputBox("Quel Client recherchez-vous ?", "RECHERCHER")
    Range("S1").Select
    On Error Resume Next
        Range("S:S").Find(What:=Valeur, After:=ActiveCell, LookIn:=xlValues, LookAt _
            :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
    If Err.Number Then
        MsgBox "Client non répertorié!"
        Exit Sub
    End If
    On Error GoTo 0
    ligne = ActiveCell.Row
    For i = 1 To Range("S" & Rows.Count).End(xlUp).Row
        If i > 1 Then
            Range("S:S").FindNext(After:=ActiveCell).Activate
            If ActiveCell.Row = ligne Then Exit For
        End If
        ActiveCell.EntireRow.Copy
        Sheets("Résultat de la recherche").Range("A" & 2 + i).PasteSpecial
 
    Next
 
    MsgBox i - 1 & " clients on été trouvé"
 
End Sub

[DoctaSpock]

Merci Merci Merci,

Désolé pour ma réponse tardive je n'ai pas pu me connecter avant, en vous remerciant encore =D !!!!!