3) il me faudrait une macro qui lorsque qu elle est appellée :
- Recherche la valeur A2 de feuille "macro" dans la colonne A de la feuille ("Liens")
- Lorsqu elle est trouvée copie la valeur de "B2" de la feuille "macro" dans la cellule "B.." de la feuille ("Liens')
ex (par rapport aux exemples ci-dessus):
1 - Dans Feuille("Macro")."A2" = TE8200 et "B2" : Accueil>Test1
2 - Recherche de TE8200 dans feuille("Liens") -> Résultat "A5"
3 - Alors Feuille ("Liens")."B5" = valeur de Feuille ("macro")."B2" soit : Accueil>Test1
Re : [Résolu] Rechercher valeur dans une colonne et écrire dans la cellule d'en face
salut
Tu m'as fait courir après ta souris DoubleZero , et moi, gros matou, ai perdu quelques "plumes" .
Code:
Private Sub CommandButton1_Click()
Dim R As Range, C As Range
On Error Resume Next
For Each R In Range("A2", [A6000].End(xlUp)).SpecialCells(2)
Set C = Sheets("Liens").[A:A].Find(R, , , 1)
If Not C Is Nothing Then R(1, 2) = C(1, 2)
Next
End Sub