Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Listbox et simplification de proc

Listbox et simplification de proc

5 réponses
Avatar
Laurent.H
Bonjour
je souhaite que ceci fonctionne et soit simplifié.
Merci beaucoup
Laurent

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Var = ListBox1.Value
If Var = "1ère journée" Then Sheets("1").Select
If Var = "2ème journée" Then Sheets("2").Select
If Var = "3ème journée" Then Sheets("3").Select
If Var = "4ème journée" Then Sheets("4").Select
If Var = "5ème journée" Then Sheets("5").Select
'etc...
end sub
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
michdenis
Bonjour Laurent,

essaie ceci :

'-------------------------
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim Var As Integer
Var = ListBox1.ListIndex
If ListBox1.ListIndex = -1 Then Exit Sub
Sheets(Var + 1).Select

End Sub
'-------------------------


Salutations!



"Laurent.H" a écrit dans le message de news:%
Bonjour
je souhaite que ceci fonctionne et soit simplifié.
Merci beaucoup
Laurent

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Var = ListBox1.Value
If Var = "1ère journée" Then Sheets("1").Select
If Var = "2ème journée" Then Sheets("2").Select
If Var = "3ème journée" Then Sheets("3").Select
If Var = "4ème journée" Then Sheets("4").Select
If Var = "5ème journée" Then Sheets("5").Select
'etc...
end sub
Avatar
Laurent.H
Ok un grand merci Denis
cela fonctionne parfaitement
Euh...
Comment faire lorsque l'on lance le userform, qu'aucun élément de la
listbox1 ne soit présélectionné ?
Laurent

"michdenis" a écrit dans le message de
news:
Bonjour Laurent,

essaie ceci :

'-------------------------
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim Var As Integer
Var = ListBox1.ListIndex
If ListBox1.ListIndex = -1 Then Exit Sub
Sheets(Var + 1).Select

End Sub
'-------------------------


Salutations!



"Laurent.H" a écrit dans le message de
news:%

Bonjour
je souhaite que ceci fonctionne et soit simplifié.
Merci beaucoup
Laurent

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Var = ListBox1.Value
If Var = "1ère journée" Then Sheets("1").Select
If Var = "2ème journée" Then Sheets("2").Select
If Var = "3ème journée" Then Sheets("3").Select
If Var = "4ème journée" Then Sheets("4").Select
If Var = "5ème journée" Then Sheets("5").Select
'etc...
end sub





Avatar
michdenis
Bonjour Laurent,


Private Sub UserForm_Initialize()
Me.ListBox1.ListIndex = -1
End Sub



Salutations!



"Laurent.H" a écrit dans le message de news:
Ok un grand merci Denis
cela fonctionne parfaitement
Euh...
Comment faire lorsque l'on lance le userform, qu'aucun élément de la
listbox1 ne soit présélectionné ?
Laurent

"michdenis" a écrit dans le message de
news:
Bonjour Laurent,

essaie ceci :

'-------------------------
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim Var As Integer
Var = ListBox1.ListIndex
If ListBox1.ListIndex = -1 Then Exit Sub
Sheets(Var + 1).Select

End Sub
'-------------------------


Salutations!



"Laurent.H" a écrit dans le message de
news:%

Bonjour
je souhaite que ceci fonctionne et soit simplifié.
Merci beaucoup
Laurent

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Var = ListBox1.Value
If Var = "1ère journée" Then Sheets("1").Select
If Var = "2ème journée" Then Sheets("2").Select
If Var = "3ème journée" Then Sheets("3").Select
If Var = "4ème journée" Then Sheets("4").Select
If Var = "5ème journée" Then Sheets("5").Select
'etc...
end sub





Avatar
Laurent.H
Merci beaucoup Denis
Laurent

"michdenis" a écrit dans le message de
news:%23l$
Bonjour Laurent,


Private Sub UserForm_Initialize()
Me.ListBox1.ListIndex = -1
End Sub



Salutations!



"Laurent.H" a écrit dans le message de
news:

Ok un grand merci Denis
cela fonctionne parfaitement
Euh...
Comment faire lorsque l'on lance le userform, qu'aucun élément de la
listbox1 ne soit présélectionné ?
Laurent

"michdenis" a écrit dans le message de
news:
Bonjour Laurent,

essaie ceci :

'-------------------------
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim Var As Integer
Var = ListBox1.ListIndex
If ListBox1.ListIndex = -1 Then Exit Sub
Sheets(Var + 1).Select

End Sub
'-------------------------


Salutations!



"Laurent.H" a écrit dans le message de
news:%

Bonjour
je souhaite que ceci fonctionne et soit simplifié.
Merci beaucoup
Laurent

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Var = ListBox1.Value
If Var = "1ère journée" Then Sheets("1").Select
If Var = "2ème journée" Then Sheets("2").Select
If Var = "3ème journée" Then Sheets("3").Select
If Var = "4ème journée" Then Sheets("4").Select
If Var = "5ème journée" Then Sheets("5").Select
'etc...
end sub










Avatar
Frédéric Sigonneau
Ou aussi :

Var = ListBox1.Value
Sheets(Left(Var,1)).Select
ou, un peu plus court :
Sheets(Val(Var)).Select

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour
je souhaite que ceci fonctionne et soit simplifié.
Merci beaucoup
Laurent

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Var = ListBox1.Value
If Var = "1ère journée" Then Sheets("1").Select
If Var = "2ème journée" Then Sheets("2").Select
If Var = "3ème journée" Then Sheets("3").Select
If Var = "4ème journée" Then Sheets("4").Select
If Var = "5ème journée" Then Sheets("5").Select
'etc...
end sub