[Résolu] Rechercher par Villes

Lone-wolf · 27 Décembre 2013

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 · 27 Décembre 2013

Re : Rechercher par Villes

Bonsoir,

cf PJ

JB

Lone-wolf · 27 Décembre 2013

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 · 27 Décembre 2013

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()

Code:

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 · 27 Décembre 2013

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+ 😎

[Résolu] Rechercher par Villes

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Discussions similaires

[Résolu] Rechercher par Villes

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency