Nom de la feuille avec Find Address Sheetname

[percheu]

Bonjour,
je recherche grâce à la méthode Find l'adresse de ma_variable, mais je n'arrive pas à trouver le nom de la feuille.

ma_variable2 = Cells.Find(What:=ma_variable).Address

Je vous remercie par avance pour votre aide.
Cordialement.
A bientôt

 

[frangy]

Re : Nom de la feuille avec Find Address Sheetname

Bonsoir,

La formule que tu présentes permet de rechercher ma_variable dans la feuille active et d'affecter l'adresse à ma_variable2.
Est-ce que c'est ce que tu cherches à faire ?
A+

 

[percheu]

Re : Nom de la feuille avec Find Address Sheetname

Bonsoir,

La formule que tu présentes permet de rechercher ma_variable dans la feuille active et d'affecter l'adresse à ma_variable2.
Est-ce que c'est ce que tu cherches à faire ?
A+

Merci de m'aider, ma_variable n'est pas dans la même feuille que ma_variable2. Je cherche à connaître l'adresse de ma_variable et le nom de la feuille.

@+

 

[MJ13]

Re : Nom de la feuille avec Find Address Sheetname

Bonjour Percheu, Franguy

OK, mais c'est quoi ma_variable, comment l'as tu déclaré ?

C'est un peu maigre comme code pour t'aider.

 

[percheu]

Re : Nom de la feuille avec Find Address Sheetname

bonjour Michel et merci de m'aider :

Sub test()

' Déclaration des variables
Dim ma_variable As Variant

' Ma variable est en A1 dans une feuille dont je ne connais pas le nom avant
' pour l'exemple on va la placer dans la Feuil2
ma_variable = Sheets("Feuil2").Range("A1")


' Recherche l'adresse de ma_variable
ma_variable2 = Cells.Find(What:=ma_variable).Address

' Je bloque ici pour Rechercher le nom de la feuille où se trouve ma_variable
ma_variable3 = Cells.Find(What:=ma_variable)

' Affiche les variables dans la feuille active
Range("B8").Value = ma_variable2
Range("B9").Value = ma_variable3

End Sub

 

[frangy]

Re : Nom de la feuille avec Find Address Sheetname

Bonjour,

Voici un exemple de code pour rechercher le texte "Toto" dans les feuilles du classeur.

Sub test()
Dim ma_variable2 As Range
Dim ma_variable As String
Dim Sh As Worksheet
    ma_variable = "Toto"
    For Each Sh In Worksheets
        Set ma_variable2 = Sh.Cells.Find(What:=ma_variable, LookIn:=xlValues, lookat:=xlPart)
        If Not ma_variable2 Is Nothing Then
            MsgBox "Valeur trouvée dans la cellule " & ma_variable2.Address(0, 0) & " de la feuille " & Sh.Name
        End If
    Next Sh
End Sub

A+

 

[percheu]

Re : Nom de la feuille avec Find Address Sheetname

Merci Frangy c'est nickel !
Bonne journée et encore merci