[Résolu] Rechercher par Villes

[Lone-wolf]

Bonsoir à tous,

dans le fichier joint, je peux afficher en colonne D, l'adresse de la personne recherchée (et/ou) l'adresse d'une autre personne avec le même nom de famille. Maintenant, j'aimerais inclure la recherche par ville.

Ex.: en inscrivant Lang - et - Paris, la macro doit afficher toutes les adresses si référant. Si j'inscrit Jack Lang et Paris, elle doit afficher juste son adresse.

Merci d'avance.


A+ 😎

 

[BOISGONTIER]

Re : Rechercher par Villes

Bonsoir,

cf PJ

JB

 

[Lone-wolf]

Re : Rechercher par Villes

Bonsoir Jacques,

c'est super, comme d'habitude. 😉 Merci beaucoup.

J'aimerais comprendre pourquoi les colonnes sont à doubles et la méthode Find n'était pas utile.


A+ 😎

 

[BOISGONTIER]

Re : Rechercher par Villes

>J'aimerais comprendre pourquoi les colonnes sont doublées

C'était une copie de sauvegarde (à supprimer)

>et la méthode Find n'était pas utile
Pour un petit tableau, ce n'est pas nécessaire. Pour un tableau avec beaucoup de lignes, copier la BD dans un tableau

bd = fbd.Range("A2:E" & derlig).Value

et faire la recherche dans le tableau BD()

Sub cherche()
  Set fbd = Sheets("base")
  Set fcherche = Sheets("recherche")
  nom = UCase(fcherche.[E5])
  ville = UCase(fcherche.[h5])
  derlig = fbd.[A65000].End(xlUp).Row
  ligne = 11
  [d11:d20].ClearContents
  bd = fbd.Range("A2:E" & derlig).Value
  For i = 1 To UBound(bd)
    If InStr(UCase(bd(i, 1)), nom) > 0 Then
      If ville = "" Or (ville <> "" And ville = UCase(bd(i, 4))) Then
        fcherche.Cells(ligne, 4) = bd(i, 1)
        fcherche.Cells(ligne + 1, 4) = bd(i, 2)
        fcherche.Cells(ligne + 2, 4) = bd(i, 4)
        fcherche.Cells(ligne + 3, 4) = bd(i, 5)
        ligne = ligne + 5
      End If
    End If
  Next i
End Sub

JB

 

[Lone-wolf]

Re : Rechercher par Villes

Pour un tableau avec beaucoup de lignes, copier la BD dans un Array() et faire la recherche dans l'Array()

Désolé de ne pas comprendre, tu voudrais bien m'expliquer? 😱


Edit: si j'ai bien compris, c'est une variable(bd) ou un tableau : " bd = fbd.Range("A2:E" & derlig).Value ".


Encore une foi mille merci pour ton aide et les explications que tu as donné.



A+ 😎