Discussion :

[FAUFAU57]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[FAUFAU57]

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

[Invité]

Bonjour,
fonction rechercher:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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