jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 9 févr. 2006 à 23:21
Bonsoir,
Un exemple de code, tu cliques sur la Feuil2, tu reviens ensuite sur la Feuil1.
L'idéal est de mettre le code de WorkSheet_Activate, dans WorkBook_Open, de manière qu'à l'ouverture du classeur, la ListBox soit chargée.
Private Sub ListBox1_Click()
Select Case ListBox1.ListIndex
Case 0 '0 correspond au 1er index de la ListBox
MsgBox "Bonjour"
Case 1
MsgBox "Aurevoir"
Case 2
Range("A1").Value = "Ceci est un exemple"
End Select
End Sub
Private Sub Worksheet_Activate()
ListBox1.Clear
ListBox1.AddItem "toto"
ListBox1.AddItem "titi"
ListBox1.AddItem "tata"
ListBox1.ListIndex = 2
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Aceptée.
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 9 févr. 2006 à 23:37
Re bonsoir,
J'ai essayé ceci dans Word (Je ne connais pas très bien), dès que tu donne le Focus (cliquer dessus) à la ListBox, elle se rempli avec les données.
Private Sub ListBox1_Click()
Select Case ListBox1.ListIndex
Case 0 '0 correspond au 1er index de la ListBox
MsgBox "Bonjour"
Case 1
MsgBox "Aurevoir"
Case 2
MsgBox "Place un code de ton choix"
End Select
End Sub
Private Sub ListBox1_GotFocus()
ListBox1.Clear
ListBox1.AddItem "toto"
ListBox1.AddItem "titi"
ListBox1.AddItem "tata"
ListBox1.ListIndex = 2
End Sub
jpleroisse
Vous n’avez pas trouvé la réponse que vous recherchez ?