Ouverture d'une feuille par un double clic sur une cellule
bonjours a tous
je souhaiterai, après des heures de recherche sur le net non fructueuse,
ouvrir une feuille a partir d'une cellule (liste déroulante)par un double clic.
ma liste déroulante ce trouve sur ma feuille 1 cellule j1,
il y a encore peut de temps j'avais ça qui fonctionner bien jusqu'à maintenant
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ThisWorkbook.Worksheets(Feuil1.[j1].Value).Activate
End Sub
mais la je cale, Merci par avance
Bonjour,
Bien que cette question s'adresse à Pierrot ...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ThisWorkbook.Worksheets([j1].Value).Select
Cancel = True
End Subrebonjours
la solution de james007 ne fonctionne pas , j'ai erreur exécution 9
la ligne ThisWorkbook.Worksheets([j1].Value).Select est surligné en jaune
Re,
Nous sommes bien d'accord que dans ta cellule J1 ... se trouve le nom correctement écrit ... de la feuille vers laquelle le double-clic va t'envoyer ...
Si tu as des difficultés ... tu peux joindre ton fichier dans ton prochain message ...
c'est une liste déroulante avec formule via validation des données, mais pour répondre oui
et de plus la copie de ma matrice que vous m'aviez si rapidement trouvé dans mon précédent post,non plus ne fonctionne pas avec la même erreur 9 ou 424
Re,
Si tu as des difficultés ... tu peux joindre ton fichier dans ton prochain message ...
résolue une partie du problème l'ouverture du fichier fonctionne ( erreur de syntaxe ) mais pour la copie toujours pas mais je continue de chercher.
le code pour copier et renommer
Sub CopySheetRename()
Sheets(Neutre).Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = Sheets(Feuil1).Range(j1)
End Sub
Salutation mon ami
Si tu le veux ... tu peux joindre ton fichier dans ton message...
Cela me serait fort utile...
Merci...d'avance...
Cordialement...
Eul Vedette
A ... ton service ...
voilà j'ai trouvé mon problème, erreur de syntaxe sur la feuil1 que j'avais renommer, après correction tous fonctionne de nouveau.
la prochaine fois je commencerai par chercher avant de vous solliciter. Promis
merci encore pour ton aide , bonne journée
Re,
Sub CopySheetRename()
Sheets("Neutre").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Sheets(Sheets(ThisWorkbook.Sheets.Count).Index).Name = Sheets("Feuil1").Range("J1").Value
End SubContent que tu aies trouvé la solution ...