Discussion :

[stéphanie123]

bonjour$


j'ai une question un peux technique,

j'ai 4 combobox dans le dernier cela m'affiche les valeurs d'une colonne que j'appelle x.
dans celle-ci j'ai 3 dates : 12 mois, 18 mois, 60 mois,
comment je pourais faire pour dire qu'il m'affiche les 3 dates
comme cela:
12 mois
18 mois
60 mois
tous

merci àbtous ce qui se penche sur ce Pb

[ouskel'n'or]

Bonjour stéphanie456,
Tout dépend où se trouvent tes combos ? Dans une feuille de calculs ou dans un userform ?
Tu peux répondre à cette question ?
A+

Question subsidiaire : Où se trouvent tes données ? Sur des cellules consécutives ou dans des cellules isolées les une par rapport aux autres ?

[stéphanie123]

mes combox sont dans un userform

[ouskel'n'or]

Tu n'as pas répondu à ma seconde question...
Pour renseigner un combobox, tu peux, selon les cas, utiliser additem ou list ou rowsource. Si tu réponds à ma question, je pourrai te répondre

[stéphanie123]

j'utilise des additem

je répéte mon souci;

j'aimerai afficher dans le 4 éme combo une valeurs qui affiche tous les données
pour ça j'ai 4 combo qui s'alimentent en cascade , mais valeurs des combo sont dans des colonnes de A à D;
j'utilise une boite de dialogue du type userform, et cela sont compilé avec la fonction additem;

[ouskel'n'or]

Question subsidiaire : Où se trouvent tes données ? Sur des cellules consécutives ou dans des cellules isolées les unes par rapport aux autres ?

Code :

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

1
2
3
12 mois
18 mois 
60 mois

ou

Code :

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

1
2
3
4
5
6
7
8
12 mois
Cellule vide
Cellule vide
18 mois
Cellule vide
Cellule vide
Cellule vide
60 mois

.....................?

[ouskel'n'or]

j'utilise des additem

Ce n'était pas ma question. Par exemple si tu veux afficher toutes les données d'une colonnes, suppose que tu aies 60 mois à afficher, tu peux effectivement utiliser Additem dans une boucle

Code :

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

1
2
3
For NoLig = PremiereLigne to derniereLigne
     Listbox1.additem Cells(NoLig, NoCol)
Next

mais tu peux aussi utiliser RowSource.

Code :

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

Listbox1.RowSource = "B2:B" & DerniereLigne

Je te joins un petit fichier que je viens de retrouver. Il est très basique mais il devrait pouvoir te faire comprendre certaines "choses"... Listbox avec Additem, list ou rowsource.xls
Bon courage.

[Montor]

essaie

Code :

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

ComboBox4.RowSource = "a1:a4"

le range des dates
ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub UserForm_Initialize()
ComboBox4.Clear
With Worksheets("Feuil2")  'Non de la feuille  de ces dates
Counter = 9                  '//    Mets le mot  "StopLoading" apres les  dates,  9 indiquer la premiere ligne de chargement ,2 colonne de chargement 
While (.Cells(Counter, 2) <> "StopLoading") And (Counter < 100) 'Pour sortir de la boucle
 
 
    ComboBox4.AddItem (.Cells(Counter, 2))
    Counter = Counter + 1
Wend
End With
End Sub

[stéphanie123]

bonjour,

quand je veux éxécuter , counter est souligné, il me le reconnait pas.

bonjour,

voici mon fichier, j'essaye d'être clair, car il est vrai qu'auparavant je ne l'étais pas.

Dans le combox3 il y a les trois dates qui s'affichent ,
comment je pourrai faire pour afficher dans le combox3 aussi la possibilité "tous".
Et donc de vérifier si l'optionbouton est vrai pour la valeur "tous"
tous= 12 et 18 et 60 mois pour ce cas là.

merci pour votre aide

[Montor]

Parce que vous utilisez "Option Explicit"
Pour ajouter le mot "Tous" c'est facile mais comment vouler vous l'utiliser
Ajouter

Code :

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

1
2
3
4
5
6
7
8
 
    For i = 1 To oCollection.Count
        ComBox3.AddItem oCollection.Item(i)
 
    Next i
    If ComBox3.ListCount > 1 Then
    ComBox3.AddItem ("Tous")
    End IF

VOIR LE FICHIER

[stéphanie123]

super merci

[ouskel'n'or]

Hello delphidelphi,
Tu es gentil de vouloir aider mais as-tu testé ton code ?
Il y a plusieurs manières plus simples de connaître la dernière ligne d'une plage de données sans ajouter une balise. Par exemple, pour la colonne A :

Code :

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

Range("A65536").end(xlup).row

à adapter pour les autres colonnes.
Ensuite, dans ton code, si tu commences avec With, ajoute "End with", sinon, Stéphanie, qui débute visiblement, ne saura pas ce qui se passe.
Enfin, tes parenthèses ne servent à rien.
Corrigé, et en supposant que les données à placer dans le combo soit dans la colonne 1, que les données commencent à la ligne 1, ton code devrait être quelque chose comme ça :

Code :

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

1
2
3
4
5
6
Dim Cell as range
With Thisworkbook.sheets("Feuil2") 'Nom de la feuille
     For each cell in Range("A1:A" & Range("A65536").end(xlup).row)
         ComboBox4.AddItem Cell
     Next
End with

Pour finir, Stéphanie, dans le fichier que j'ai joint, tu as tout ça.