liste de choix

G

Guest

Guest

• 15 Juillet 2010

• #2

Re : liste de choix

bonjour Kinder,

J'attends toujours une réponse ici et ici d'autres attendent ici
a+ ?

 

Dernière modification par un modérateur: 15 Juillet 2010

Vote positif 0 Vote négatif

K

kinder53

XLDnaute Junior

• 15 Juillet 2010

• #3

Re : liste de choix

bonjour à toi Hasco,
desolé pour le retard
🙂

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

🙁

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Juillet 2010

• #4

Re : liste de choix

Re,

Attribue cette macro à ta zonecombinée3:

Code:

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.

A+
A+

 

Dernière modification par un modérateur: 15 Juillet 2010

Vote positif 0 Vote négatif

K

kinder53

XLDnaute Junior

• 15 Juillet 2010

• #5

Re : liste de choix

bonsoir Hasco,
et bien ca marche nickel chome tu es trop fort

merci beaucoup
🙂

 

Vote positif 0 Vote négatif