T tonio Guest 14 Février 2005 #1 Bonjour à tous !! J'essaie d'ouvrir une page à partir d'une cellule. La cellule contient du texte et je voudrais que ma macro ouvre la page qui a le même nom que le texte dans la cellule. Ca doit être dans l'idée de : Sheets (L11.text).select Merci d'avance pour votre aide
Bonjour à tous !! J'essaie d'ouvrir une page à partir d'une cellule. La cellule contient du texte et je voudrais que ma macro ouvre la page qui a le même nom que le texte dans la cellule. Ca doit être dans l'idée de : Sheets (L11.text).select Merci d'avance pour votre aide
A Abel Guest 14 Février 2005 #2 Bonjour tonio, Regarde si l'exemple joint te convient. En espérant que cela te dépanne. Abel. Pièces jointes Exemple_tonio.zip 8 KB · Affichages: 24 Vote positif 0 Vote négatif
R Robert Guest 14 Février 2005 #3 Salut Tonio, salut le forum, C'est exactement ça avec la syntaxe suivante : Sheets(Range("L11").Value).Select À plus, Robert Vote positif 0 Vote négatif
Salut Tonio, salut le forum, C'est exactement ça avec la syntaxe suivante : Sheets(Range("L11").Value).Select À plus, Robert
T tonio Guest 14 Février 2005 #4 Merci beaucoup à vous deux !!! C'est exactement ce qu'il me fallait . Merci pour votre disponibilité Vote positif 0 Vote négatif
T tonio Guest 15 Février 2005 #5 Salut le forum !! La réponse que robert m'a donné me convient seulement je n'arrive pas à l'imbriquer dans ma macro. voila ce que ca donne : Dim ws As Variant Dim nom As String For Each ws In Worksheets ws.Activate nom = ws.Name If nom = Sheets("Saisie").Range("L11").Value Then Sheets("Saisie").Range("L11").Value.Select End If Next ws On Error GoTo TheEnd TheEnd: MsgBox "Feuille : " & TheSheet & " Non existante" Ce que j'aimerais faire c'est d'afficher la page qui a le même nom que la cellule L11. Merci pour votre aide a+ Vote positif 0 Vote négatif
Salut le forum !! La réponse que robert m'a donné me convient seulement je n'arrive pas à l'imbriquer dans ma macro. voila ce que ca donne : Dim ws As Variant Dim nom As String For Each ws In Worksheets ws.Activate nom = ws.Name If nom = Sheets("Saisie").Range("L11").Value Then Sheets("Saisie").Range("L11").Value.Select End If Next ws On Error GoTo TheEnd TheEnd: MsgBox "Feuille : " & TheSheet & " Non existante" Ce que j'aimerais faire c'est d'afficher la page qui a le même nom que la cellule L11. Merci pour votre aide a+
A Abel Guest 15 Février 2005 #6 Bonjour tonio, Il te manque un étage. Sheets(Sheets("Saisie").Range("L11").Value).Select Abel. Vote positif 0 Vote négatif