mon classeur contient x feuilles, ce nombre peut varier, les feuilles
êtres renommées...
Je souhaite à partir d'une "feuille menu", saisir le nom d'une des
feuilles dans une cellule par ex A1, et atteindre la feuille en question
à l'aide d'une macro.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Mets dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next Err.Clear Sheets(Target.Value).Select If Err.Number <> 0 Then MsgBox "mauvaise pioche" End Sub
Cordialement. Daniel "Fred" a écrit dans le message de news: e3qqko$4n6$
Bonjour,
mon classeur contient x feuilles, ce nombre peut varier, les feuilles êtres renommées... Je souhaite à partir d'une "feuille menu", saisir le nom d'une des feuilles dans une cellule par ex A1, et atteindre la feuille en question à l'aide d'une macro.
Merci de votre aide
Fred
Bonsoir.
Mets dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
On Error Resume Next
Err.Clear
Sheets(Target.Value).Select
If Err.Number <> 0 Then MsgBox "mauvaise pioche"
End Sub
Cordialement.
Daniel
"Fred" <fred.news.sansspam@tiscali.fr> a écrit dans le message de news:
e3qqko$4n6$1@news.tiscali.fr...
Bonjour,
mon classeur contient x feuilles, ce nombre peut varier, les feuilles
êtres renommées...
Je souhaite à partir d'une "feuille menu", saisir le nom d'une des
feuilles dans une cellule par ex A1, et atteindre la feuille en question à
l'aide d'une macro.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next Err.Clear Sheets(Target.Value).Select If Err.Number <> 0 Then MsgBox "mauvaise pioche" End Sub
Cordialement. Daniel "Fred" a écrit dans le message de news: e3qqko$4n6$
Bonjour,
mon classeur contient x feuilles, ce nombre peut varier, les feuilles êtres renommées... Je souhaite à partir d'une "feuille menu", saisir le nom d'une des feuilles dans une cellule par ex A1, et atteindre la feuille en question à l'aide d'une macro.
Merci de votre aide
Fred
Fred
Bonsoir et merci,
Je n'y connais pas grand chose dans ce domaine. Comment dois-je procéder ? J'ai essayé de créer une macro et d'insérer le code ci dessous mais ça ne marche pas.
Merci
Freddy
Bonsoir. Mets dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next Err.Clear Sheets(Target.Value).Select If Err.Number <> 0 Then MsgBox "mauvaise pioche" End Sub
Cordialement. Daniel "Fred" a écrit dans le message de news: e3qqko$4n6$
Bonjour,
mon classeur contient x feuilles, ce nombre peut varier, les feuilles êtres renommées... Je souhaite à partir d'une "feuille menu", saisir le nom d'une des feuilles dans une cellule par ex A1, et atteindre la feuille en question à l'aide d'une macro.
Merci de votre aide
Fred
Bonsoir et merci,
Je n'y connais pas grand chose dans ce domaine. Comment dois-je procéder
? J'ai essayé de créer une macro et d'insérer le code ci dessous mais ça
ne marche pas.
Merci
Freddy
Bonsoir.
Mets dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
On Error Resume Next
Err.Clear
Sheets(Target.Value).Select
If Err.Number <> 0 Then MsgBox "mauvaise pioche"
End Sub
Cordialement.
Daniel
"Fred" <fred.news.sansspam@tiscali.fr> a écrit dans le message de news:
e3qqko$4n6$1@news.tiscali.fr...
Bonjour,
mon classeur contient x feuilles, ce nombre peut varier, les feuilles
êtres renommées...
Je souhaite à partir d'une "feuille menu", saisir le nom d'une des
feuilles dans une cellule par ex A1, et atteindre la feuille en question à
l'aide d'une macro.
Je n'y connais pas grand chose dans ce domaine. Comment dois-je procéder ? J'ai essayé de créer une macro et d'insérer le code ci dessous mais ça ne marche pas.
Merci
Freddy
Bonsoir. Mets dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next Err.Clear Sheets(Target.Value).Select If Err.Number <> 0 Then MsgBox "mauvaise pioche" End Sub
Cordialement. Daniel "Fred" a écrit dans le message de news: e3qqko$4n6$
Bonjour,
mon classeur contient x feuilles, ce nombre peut varier, les feuilles êtres renommées... Je souhaite à partir d'une "feuille menu", saisir le nom d'une des feuilles dans une cellule par ex A1, et atteindre la feuille en question à l'aide d'une macro.
Merci de votre aide
Fred
Daniel
Bonsoir. Clic droit sur l'onglet, choisis "visualiser le code" et colle la macro. Cordialement. Daniel "Fred" a écrit dans le message de news: e3tiia$atv$
Bonsoir et merci,
Je n'y connais pas grand chose dans ce domaine. Comment dois-je procéder ? J'ai essayé de créer une macro et d'insérer le code ci dessous mais ça ne marche pas.
Merci
Freddy
Bonsoir. Mets dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next Err.Clear Sheets(Target.Value).Select If Err.Number <> 0 Then MsgBox "mauvaise pioche" End Sub
Cordialement. Daniel "Fred" a écrit dans le message de news: e3qqko$4n6$
Bonjour,
mon classeur contient x feuilles, ce nombre peut varier, les feuilles êtres renommées... Je souhaite à partir d'une "feuille menu", saisir le nom d'une des feuilles dans une cellule par ex A1, et atteindre la feuille en question à l'aide d'une macro.
Merci de votre aide
Fred
Bonsoir.
Clic droit sur l'onglet, choisis "visualiser le code" et colle la macro.
Cordialement.
Daniel
"Fred" <fred.news.sansspam@tiscali.fr> a écrit dans le message de news:
e3tiia$atv$1@news.tiscali.fr...
Bonsoir et merci,
Je n'y connais pas grand chose dans ce domaine. Comment dois-je procéder ?
J'ai essayé de créer une macro et d'insérer le code ci dessous mais ça ne
marche pas.
Merci
Freddy
Bonsoir.
Mets dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
On Error Resume Next
Err.Clear
Sheets(Target.Value).Select
If Err.Number <> 0 Then MsgBox "mauvaise pioche"
End Sub
Cordialement.
Daniel
"Fred" <fred.news.sansspam@tiscali.fr> a écrit dans le message de news:
e3qqko$4n6$1@news.tiscali.fr...
Bonjour,
mon classeur contient x feuilles, ce nombre peut varier, les feuilles
êtres renommées...
Je souhaite à partir d'une "feuille menu", saisir le nom d'une des
feuilles dans une cellule par ex A1, et atteindre la feuille en question
à l'aide d'une macro.
Bonsoir. Clic droit sur l'onglet, choisis "visualiser le code" et colle la macro. Cordialement. Daniel "Fred" a écrit dans le message de news: e3tiia$atv$
Bonsoir et merci,
Je n'y connais pas grand chose dans ce domaine. Comment dois-je procéder ? J'ai essayé de créer une macro et d'insérer le code ci dessous mais ça ne marche pas.
Merci
Freddy
Bonsoir. Mets dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next Err.Clear Sheets(Target.Value).Select If Err.Number <> 0 Then MsgBox "mauvaise pioche" End Sub
Cordialement. Daniel "Fred" a écrit dans le message de news: e3qqko$4n6$
Bonjour,
mon classeur contient x feuilles, ce nombre peut varier, les feuilles êtres renommées... Je souhaite à partir d'une "feuille menu", saisir le nom d'une des feuilles dans une cellule par ex A1, et atteindre la feuille en question à l'aide d'une macro.
