Selection de feuille selon texte d'une forme auto

[altefqhatre]

Salut tout le monde!

Tout d'abord un grand merci à tous les gens qui posent leurs atuces et qui aident les petits débutants 😀

J'ai beaucoup apris grâce à vos précieuses réponse!! 😀

J'ai écrit la procédure suivante:

Sub SelectSheets()

Dim Texte As String

Texte = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text

For Each feuille In Worksheets


    If feuille.Name = Texte Then

    feuille.Activate
        
    Else

MsgBox "Erreur"

    End If
Next feuille
End Sub

Via ce petit bout de code, je désire sélectionner la feuille dont le nom est le même que le texte de la forme automatique depuis laquelle je lance la macro.

Par contre ça me renvoie l'erreur d'éxécution 13, c'est-à-dire "incompatibilité de type"

C'est donc la ligne:

Texte = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text

qui bug!

Qqun a une idée?

D'avance merci beaucoup!

++

 

[Pierrot93]

Re : Selection de feuille selon texte d'une forme auto

Bonjour,

devrait fonctionner si ta procédure est affectée / déclenchée à la forme auto...

sinon un petit fichier en pièce jointe devrait nous aider à t'aider...

bonne fin d'après midi

 

[altefqhatre]

Re : Selection de feuille selon texte d'une forme auto

Salut Pierrot,

Merci pour ta réponse!

Alors le code ci-dessus fonctionne correctement, je sais pas comment j'ai fait pour avoir une erreur pareille lol 😛

M'enfin, en espérant que ça serve à quelqu'un d'autre :-D

++