Bonjour,

J'ai quelques soucis pour faire un ptit prog...
Je voudrais faire une fonction sans un XLSn°1 qui :

1- En entrée le chemin d'un XLSn°2
2- Récupère la valeur C5 de XLSn°2
3- Recherche dans le XLSn°1 à la colonne Q où se trouve la valeur du 2-
4- Donne en sortie la valeur de la LIGNE du 3-

Jai fais quelques bouts mais je suis boqué, en particulier je narive à extraire le n° de ligne, et aussi a passer d'un fichier a l'autre.

Merci

Pour la partie 3/4 cela decrais etre bon, j'ai fais comme j'ai pu, je n'arivais pas à extraire le n° de ligne avec un find... si vous avez mieu je suis preneur..


For Ligne = 1 To 400
Cells(Ligne, 17).Activate
If ActiveCell.Value = "230396" Then
Exit For
End If
Next Ligne
MsgBox Ligne


il me faudrais de laide pour récupérer des valeurs dans un autre fichier...
merci

Bonjour,
Tiens, inspires toi d'un truc de ce genre :

Sub recherche() Dim chemin As String Dim fichier As String Dim valeur As String chemin = InputBox("Chemin du fichier :") fichier = InputBox("Nom exact du fichier :(ex: test.xls)") Application.Workbooks.Open (chemin) valeur = Workbooks(fichier).Worksheets("Feuil1").Range("A1").Value Workbooks("test1.xls").Activate Worksheets("Feuil1").Range("A1").Activate While ActiveCell.FormulaR1C1 <> "" And ActiveCell.FormulaR1C1 <> valeur ActiveCell.Offset(1, 0).Activate Wend MsgBox (ActiveCell.Address) MsgBox (ActiveCell.Row) End Sub

Fanny

Merci beaucoups, je vais faire de mon mieu avec cela !