voilà j'ai un fichier que je souhaite amelioré
pour commencer j'ai une feuille "recherche" où le nom de chaque feuille s'affiche de a2;a43 apres avoir pressé le bouton.(si les feuilles sont renommée ca actualise la liste)
ensuite j'ai une liste de choix et je souhaiterais que celle ci mene vers la feuille choisie en A1
si non j'ai bien trouvé un truc mais n'arrive pas a le mettre en application
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
temp = Split(Target, "!")
Application.Goto Reference:=Worksheets(temp(0)).Range(temp(1))
End If
End Sub
Sub Zonecombinée3_QuandChangement()
On Error GoTo FIN
With Feuil2.Shapes(Application.Caller).DrawingObject
If .ListIndex > -1 Then Sheets(.Value).Activate
End With
FIN:
End Sub
ci-dessous ton fichier modifié avec une autre liste provenant de la boîte à outils contrôles et non Formulaire.
Comme la plupart de tes noms ne font qu'un caractère, dès que tu tapes un chiffres correspondant à une feuille, celle-ci s'active, s'il y a plusieurs caractères les propositions te sont faites.