pti problème de combobox...

Tu as mis nombre.rowsource dans le deuxième test, c'est normal que ça ne
marche pas !


If combo1.Value = "Rexnord" Then
combo2.RowSource = "dm1:dm5"
End If
If Combo1.Value = "Ets Allards" Then
combo2.RowSource = "dm6:dm10"
End If

A+

Salut,
J'ai placé 2 combobox sur un userform et j'aimerai que la rowsource de la
combo2 change en fonction de ce que je choisis dans ma combo1.
J'ai essayé ceci :

Private Sub combo1_Change()

If combo1.Value = "Rexnord" Then
combo2.RowSource = "dm1:dm5"
End If
If Combo1.Value = "Ets Allards" Then
nombre.RowSource = "dm6:dm10"
End If

End Sub

Mais ça ne fonctionne pas...Pourriez-vous m'aider ??

Non, en fait je me suis juste trompé en l'écrivant, désolé.Il doit y avoir
qqch d'autre qui cloche.Est-ce que dans les propriétés de ma combo2, je dois
mettre qqch dans la case "RowSource" ? ou alors dois-je la laisser vide...?

Bonjour,

En supposant que la liste des noms de votre Combo1 est
dans la plage "dg1:dg2" essayez ceci:

'*******************
Private Sub Combo1_AfterUpdate()
Combo2.RowSource = ""
If Combo1.Value = "Rexnord" Then
Combo2.RowSource = "dm1:dm5"
End If
If Combo1.Value = "Ets Allards" Then
Combo2.RowSource = "dm6:dm10"
End If
End Sub

Private Sub UserForm_Initialize() 'Adapter UserForm selon sa propriété Name
Combo1.RowSource = "dg1:dg2"
End Sub
'*******************

Cordialement.
--
PMO
Patrick Morange

Non, en fait je me suis juste trompé en l'écrivant, désolé.Il doit y avoir
qqch d'autre qui cloche.Est-ce que dans les propriétés de ma combo2, je dois
mettre qqch dans la case "RowSource" ? ou alors dois-je la laisser vide...?

J'ai testé chez moi en copiant ton code, j'ai laissé le rowsource de la
combo2 à vide au départ,
Et ça marchait sans problème.

Fais-tu la différence entre majuscule minuscule ??

Non, en fait je me suis juste trompé en l'écrivant, désolé.Il doit y avoir
qqch d'autre qui cloche.Est-ce que dans les propriétés de ma combo2, je dois
mettre qqch dans la case "RowSource" ? ou alors dois-je la laisser vide...?

Merci pour votre aide,mais il reste un dernier problème :
Apparemment lorsque je sélectionne une donnée dans ma combo1, il ya le bon
nombre de donnée dans la combo2 mais il n'y a rien d'écrit !! c'est vide.
Je n'ai pas fait d'erreur de majuscule/minuscule ni de synthaxe.
Pourriez-vous m'éclairer ?

------------------------------------------------------------------------------------------

Bonjour,

En supposant que la liste des noms de votre Combo1 est
dans la plage "dg1:dg2" essayez ceci:

'*******************
Private Sub Combo1_AfterUpdate()
Combo2.RowSource = ""
If Combo1.Value = "Rexnord" Then
Combo2.RowSource = "dm1:dm5"
End If
If Combo1.Value = "Ets Allards" Then
Combo2.RowSource = "dm6:dm10"
End If
End Sub

Private Sub UserForm_Initialize() 'Adapter UserForm selon sa propriété Name
Combo1.RowSource = "dg1:dg2"
End Sub
'*******************

Cordialement.
--
PMO
Patrick Morange

Combo2.ListIndex = 0 après le chargement

Merci pour votre aide,mais il reste un dernier problème :
Apparemment lorsque je sélectionne une donnée dans ma combo1, il ya le bon
nombre de donnée dans la combo2 mais il n'y a rien d'écrit !! c'est vide.
Je n'ai pas fait d'erreur de majuscule/minuscule ni de synthaxe.
Pourriez-vous m'éclairer ?

------------------------------------------------------------------------------------------

Bonjour,

En supposant que la liste des noms de votre Combo1 est
dans la plage "dg1:dg2" essayez ceci:

'*******************
Private Sub Combo1_AfterUpdate()
Combo2.RowSource = ""
If Combo1.Value = "Rexnord" Then
Combo2.RowSource = "dm1:dm5"
End If
If Combo1.Value = "Ets Allards" Then
Combo2.RowSource = "dm6:dm10"
End If
End Sub

Private Sub UserForm_Initialize() 'Adapter UserForm selon sa propriété Name
Combo1.RowSource = "dg1:dg2"
End Sub
'*******************

Cordialement.
--
PMO
Patrick Morange

Merci pour votre aide, ya du mieux mais il reste un dernier problème :

Apparemment lorsque je sélectionne une donnée dans ma combo1, il ya le
bon
nombre de donnée dans la combo2 mais il n'y a rien d'écrit !! c'est vide.
Je n'ai pas fait d'erreur de majuscule/minuscule ni de synthaxe.
C'est peut être dû au fait que ce ne sont pas des valeurs mais des mots.
Auriez-vous une petite idée....?

Combo2.ListIndex = 0 après le chargement
Je l'ai déjà dis !!

Merci pour votre aide, ya du mieux mais il reste un dernier problème :

Apparemment lorsque je sélectionne une donnée dans ma combo1, il ya le
bon
nombre de donnée dans la combo2 mais il n'y a rien d'écrit !! c'est vide.
Je n'ai pas fait d'erreur de majuscule/minuscule ni de synthaxe.
C'est peut être dû au fait que ce ne sont pas des valeurs mais des mots.
Auriez-vous une petite idée....?

ça ne fonctionne pas...je rame.... :-( ça devrait marcher pourtant...
Il existe peut-être une autre méthode, non?

Envoi moi un classeur exemple si tu veux, je te le renvoi corrigé

ça ne fonctionne pas...je rame.... :-( ça devrait marcher pourtant...
Il existe peut-être une autre méthode, non?