Combobox et function

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Combobox et function

yeram

Bonjour,

Je voudrais faire appel à une fonction pour remplir mes combobox (60 combobox à remplir, autant utiliser une fonction ou procédure) en VBA.
Mais j'ai une erreur lors de l'exécution.
Voici mon code :

Code :

private Sub Worksheet_Activate()
Dim NBfais As Integer
NBfrais = 4
If ComboBox1.ListCount <> NBfrais Then
List (ComboBox1)
End If
End Sub
Function List(ByVal NameComboBox As ComboBox) As Boolean
NameComboBox.AddItem "Dogs"
NameComboBox.AddItem "Cats"
NameComboBox.AddItem "Mice"
NameComboBox.AddItem "Other"
End Function

Le même principe fonctionne en VB.
Auriez vous une idée ?

Merci,
yeram

Publicité

galopin01

Les Fonctions VBA ne fonctionnent pas comme ça. utilise une (sous) procédure.

Code :

Private Sub Worksheet_Activate()
Dim NBfais As Integer
NBfrais = 4
If ComboBox1.ListCount <> NBfrais Then
ListA ComboBox1
End If
End Sub
Sub ListA(ByVal NameComboBox As ComboBox)
NameComboBox.AddItem "Dogs"
NameComboBox.AddItem "Cats"
NameComboBox.AddItem "Mice"
NameComboBox.AddItem "Other"
End Sub

... A moins d'utiliser une fonction qui renvoie un Array : ça je n'ai pas essayé ! c'est pitêtre une sottise...
A+

Message édité par galopin01 le 03-03-2010 à 11:47:02

yeram

OK, merci Galopin1
Quelqu'un a déjà fais un boucle pour remplir plusieurs Combobox ?

genre :

Code :

Private Sub Worksheet_Activate()
For i = 1 To 62
If combo.ListCount <> NBList() Then
ListAutreFrais ComboBox&i
End If
Next i
End Sub

Message édité par yeram le 03-03-2010 à 14:05:18

yeram

Voici la réponse :

Code :

Option Explicit
Private Sub Worksheet_Activate()
Dim OleObj As OLEObject
For Each OleObj In Feuil1.OLEObjects
If OleObj.Object.ListCount <> NBList() Then
List OleObj.Object
End If
Next
End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Combobox et function

Sujets relatifs
Liste dans Combobox	Warning: mail() [function.mail]: Permission denied: headers injection
Effacer une ligne d'une combobox VB6 sous XP	[wxWidgets] La macro WXDLL_ENTRY_FUNCTION
macro creation autormatique combobox VB	Pure virtual function call
Gerer un evenement suite à une selection dans un ComboBox	Erreur de la Function Filemtime()
utiliser une variable d'un combobox Flash	Call to a member function on a non-object
Plus de sujets relatifs à : Combobox et function

Page générée en 0.049 secondes