Probleme liste dans cellule
Clemzd
Messages postés
183
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
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.
A voir également:
- Probleme liste dans cellule
- Liste déroulante excel - Guide
- Liste code ascii - Guide
- Liste déroulante en cascade - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
L'erreur se trouve à la ligne suivante :
En fait, dès que j'utilises ma variables ListQualif (qui a été déclarée en tant que combo box).
ListQualif.AddItem "ADS"
En fait, dès que j'utilises ma variables ListQualif (qui a été déclarée en tant que combo box).
Bonjour,
Il n'est pas besoin de passer par une variable...
si ton Combo se nomme, ComboBox1
Pour ton info, si tu veux passer par une variable...
Mais tu va encore avoir une erreur sur
Mais là je ne vois pas ce que tu veux faire.
A+
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 sur
Range("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+
