Recherche de données

[isabelle]

Bonjour le forum,


A partir d'un userform, j' indique un n° dans une textbox .
Ce n° se reporte sur une feuille de classeur et ensuite les données existant sur une autre feuille doivent être recherchées à partir de la valeur de ce n°.
Ce n° peut se répéter sur un certain nbre de lignes, aussi j'ai essayé avec une fonction recherche et cela ne fonctionne pas.

merci à tous ceux qui prendront le temps de répondre

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

 

[porcinet82]

Salut Isabelle,

Je ne sais pas si j'ai bien compris ce que tu voulais faire, mais regarde le fichier joint et tiens moi au courant.

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

@+

 

[jp14]

Bonjour

Voici une macro pour faire le travail.
Elle peut être simplifiée
**********************************************
Private Sub CommandButton1_Click()
Dim i, j, dl As Long
Dim colonne1, nomfeuille1 As String

Sheets('feuil2').Range('B1').Value = TextBox1.Value
'************************
'effacer une zone
colonne1 = 'C'
nomfeuille1 = 'Feuil2'
dl = Sheets(nomfeuille1).Range(colonne1 & '65536').End(xlUp).Row
Sheets('Feuil2').Range('A4:C' & dl).ClearContents


'************************************************
colonne1 = 'A'
nomfeuille1 = 'Feuil1'
dl = Sheets(nomfeuille1).Range(colonne1 & '65536').End(xlUp).Row
' début
j = 4
' balayage de la feuille
For i = 2 To dl
If Sheets(nomfeuille1).Cells(i, 1) = Val(TextBox1.Value) Then

Sheets('feuil2').Cells(j, 1) = Sheets(nomfeuille1).Cells(i, 1)
Sheets('feuil2').Cells(j, 2) = Sheets(nomfeuille1).Cells(i, 2)
Sheets('feuil2').Cells(j, 3) = Sheets(nomfeuille1).Cells(i, 3)
j = j + 1

End If
Next i
End Sub

 

[isabelle]

bonjour Porcinet82 et jp14,

Cela correspond à ce que je voulais

Merci pour le code

Isabelle