Discussion :

[Swiper]

Salut, je pense que le titre dis tout. J'ai une combo box et je voudrais qu'une selection nommée puisse en etre la destination. J'ai essayé dans RowSource ="Date_filtre" ; =Date_filtre ; Date_filtre ; "Date_filtre". Seul =Date_filtre ne m'affiche pas d'erreur à la validation.

Mais au lancement de la macro ca ne fonctionne pas, je n'ai aucun choix dans ma zone de choix...

[zazaraignée]

Code :

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

monCombo.RowSource = Range("nomDeLaPlage")

[Swiper]

Ca ne marche pas :'(

Erreur '380'
Impossible de définir la propriété RowSource. Valeur de propriété non valide.

[zazaraignée]

Il est où ton ComboBox, directement sur la feuille ou sur un UserForm ?

[Swiper]

J'ai sur un userform 3 combobox et la 3 eme doit etre renseigné par rapport aux 2 autres combobox.

Ce que j'ai fait je le marque dessous :

Code :

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

NomDeMonUserform.ComboBoxDate.RowSource = Range("Date_filtre")

[zazaraignée]

Et est-ce que par le plus grand des hasard cette combobox qui dois recevoir les données de Date_Filtre ne serait pas la troisième combobox sus nommée?

[Swiper]

Oui excuses moi, j'ai oublier de le dire. Mais cela poserait-il problème ?

[zazaraignée]

Et comment! Tu veux mettre des valeurs contenues dans une plage mais seulement certaines d'entre elles selon un filtre donné. Ce n'est pas la même chose que mettre bêtement le contenu d'une plage dans un comboBox.

Enregistre une macro qui applique le filtre et examine le code. Ça te donnera un point de départ pour les conditions du filtre.

[Swiper]

Non, non, je me suis mal fait comprendre. En fait, la selection des cellules est déja faite. C'est "Date_filtre" qui est la plage de cellules.

Date_filtre n'est qu'un nom barbare que j'ai pu trouver, ce n'est pas une selection avec un filtre appliquée à celle-ci. A partir de cette plage de cellule nommée, je voudrais que ma comboBox3 puisse prendre les valeurs des cellules de la plage nommée.

[zazaraignée]

Hoaah! C'est mon erreur! M'excuse!

Code :

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

maCombo.RowSource = Range("maPlage").Address

Il manquait le .Address!

[Swiper]

C'est vraiment bizarre, quand je regarde le range ca me donne bien $L$5,$L$7, etc...
Mais le combobox n'as toujours rien...
Normalement une propriété rentré ne change pas une fois que le prog a terminé, ce que je veux dire c'est que dans ce cas, normalement dans la propriété de ma combobox3, RowSource il doit y avoir marqué quelquechose nan ?

Là il n'y a rien, et même pendant l'éxecution il n'y a rien...

[SilkyRoad]

bonjour

zazaraignée a écrit
maCombo.RowSource = Range("maPlage").Address

chez moi ça fonctionne ...
éventuellement, précise le nom de la feuille dans ta procedure



michel

[zazaraignée]

Comment tu t'y es pris pour nommer cette plage de cellules?

[Swiper]

Désolé Zaza, mais je n'ai l'internet qu'au travail

Tout d'abord, je suis dans un Tableau Croisé Dynamique qui est filtré (par les 2 premières comboBox)dans lequel je trouve le numéro d'échantillon. Ensuite, je cherche sur la source du tableau(qui est dans une autre feuille) le numéro d'échantillon correspondant, je prend la cellule de la date et je la mets dans une selection enregistrée, comme je suis dans une boucle la selection s'agrandie et une fois la selection terminée je l'enregistre en tant que "Date_filtre".

Je voudrais en fait, que suivant la selection des premières combobox, la 3ème me donne les choix de "Date_filtre" en mettant pour cela dans la propriété RowSource la plage nommée "Date_filtre".

Avec la solution que tu m'as donné cela ne fais pas d'erreur mais mon comboBox n'affiche rien...

Peut-on déja changer la source d'un comboBox pendant une execution ?

[Swiper]

Pour bien montrer ce que je voudrais faire je vais donner un fichier exemple en simplifié qui montre bien comment j'aimerais que cela soit fait.


En fait j'ai nommé 2 plages de cellules une qui s'apelle DA qui est simplement A1:A11 et une autre DAT qui elle est un peu plus complexe, je l'obtiens en fonction des nombres qui sont marqués dans le Tableau Croisé Dynamique.

Je voudrais simplement que ma combobox affiche les données dans ma selection nommée DAT.
Je n'arrive pas à deviner pourquoi es ce que cela ne marche pas...

[zazaraignée]

Ta plage nommée est donc plus ou moins liée au tableau croisé dynamique ? Ça commence à être tordu! Je ne sais pas si j'aurai le temps cette semaine. Mais en tout cas, rein n'empêche à d'autres de t'aider.

Bon courage.

Je reviendrai voir un peu plus tard.

[Swiper]

J'ai mis un fichier exemple en page 1, il est simplifié mais ca montre bien l'incompréhension qui règne dans mon bout de code.

Sinon il va falloir que je copie les lignes qui m'interesse quelquepart pour palier grossièrement à ce problème. Malheureusement je n'aime pas ce qui est grossier...

[SilkyRoad]

bonsoir

Tu peux tester cette adaptation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim DAT As Range
 
Columns("g").Find(what:="numéro").Offset(1).Select
numech = Range(Selection, Columns("G").Find(what:="total").Offset(-1)).Rows.Count
 
For i = 1 To numech
 
    num = Sheets(1).Columns("G").Find(what:="numéro").Offset(0 + i)
 
    Columns("D").Find(what:=num).Offset(0, -3).Select
 
    If i = 1 Then
        Set DAT = Selection
        ComboBox2.AddItem Selection.Value
        Else
        Set DAT = Union(DAT, Selection)
        ComboBox2.AddItem Selection.Value
    End If
Next
 
Names.Add Name:="DAT", RefersTo:=DAT

michel

[Swiper]

MÂâarci Michel,

J'y avais penser chez moi rapidement, mais je ne pouvais pas mettre en application. Je vais m'atteler à faire ce que tu m'as conseillé.

Merci encore