Changer le RowSouce d'un Combobox en fonction d'une variable

**justbrow** · 26/05/2016, 15h33

Bonjour,

Je fais face a un problème. J'ai créé un userform contenant un combobox. Cependant j'aimerais que le RowSource du combobox s'adapte et change de table dans laquelle il prend ses données en fonction de ce qu'il y a marqué dans la cellule G2.
Si la cellule G2 contient le mot Formation alors le combobox a pour rowsource la table "formation" et dans l'autre cas le combobox prend pour rowsource table "deplacement".
j'espère avoir été assez clair... Voila mon code, il ne marche pas mais je ne comprend pas pourquoi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_Change()
If Range("G2") = "Formation" Then
UserForm6.ComboBox1.RowSource = "formation"
Else
UserForm6.ComboBox1.RowSource = "deplacement"
End Sub

**Marc-L** · 26/05/2016, 16h40

Bonjour !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox1_Change()
  UserForm6.ComboBox1.RowSource = Range(IIf([G2].Value = "Formation", "formation", "deplacement")).Address
End Sub

_________________________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

**justbrow** · 27/05/2016, 00h27

Çà ne marche pas du tout.. mais je comprend pas ce que ton code fait, parce qu'on dirait que tu n'as pas très bien compris mon problème !

**Marc-L** · 27/05/2016, 00h52

Vu que de mon côté mon code fonctionne à merveille dans une procédure normale, même en se passant de l'adresse de la plage,
j'en déduis que de ton côté tu t'es trompé d'évènement ou tu n'as pas vérifié l'existence des noms
ou encore une simple erreur d'orthographe ou pire une erreur de pointage sur le classeur source, etc …

**casefayere** · 27/05/2016, 01h53

bonsoir,
Je viens de tester le code de Marc, lequel, je le confirme, fonctionne, ce qui m'étonne, c'est l'évènement "Change" utilisé, j'ai, personnellement pris l'évènement "Click" de l'usf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Click()'au hasard
'pour le test
Range("G2") = "deplacement"
UserForm6.ComboBox1.RowSource = Range(IIf([G2].Value = "Formation", "formation", "deplacement")).Address
End Sub

**justbrow** · 27/05/2016, 07h02

Cela serait possible que l'un de vous m'envoie le fichier avec lequel vous avez testé le code ?

**Philippe Tulliez** · 27/05/2016, 07h26

Bonjour,
Il est je pense inutile de t'envoyer un classeur.
Le problème est simple.
La valeur de la propriété RowSource d'un contrôle ComboBox est une chaîne de caractères qui doit reprendre le nom du classeur (par défaut c'est le classeur actif), le nom de la feuille et la plage de cellules
Soit [NomClasseur]NomFeuille!A2:K100
Si tu as nommé tes plages de données "formation" et "deplacement", il faut donc renvoyer en VBA la propriété Address de la plage nommée
Soit par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ComboBox1.RowSource = Range(Range("G2").Value).Address

et Marc à utiliser la fonction IIF pour renvoyer soit l'adresse de la plage nommée formation soit celle de deplacement

**justbrow** · 27/05/2016, 08h37

Ah oui d'accord je comprend mieux, j'ai oublié de préciser que les tables ne sont pas sur la même page que la cellule G2. le problème vient surement de la

Franchement je comprend pas pourquoi ca marche pas, il doit y avoir une erreur bien conne de ma part mais impossible de trouver quoi

**Philippe Tulliez** · 27/05/2016, 08h38

Bonjour,

j'ai oublié de préciser que les tables ne sont pas sur la même page que la cellule G2. le problème vient surement de la

Oui effectivement c'est probable et j'ai oublié de le préciser dans ma réponse précédente.
Personnellement, j'ajoute toujours la propriété External avec comme valeur True

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ComboBox1.RowSource = Range(Range("G2").Value).Address(external:=True)

As-tu lu la remarque pertinente de Marc ?

Et lors d'une réponse il est inutile de reprendre l'intégralité du message précédent ‼

**justbrow** · 27/05/2016, 09h05

oui oui je l'ai vu mais seulement après avoir poster le message

Je ne le ferais plus promis !

Si vous me transmettiez votre fichier avec lequel vous avez fait le test du code ca m'aiderait beaucoup a visualiser comment il marche et ou sont mes erreurs !

Bon pour finir j'ai trouvé une autre solution pour faire ce que je voulais !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
 
If Feuil5.Range("G2") = "Formation" Then
 ComboBox1.AddItem "PROV FORM"
 ComboBox1.AddItem "PARIS FORM"
Else
 ComboBox1.AddItem "PROV DEP"
 ComboBox1.AddItem "PARIS DEP"

Néanmoins Merci a tous pour votre aide !