Récupérer le ListIndex d'un ComboBox à l'ouverture du classeur

Paf

XLDnaute Barbatruc

• 7 Juin 2016

• #2

Re : Récupérer le ListIndex d'un ComboBox à l'ouverture du classeur

Bonjour,

Dans la mesure où aucune sélection ne sera faite sur la combobox, son ListIndex sera toujours à -1 .

Mais à tout hasard, essayez quelque chose du genreMsgBox Combobox1.listIndex dans Private Sub Workbook_Open() de ThisWorkBook, en précisant l'objet de rattachement de cette combo ( Feuille ou Userform)

A+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 7 Juin 2016

• #3

Re : Récupérer le ListIndex d'un ComboBox à l'ouverture du classeur

Bonjour Paf,

Contournons le problème. Comment, dans un module standard, je peux récupérer le ListIndex du ComboBox ?
Dans le module de feuille aucun problème, mais dans un autre module...

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 7 Juin 2016

• #4

Re : Récupérer le ListIndex d'un ComboBox à l'ouverture du classeur

Re,

Faire pareil, mais au lieu de mettre le code dans thisworkbook, le mettre dans un module standard

Code:

Sub MacroLI()
 MsgBox worksheets("Feuil1").Combobox1.listIndex
end sub

ou

Code:

Sub MacroLI()
 MsgBox Userform1.Combobox1.listIndex
end sub

A+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 7 Juin 2016

• #5

Re : Récupérer le ListIndex d'un ComboBox à l'ouverture du classeur

Re,

Je viens de trouver.
J'avais écrit dans le module de classeur ("ThisWorkbook") :

Code:

Private Sub Workbook_Open()

combodil = ComboDilutions.ListIndex

End Sub

combodil = variable "Public" (déclarée dans un module standard) qui récupère la valeur du ListIndex du ComboBox "ComboDilutions"

Alors qu'il fallait écrire :

Code:

Private Sub Workbook_Open()

combodil = Sheets("BTX").ComboDilutions.ListIndex

End Sub

BTX = nom de la feuille où se trouve le ComboBox "ComboDilutions"

Ça pourra toujours servir aux étourdis...

Bonne journée.

 

Dernière édition: 7 Juin 2016

Vote positif 0 Vote négatif