Recherche de cellule a partir d'une variable

bonjour,
je butte sur un truc certainement tout bete et j'ai beau chercher , rien n'y fait.

dans la feuille1 de mon classeur je recupere en vba dans une variable le contenu de la cellule A13

Code:

---

a13 = Workbooks("test.xlsm").Worksheets("Feuil1").Range("A13")

---

et cest la que je butte ; je veux aller sur la cellule de ma feuille 2 qui contient la variable a13 de ma feuille 1. cette variable est unique dans ma feuille 2.

une aide me serait grandement utile.

merci beaucoup.

bonjour,
je ne sais pas si j'ai bien saisi mais voici un code qui recherche dans la feuille 2 la valeur da la variable a13 et si il la trouve il sélectionne la cellule correspondante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro_1() Dim vrech As Range a13 = Workbooks("test.xlsm").Worksheets("Feuil1").Range("A13") 'je recherche dans ma feuille 2 la valeur de a13 Set vrech = Workbooks("test.xlsm").Worksheets("Feuil2").Cells.Find(a13)   'si je trouve cette valeur alors If Not vrech Is Nothing Then 'j'active la feuille 2 Workbooks("test.xlsm").Worksheets("Feuil2").activate   'je selectionne la cellule correspondante vrech.Select End If End Sub

---

EDIT: Si tu lances le code à partir de la feuille1 il est nécessaire d'activer la feuille 2, je modifie le code ci-dessus.
fait une recherche sur FIND dans l'aide d'excel touche F1

Bonjour,
fonction rechercher:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Function Recherche(myrange As Excel.Range, strRecherche As String, Ligne As Long, Colonne As Integer) As Long 'Permet de rechercher une valeur dans un tableau Excel.   On Error Resume Next Recherche = myrange.Find(What:=strRecherche, After:=myrange.Cells(Ligne, Colonne), _ LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Row     If Err Then Err.Clear End Function

---

utilisation:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test() Dim Ligne As Long Dim Colonne As Integer Dim txtRechercher As String Dim MyPlage As Range Dim RetoutLigne As Long Set MyPlage = ActiveWorkbook.Worksheets(2).Cells Ligne = 1 Colonne = 5 txtRechercher = "vas savoir?" RetoutLigne = Recherche(MyPlage, txtRechercher, Ligne, Colonne) If RetoutLigne = 0 Then MsgBox "Pas trouvé!" Else MsgBox "Ligne : " & RetoutLigne End If End Sub

---

effectivement c'est bien ça. en plus c'etait tout simple; quel gros benet je fais.
Merci encore.