Probleme liste dans cellule
Bonjour,
-Ce que je souhaites faire :
· créer une liste contenant ADS, MC et SSIAP
· mettre de la cellule D11 à D16 cette liste
- Ce que j'ai fait : (le code)
Sachant que j'appelle cette procédure à l'ouverture
- Le probleme
Lorsque je ferme, puis que j'ouvre mon fichier excel, j'obtiens :
" Erreur d'exécution '91' : variable objet ou variable de bloc With non définie "
Merci de votre aide.
-Ce que je souhaites faire :
· créer une liste contenant ADS, MC et SSIAP
· mettre de la cellule D11 à D16 cette liste
- Ce que j'ai fait : (le code)
Sub Qualif()
Dim ListQualif As ComboBox ' La variable ListQualif est une liste
' Initialisation de la liste
ListQualif.AddItem "ADS"
ListQualif.AddItem "MC"
ListQualif.AddItem "SSIAP"
Range("D11:D16") = ListQualif.List ' Les cellules de la colonne D
(de la 11 à la 16ème ligne) recoivent la liste.
End Sub
Sachant que j'appelle cette procédure à l'ouverture
- Le probleme
Lorsque je ferme, puis que j'ouvre mon fichier excel, j'obtiens :
" Erreur d'exécution '91' : variable objet ou variable de bloc With non définie "
Merci de votre aide.
2 réponses
-
L'erreur se trouve à la ligne suivante :
ListQualif.AddItem "ADS"
En fait, dès que j'utilises ma variables ListQualif (qui a été déclarée en tant que combo box). -
ContributeurBonjour,
Il n'est pas besoin de passer par une variable...
si ton Combo se nomme, ComboBox1
ComboBox1.AddItem "ADS"
Pour ton info, si tu veux passer par une variable...Dim ListQualif As ComboBox ' La variable ListQualif est une liste Set ListQualif = ComboBox1 ' Initialisation de la liste ListQualif.AddItem "ADS" ListQualif.AddItem "MC" ListQualif.AddItem "SSIAP" Range("D11:D16") = ListQualif.List ' Les cellules de la colonne D (de la 11 à la 16ème ligne) recoivent la liste.
Mais tu va encore avoir une erreur surRange("D11:D16") = ListQualif.List ' Les cellules de la colonne D (de la 11 à la 16ème ligne) recoivent la liste.
Mais là je ne vois pas ce que tu veux faire.
A+
