Remplir combobox Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Remplir combobox Excel

nelly3007

Bonjour je voudrais remplir deux combobox dans Excel nommées "Moyenne " et "Somme" des mêmes champs suivants "Nombre d'heures"; "Salaire Brut"; "Charges"; "Salaire Net"
J'ai donc décidé de faire la procédure suivante :

Private Sub RemplirStat(Var As Object)
With Var
.AddItem "Nombre d'heures"
.AddItem "Salaire Brut"
.AddItem "Charges"
.AddItem "Salaire Net"
End With
End Sub

Puis de faire appel à la procédure :
RemplirStat(Me.Moyenne)
RemplirStat(Me.Somme)

Mais au moment d'exécuter ma macro j'ai un message d'erreur "Objet requis"
Pourtant Me.Moyenne et Me.Somme sont bien des objets car je les ai testé avec IsObject

D'où vient le problème à votre avis ??

Je voulais savoir aussi comment on peut utiliser RowSource avec quelques cellules. Je m'explique :
Je sais que si je mets Me.Moyenne.RowSource="B1:B5" ma combobox Moyenne va se remplir des cellules à B1 à B5 mais si je ne veux que les cellules B3 et B5 par exemple comment faire ???
Si j'écris Me.Moyenne.RowSource="B3;B5" j'ai un message d'erreur.....

Merci d'avance !!!

Publicité

kiki29

Soir Bon
En supposant qu'il s'agit de ComboBoxes sur une UserForm
Sélectionner Call puis [F1]

Option Explicit

Private Sub RemplirStat(Var As ComboBox)
With Var
.Clear
.AddItem "Nombre d'heures"
.AddItem "Salaire Brut"
.AddItem "Charges"
.AddItem "Salaire Net"
End With
End Sub

Private Sub UserForm_Initialize()
Call RemplirStat(Me.Moyenne)
Call RemplirStat(Me.Somme)
End Sub

Private Sub UserForm_Initialize()
RemplirStat Me.Moyenne
RemplirStat Me.Somme
End Sub

ou pourquoi pas

Private Sub UserForm_Initialize()
RemplirStat Me.Moyenne
Call RemplirStat(Me.Somme)
End Sub

[Alt+F11] [F4]
Sélectionner Feuil1 : Propriété (name) ShF1

.....
.AddItem ShF1.Range("B3" )
.AddItem ShF1.Range("B4" )
.AddItem ShF1.Range("B5" )
.....

Message édité par kiki29 le 31-12-2007 à 04:50:42

nelly3007

merci énomément ! toutes ces solutions marchent nickel !!!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Remplir combobox Excel

Sujets relatifs
[excel] prendre en compte les casses	Génération fichier textes formatés depuis VB Excel
Numérotation automatique sur Excel	Excel: imposer une mise en forme selon valeur dans une case
Planning assisté excel; besoin de formules VB pour deux problématiques	[résolu] Automatiser une fonction excel sur vba
Optimisation Comparer deux colonnes en VBA sous Excel	copie selon criteres sous excel
Résolu [Excel] colori selon critère	remplir in combobox avec des données d'excel
Plus de sujets relatifs à : Remplir combobox Excel

Page générée en 0.043 secondes