Index

Zone de liste déroulante
Case à cocher
Boutons d'options
DropDowns et ListBox

Zone de liste déroulante

-Faire apparaître la barre d'outils Formulaire(Affichage/Barreoutils)
-Dessiner une zone de liste déroulante
-Clic-Droit/Propriétés/Format de contrôle
-Choisir une cellule liée pour récupérer le résultat

Case à cocher

Faire apparaître la barre d'outils Formulaire(Affichage/Barre outils/Fomulaire)
-Dessiner une case à cocher
-Clic-Droit/Propriétés/Format de contrôle
-Choisir une cellule liée (C6 par exemple) pour récupérer le résultat

Boutons d'options

-Faire apparaître la barre d'outils Formulaire(Affichage/Barreoutils/Formulaire)
-Dessiner une zone de groupe (xyz)
-Dessiner des cases d'options dans cette zone de groupe
-Clic-Droit/Propriétés/Format de contrôle sur une case d'option
-Choisir une cellule liée pour récupérer le résultat

DropDowns et ListBox

Sub ZoneListe1()
  For Each c In ActiveSheet.DropDowns
     MsgBox c.Name
  Next
  For Each c In ActiveSheet.ListBoxes
     MsgBox c.Name
  Next
  MsgBox ActiveSheet.DropDowns(1).Value
  MsgBox ActiveSheet.ListBoxes(1).Value
End Sub

Sub EssaiBO5()
  ActiveSheet.DropDowns("Combo2").List = [Liste1]
  ActiveSheet.DropDowns("Combo2").ListIndex = 1
End Sub

Sub EssaiBO6()
  ActiveSheet.DropDowns("Combo2").List = Array("Madame", "Mademoiselle", "Monsieur")
  ActiveSheet.DropDowns("Combo2").ListIndex = 1
End Sub

Sub EssaiBO7()
  ActiveSheet.ListBoxes("ZoneListe1").List = Array("Madame", "Mademoiselle", "Monsieur")
  ActiveSheet.ListBoxes("ZoneListe1").ListIndex = 1
End Sub

Sub Resultat()
  MsgBox ActiveSheet.ListBoxes("ZoneListe1").Value
  p = ActiveSheet.ListBoxes("ZoneListe1").ListIndex
  MsgBox ActiveSheet.ListBoxes("ZoneListe1").List(p)
End Sub

Sub ZoneListe2()
  ActiveSheet.Shapes("Combo2").ControlFormat.List = Array("Madame", "Mademoiselle", "Monsieur")
End Sub

Sub ZoneListe3()
  a = ActiveSheet.Shapes("combo2").ControlFormat.List
  MsgBox a(2)
End Sub