Recherche dans une autre feuille.

[pat12]

Bonjour,
Je souhaite faire une recherche dans une feuille et afficher le résultat dans une autre feuille.
La feuille de recherche est la feuille rue
La feuille ou s’affiche les données est la feuille recherche
Voir exemple
Merci

 

[Monique]

Re : Recherche dans une autre feuille.

Bonjour,

Par formules et listes de validation
Formules matricielles, à valider en appuyant simultanément sur ctrl, maj et entrée.

Il y a deux feuilles de recherche, une avec le nom sans spécifier rue, avenue, ruelle, etc
l'autre avec le nom complet.
On peut faire la recherche par le nom et/ou par le secteur

 

[pat12]

Re : Recherche dans une autre feuille.

Merci Monique,
Mais je souhaite faire une Copie en fait dans la feuille recherche en utilisant les UserForms comme l’exemple.
Ton exemple remplace les critères trouvé à chaque recherche mais je souhaite qu’ils s’ajoutent.
Merci tout de même.

 

[jp14]

Re : Recherche dans une autre feuille.

Bonjour

Ci dessous une macro pour rechercher dans une plage.

Private Sub recherchemot()
Dim firstAddress As String
Dim ad As String
Dim cel As Range
Dim ligne1 As Long
Dim ligne2 As Long


ad = "a2:" & Sheets("rue").Cells.SpecialCells(xlCellTypeLastCell).Address(0, 0) ' on recherche dans l'ensemble de la feuille

With Sheets("rue").Range(ad)
    Set cel = .Find(ComboBox1.Value, LookIn:=xlValues, SearchOrder:=xlByRows) ' on recherche ligne par ligne
    If Not cel Is Nothing Then
        firstAddress = cel.Address
        
        Do
            ligne2 = cel.Row 'ligne2 peut être supprimé si la recherche se fait
' uniquement dans une colonne et non dans une plage
            If ligne2 <> ligne1 Then ' on vérifie que la valeur n'a pas été trouvé sur la ligne
' remplir la listbox ou combobox ou Listview
            dl1 = Sheets("recherche").Range("A65536").End(xlUp).Row + 1
            For i = 1 To 7
                Sheets("recherche").Cells(dl1, i) = Sheets("rue").Cells(ligne2, i)
            Next i
'
                ligne1 = cel.Row ' on mémorise le numéro de la ligne
            End If
            Set cel = .FindNext(cel) 'cellule suivante
        
        Loop While Not cel Is Nothing And cel.Address <> firstAddress ' si on recommence la recherche alors fin de la recherche
        
    End If
    ligne2 = 0
End With
End Sub


Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then Exit Sub

recherchemot

End Sub

Voir ce fil avec une application qui utilise une listview pour effectuer une recherche
https://www.excel-downloads.com/threads/tri-dans-un-userform.77189/

JP

 

[pat12]

Re : Recherche dans une autre feuille.

Bonsoir JP14,
Avez-vous une idée pour intégrer cette macro dans mon exemple (recherche.zip) cité plus haut.
Et cette macro peut’ elle fonctionner avec une UserForm?
Je vous en remercie d’avance.

 

[jp14]

Re : Recherche dans une autre feuille.

Bonsoir

Ci joint le fichier avec la macro (un seul USF)
A compléter pour le deuxième USF


JP

 

[pat12]

Re : Recherche dans une autre feuille.

Super et encore merci JP 14.
Je vais me débrouiller maintenant.
Bonsoir.

 

[pat12]

Re : Recherche dans une autre feuille.

Dis mois JP14
Peux ton faire ouvrir une Userforme (nontrouve) si la rue recherché n’est pas dans la liste de la feuille (rue).
Et de ne pas la coiper" voir exemple"
Merci

 

[jp14]

Re : Recherche dans une autre feuille.

Bonjour

Ci dessous les modifs à apporter

Dim trouve As Byte

Private Sub recherchemot()
..............


        Do
            ................
            For i = 1 To 7
                trouve = 1
                Sheets("recherche").Cells(dl1, i) = Sheets("rue").Cells(ligne2, i)
            Next i
'
              ........................
            End If
            ....................
End Sub


Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then Exit Sub
trouve = 0
recherchemot
If trouve = 0 Then
    Call MsgBox("La rue " & ComboBox1.Value _
                & vbCrLf & "N'est pas dans la liste" _
                , vbCritical, "Rue non trouvé")
                
    ComboBox1.Value = ""

End If


End Sub

JP

 

[pat12]

Re : Recherche dans une autre feuille.

Tout est OK
Merci.