Création de ComboBox
Résolu
louis
-
louis -
louis -
Bonjour,
Mon problème est un peu compliqué.
Je souhaite créer une ComboBox dans une feuille excel lorsque je lance ma macro, et je souhaite ajouter des valeurs dans la ComboBox en même temps que je la crée. C'est cette dernière partie qui pose problème.
Ma macro, pour créer la ComboBox est simple :
Sub Macro2()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=100, Top:=100, Width:=225, Height:= _
97.5).Select
End Sub
Ensuite dans la feuille où je veux créer la ComboBox j'ai mis la macro d'initialisation suivante :
Private Sub ComboBox1_Initialize()
Me.ComboBox1.AddItem "Temps plein"
Me.ComboBox1.AddItem "Intérimaire"
End Sub
Je n'arrive pas à appeler cette macro depuis Macro2, je n'arrive donc pas à ajouter des valeurs dès le départ à ma ComboBox. J'ai tenté d'ôter le Private, j'ai tenté de mettre cette macro dans le même module que Macro2 (il me dit qu'il connait pas Me), mais ça ne marche pas.
Merci par avance pour votre aide !!!
Mon problème est un peu compliqué.
Je souhaite créer une ComboBox dans une feuille excel lorsque je lance ma macro, et je souhaite ajouter des valeurs dans la ComboBox en même temps que je la crée. C'est cette dernière partie qui pose problème.
Ma macro, pour créer la ComboBox est simple :
Sub Macro2()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=100, Top:=100, Width:=225, Height:= _
97.5).Select
End Sub
Ensuite dans la feuille où je veux créer la ComboBox j'ai mis la macro d'initialisation suivante :
Private Sub ComboBox1_Initialize()
Me.ComboBox1.AddItem "Temps plein"
Me.ComboBox1.AddItem "Intérimaire"
End Sub
Je n'arrive pas à appeler cette macro depuis Macro2, je n'arrive donc pas à ajouter des valeurs dès le départ à ma ComboBox. J'ai tenté d'ôter le Private, j'ai tenté de mettre cette macro dans le même module que Macro2 (il me dit qu'il connait pas Me), mais ça ne marche pas.
Merci par avance pour votre aide !!!
A voir également:
- Création de ComboBox
- Creation de site web - Guide
- Creation compte gmail - Guide
- Creation de compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Creation compte vinted - Guide
2 réponses
Bonjour,
Tu ne peu pas appelé un fonction de feuille privée à partir d'une macro de module
A+
Tu ne peu pas appelé un fonction de feuille privée à partir d'une macro de module
Sub Macro2()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=100, Top:=100, Width:=225, Height:= _
97.5).Select
call Macro3
End Sub
'Juste en dessous de Macro2 tu tape..
sub Macro3()
Sheets("NomFeuille").ComboBox1.AddItem "Temps plein"
Sheets("NomFeuille").ComboBox1.AddItem "Intérimaire"
End Sub
A+
