Résolu, Trouver contacts via macro

[kingfadhel]

Bonjour,
J'ai une base de contacts, je voudrais via une macro rechercher et afficher les contacts ayant comme NOM ou PRENOM un texte saisie dans une feuille autre que celle de la base (un filtre élaboré via macro).

 

[Paritec]

Re : Trouver contacts via macro

Bonjour kingfadhel le forum
ton fichier en retour tu cliques sur trouver et là tu tapes ce que tu cherches et tu me redis
a+
Papou😱

 

[BOISGONTIER]

Re : Trouver contacts via macro

Bonjour,

Cf pj

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$2" Then
    Sheets("Feuil1").Range("A1:F10000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Feuil1").Range("H1:H2"), CopyToRange:=Range("A4:F4") 
  End If
End Sub

JB

 

[kingfadhel]

Re : Trouver contacts via macro

Re,
Merci, mais je voudrais que ça se fasse sans des userforms si possible.
si ce n'est pas possible j'adopterai ton code merci une autre fois.

 

[kingfadhel]

Re : Trouver contacts via macro

Bonjour,

Cf pj

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$2" Then
    Sheets("Feuil1").Range("A1:F10000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Feuil1").Range("H1:H2"), CopyToRange:=Range("A4:F4") 
  End If
End Sub

JB

Génial, merci beaucoup, mais reste une petite chose, peut on lancer une recherche avec une partie du nom
exemple au lieu de saisir MARK je saisis seulement 2 ou 3 caractères.

Merci une autre fois

 

[Isab]

Re : Trouver contacts via macro

Bonjour

peut-être comme ceci ( fichier joint)

Sub Trouv()
Dim MaZone As Range, DerLg As Long, LeNom As String
LeNom = Sheets("feuil2").Range("B2").Value
If Sheets("feuil2").Range("B2") Is Nothing Then
Exit Sub
Else
DerLg = Cells.Find("*", , , , xlByColumns, xlPrevious).Row
Set MaZone = Sheets("feuil1").Range("A1:B" & DerLg).Find(what:=LeNom)
  If MaZone Is Nothing Then
  MsgBox Text & " est introuvale !!!!", vbCritical
  Else
  DerLg = Sheets("feuil2").Cells.Find("*", , , , xlByColumns, xlPrevious).Row
  MaZone.EntireRow.Copy Sheets("feuil2").Range("A" & DerLg + 1)
  End If
End If
End Sub

Bonne journée

 

[BOISGONTIER]

Re : Trouver contacts via macro

Voir PJ

JB

 

[kingfadhel]

Re : Trouver contacts via macro

Voir PJ

JB

Re,
Impeccable merci.

 

[kingfadhel]

Re : Trouver contacts via macro

Bonjour

peut-être comme ceci ( fichier joint)

Sub Trouv()
Dim MaZone As Range, DerLg As Long, LeNom As String
LeNom = Sheets("feuil2").Range("B2").Value
If Sheets("feuil2").Range("B2") Is Nothing Then
Exit Sub
Else
DerLg = Cells.Find("*", , , , xlByColumns, xlPrevious).Row
Set MaZone = Sheets("feuil1").Range("A1:B" & DerLg).Find(what:=LeNom)
  If MaZone Is Nothing Then
  MsgBox Text & " est introuvale !!!!", vbCritical
  Else
  DerLg = Sheets("feuil2").Cells.Find("*", , , , xlByColumns, xlPrevious).Row
  MaZone.EntireRow.Copy Sheets("feuil2").Range("A" & DerLg + 1)
  End If
End If
End Sub

Bonne journée

Merci de consacrer du temps à mon problème,
mais ton code n'est fonctionnel dans tous les cas.

 

[Isab]

Re : Résolu, Trouver contacts via macro

Re..

En effet , à toi d'adopter et d'adapter les solutions les plus appropriées à tes attentes..

je n'avais pas vu qu'il s'agissait d'un Filtre dans ta demande 🙂 autant pour moi 🙂

Bonne suite ..