combox assez technique

Version imprimable

09/05/2008, 15h19
stéphanie123

combox assez technique

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
09/05/2008, 15h53
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 ?
09/05/2008, 15h58
stéphanie123

combox assez technique

mes combox sont dans un userform
09/05/2008, 20h46
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 ;)
09/05/2008, 20h49
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;
10/05/2008, 00h03
ouskel'n'or
Citation:

Envoyé par ousk'

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:

1 2 3 12 mois 18 mois 60 mois
ou
Code:

1 2 3 4 5 6 7 8 12 mois Cellule vide Cellule vide 18 mois Cellule vide Cellule vide Cellule vide 60 mois
.....................?
10/05/2008, 15h05
stéphanie123

les cellules sont disposés de cette manière dans mon combox
12 mois
18 mois
60 mois

dans ma base de donnée il peut y avoir une suite de 18 mois
ensuite une suite de 12 mois ect
je n'ai pas 12 mois, 18, ensuite 60 un aprs l'autre.

Si je peux me permettre, pourquoi ne pas simplement faire

Code:

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
With ComboBox4
    .AddItem "6 mois"
    .AddItem "12 mois"
    .AddItem "18 mois"
    .AddItem "Tous"
End With
End Sub

:question:

10/05/2008, 19h27
stéphanie123

combox assez technique

oui sa serait simple comme ça!

mais les dates 12 18 60 se trouvent dans des cellules de ma base de donnée.
Mois je voudrais faire dire dans mon userform qui me donne le choix de sélectionner soit les dates qui se trouvent dans ma base qui sont pour ce cas là 12 18 60, soit d'afficher toutes les dates et donc avoir le choix "tous"

toi tu spécifie que dans mon code j'identifie 12, 18, 60 , ce n'est pas bon car les valeurs je les récupéres dans ma base de donnée .Ils sont aussi ammener à changer.
11/05/2008, 22h48
fring

Désolé mais j'ai du mal à comprendre, il me semblait que tu voulais afficher "12 - 18 - 60 - tous" dans ton ComboBox mais apparement ce n'est pas ça. Tu veux sélectionner les dates selon le choix dans le Combo et les afficher quelque part ? Tu veux afficher quoi exactement et où ?
11/05/2008, 23h52
stéphanie123

j'ai une boite de dialogues dans laquelle le combox affiche les valeurs de la colonne x. dans cette colonne les données sont 12 18 60 mois. si je click sur une des valeurs alors cela vas m'afficher cette valeur. ce que je veux c'est avoir un choix supplémentaire , c'est à dire pouvoir sélectionner aussi les tous en même temps.
Donc si il y aune méthode avec du code pour lui faire dire de prendre l'ensembles des dates donc "tous", je suis preneurs

oui ce que je veux c'est affichée dans mon combobox les valeurs déja presente dans mon combobox12 18 60mois + "tous" qui sera le fruit de l'ensemble des données présentent dans la colonne x , ici 12 18 60lmois.

Citation:

Envoyé par stéphanie123

oui ce que je veux c'est affichée dans mon combobox les valeurs déja presente dans mon combobox12 18 60mois + "tous" qui sera le fruit de l'ensemble des données présentent dans la colonne x , ici 12 18 60lmois.

et tu trouves ça compréhensible ? 8O

pour ajouter dans ton Combo (qui contient les valeurs 12 - 18 et 60 mois) "Tous", tu fais

Code:

MonComboQuiMePoseProblème.AddItem "Tous"

Ensuite pour exécuter une action selon la sélection dans ce Combo
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub ComboBox1_Change() Select Case ComboBox1.Value Case "12 mois" 'action si 12 mois Case "18 mois" 'action si 18 mois Case "60 mois" 'action si 60 mois Case "Tous" 'action si tous End Select End Sub
Avec le peu d'infos et le peu que je comprend c'est tout ce que peux te proposer.
Si cela ne correspond toujours pas à tes attentes, tu devrais sans doute poser la question à ton prof qui sera plus apte à te répondre ;)

13/05/2008, 12h27
ouskel'n'or

1 pièce(s) jointe(s)
Citation:

Envoyé par stéphanie123

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:

1 2 3 For NoLig = PremiereLigne to derniereLigne Listbox1.additem Cells(NoLig, NoCol) Next
mais tu peux aussi utiliser RowSource.

Code:

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"... Pièce jointe 30031
Bon courage.

essaie

Code:

ComboBox4.RowSource = "a1:a4"

le range des dates
ou

Code:

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

13/05/2008, 21h37
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
14/05/2008, 00h15
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:

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:

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.

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

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

14/05/2008, 20h15
stéphanie123

super merci