macro recherche

[bergeal]

bonjour ,
voici une copie de mon repertoire telephonique
je voudrais ecrire un macro qui ferait la chose suivante
1-dans une cellule quelquonque entrer le nom de la personne à rechecher et ce dans la colonne B et ensuite qu'il m'affiche la ligne correspondante à ce nom ou ces noms (il peut y avoir plusieurs nom indentiques)sur une utre feuille excel
voici ce que j'ai ecrits mais cela ne fonctionne pas

Sub Selectcellulevaleurdonnee(m2)
modele = Range(m3).Value
plage = (b1b5600)
Range(m3).Select
For Each cellule In ActiveCell.CurrentRegion
If cellule.Value = modele Then plage = plage & cellule.adress()
Next cellule
If Len(plage) > 0 Then Range(Left(plage, Len(plage) - 1)).Select
End Sub

[file name=essai_20060404140930.zip size=18816]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060404140930.zip[/file]

 

[bergeal]

j'ai oublie de dire merci 😱 😱

 

[porcinet82]

Salut Bergeal,

Je ne suis pas sur d'avoir tout compris mais je me lance quand meme. Donc tu dis tout d'abord que le nom peut etre tapé dans n'importe quelle cellule, la deja je ne sais pas trop comment faire, j'ai donc supposé que tu ecrivais le nom a rechercher dans la cellule M2.
Ensuite, je me sert des filtres que tu as mis, et donc un simple code de ce genre fait l'affaire :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Cells(2, 13).Value = '' Then
        Selection.AutoFilter Field:=2, Criteria1:=Cells(2, 13).Value
    End If
End Sub

Si je suis complétement à coté de la plaque refais signe j'esseairai de faire mieux 😉

@+

 

[bergeal]

Re

ou plus simplement , je voudrais une macro qui me recherche tous les noms 'tartempion' dans la colonne B et m'affiches les resultats (la ligne complete trouvée)sur un endroit determine ou sur une feuille de classeur nouvelle

@+

 

[porcinet82]

re,

Tu veux utiliser tes filtres pour faire ca ou pas ? Les deux choix sont possibles mais j'ai un peu la fleme de faire les deux et en plus faudrait vraiment que j'aille réviser mes partiels. :angry:

@+

 

[porcinet82]

re,

Allez j'ai encore repoussé, je te propose daonc les deux solutions :

Sub test()
Dim i As Integer, k As Integer

k = 1
nom = InputBox('rentrer un nom')
For i = 2 To Range('B65536').End(xlUp).Row
    If Cells(i, 2).Value = nom Then
        Sheets('Feuil1').Rows(k).Value = Rows(i).Value
        k = k + 1
    End If
Next i
End Sub

Sub test_v2()
Dim i As Integer, k As Integer

nom = InputBox('rentrer un nom')
Selection.AutoFilter Field:=2, Criteria1:=nom
Range('A3').Select
i = 3
k = 1
Do While Not Cells(i, 1).Value = ''
    Sheets('Feuil1').Rows(k).Value = Rows(i).Value
    i = i + 1
    k = k + 1
Loop
End Sub

@+

 

[bergeal]

Merci porcinet92 pour ton aide ,,

c'est ce que je recherchais

cela fonctionne bien

jean michel