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

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:

---

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

---

Bonjour !

Code:

---

1 2 3

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

---

_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

Çà 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 !

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 …

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:

---

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

---

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

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:

---

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

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 :(

Bonjour,

Citation:

---

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:

---

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

---

As-tu lu la remarque pertinente de Marc ?

Citation:

---

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

---

oui oui je l'ai vu mais seulement après avoir poster le message :oops: 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:

---

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 !

Bonjour,

un exemple que je t'avais préparé
code de Marc tenant compte de la remarque de Philippe

Merci beaucoup pour cet exemple !

Pas de quoi,
j'ai volontairement utilisé ".List" pour remplir la listbox et ".RowSource" pour le combobox, à méditer......