j'ai un probl=E8me en utilisant une listbox! Si je met plus=20
de 30 =E9l=E9ments, Excel crash royalement!
=20
Comment faire pour changer le nombre maximum d'=E9l=E9ments=20
que l'on peut mettre dans une listbox!
Voil=E0 le bout de code qui plante si=20
Module1.getListApplication renvoie plus de 30 =E9l=E9ments :
vous pouvez connaître le nom de votre listbox avec :
Sub Associe() ' Dim ListeMod As Shape
For Each ListeMod In ActiveSheet.Shapes MsgBox ListeMod.Name Next
End Sub
Une fois la listbox créé, trouvez le nom, ajuster la propriété ColumnCount et importer vos donnée.
Michel
-----Message d'origine----- cela ne passe pas car pour multiple raison je n'ai pas créer d'objet listbox sur ma feuille. Le listBox est créer
dynamiquement avec mon selection.validation donc je n'ai pas d'objet à proprement dit "listbox$i"
Je suis obliger de faire : With Selection.Validation .Delete .Add xlValidateList, xlValidAlertStop, xlBetween, Formula1:=Module1.getListApplication .IgnoreBlank = True .InCellDropdown = True End With .
Bonjour,
vous pouvez connaître le nom de votre listbox avec :
Sub Associe()
'
Dim ListeMod As Shape
For Each ListeMod In ActiveSheet.Shapes
MsgBox ListeMod.Name
Next
End Sub
Une fois la listbox créé, trouvez le nom,
ajuster la propriété ColumnCount et importer
vos donnée.
Michel
-----Message d'origine-----
cela ne passe pas car pour multiple raison je n'ai pas
créer d'objet listbox sur ma feuille. Le listBox est
créer
dynamiquement avec mon selection.validation donc je n'ai
pas d'objet à proprement dit "listbox$i"
Je suis obliger de faire :
With Selection.Validation
.Delete
.Add xlValidateList, xlValidAlertStop, xlBetween,
Formula1:=Module1.getListApplication
.IgnoreBlank = True
.InCellDropdown = True
End With
.
vous pouvez connaître le nom de votre listbox avec :
Sub Associe() ' Dim ListeMod As Shape
For Each ListeMod In ActiveSheet.Shapes MsgBox ListeMod.Name Next
End Sub
Une fois la listbox créé, trouvez le nom, ajuster la propriété ColumnCount et importer vos donnée.
Michel
-----Message d'origine----- cela ne passe pas car pour multiple raison je n'ai pas créer d'objet listbox sur ma feuille. Le listBox est créer
dynamiquement avec mon selection.validation donc je n'ai pas d'objet à proprement dit "listbox$i"
Je suis obliger de faire : With Selection.Validation .Delete .Add xlValidateList, xlValidAlertStop, xlBetween, Formula1:=Module1.getListApplication .IgnoreBlank = True .InCellDropdown = True End With .
forey
Merci, cela semble marcher!
-----Message d'origine----- Bonjour,
vous pouvez connaître le nom de votre listbox avec :
Sub Associe() ' Dim ListeMod As Shape
For Each ListeMod In ActiveSheet.Shapes MsgBox ListeMod.Name Next
End Sub
Une fois la listbox créé, trouvez le nom, ajuster la propriété ColumnCount et importer vos donnée.
Michel
-----Message d'origine----- cela ne passe pas car pour multiple raison je n'ai pas créer d'objet listbox sur ma feuille. Le listBox est créer
dynamiquement avec mon selection.validation donc je n'ai pas d'objet à proprement dit "listbox$i"
Je suis obliger de faire : With Selection.Validation .Delete .Add xlValidateList, xlValidAlertStop, xlBetween, Formula1:=Module1.getListApplication .IgnoreBlank = True .InCellDropdown = True End With .
.
Merci, cela semble marcher!
-----Message d'origine-----
Bonjour,
vous pouvez connaître le nom de votre listbox avec :
Sub Associe()
'
Dim ListeMod As Shape
For Each ListeMod In ActiveSheet.Shapes
MsgBox ListeMod.Name
Next
End Sub
Une fois la listbox créé, trouvez le nom,
ajuster la propriété ColumnCount et importer
vos donnée.
Michel
-----Message d'origine-----
cela ne passe pas car pour multiple raison je n'ai pas
créer d'objet listbox sur ma feuille. Le listBox est
créer
dynamiquement avec mon selection.validation donc je n'ai
pas d'objet à proprement dit "listbox$i"
Je suis obliger de faire :
With Selection.Validation
.Delete
.Add xlValidateList, xlValidAlertStop, xlBetween,
Formula1:=Module1.getListApplication
.IgnoreBlank = True
.InCellDropdown = True
End With
.
vous pouvez connaître le nom de votre listbox avec :
Sub Associe() ' Dim ListeMod As Shape
For Each ListeMod In ActiveSheet.Shapes MsgBox ListeMod.Name Next
End Sub
Une fois la listbox créé, trouvez le nom, ajuster la propriété ColumnCount et importer vos donnée.
Michel
-----Message d'origine----- cela ne passe pas car pour multiple raison je n'ai pas créer d'objet listbox sur ma feuille. Le listBox est créer
dynamiquement avec mon selection.validation donc je n'ai pas d'objet à proprement dit "listbox$i"
Je suis obliger de faire : With Selection.Validation .Delete .Add xlValidateList, xlValidAlertStop, xlBetween, Formula1:=Module1.getListApplication .IgnoreBlank = True .InCellDropdown = True End With .
