Re Vivi, Popeye, Le Forum !
Ben, bon, Heu...
Bouton Valider... Tu ne dis pas ce que tu veux faire?
Je te donnes trois exemples comme çà au vol !
1) Ceci serait la syntax pour un message et fermer le UserForm :
Private Sub CommandButton1_Click()
MsgBox "Vous Avez Selectionné " & ListBox1.Value
unload me
End Sub
2) Ceci serait la syntax pour reporter la sélection dans une cellule et fermer le UserForm :
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("A1").Value = ListBox1.Value
unload me
End Sub
3) Ceci serait la syntax pour faire un check que la listbox contien bien une sélection et ensuite reporter la sélection dans une cellule et fermer le UserForm :
Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then
MsgBox "Vous n'avez rien selectionné, faites une selection !", vbCritical, "warning"
Exit Sub
End If
Sheets("Feuil1").Range("A1").Value = ListBox1.Value
unload me
End Sub
Bouton Annuler...
Version simple :
Private Sub CommandButton1_Click()
unload me
End Sub
Version avec demande de confirmattion :
Private Sub CommandButton2_Click()
Dim Quitter As Byte
Quitter = MsgBox("voulez-vous quitter ?", vbYesNo)
If Quitter = 6 Then Unload Me
End Sub
Pour les bouquin, il doit y avoir sur la site une pub pour un bouquin de programmation VBA par John Walkenbach (Traduit en français).... J.Walk est un de mes Maîtres d'Excel...
Voilà Vivi...
(En supposant que Popeye aura illustré d'un fichier !! lol)
@+Thierry
