combobox :Initialisation combobox

**oscar.cesar** · 24/09/2007, 22h01

bonsoir à tous
voila le petit probleme .
j'ai plusieurs combobox qui sont initialise par le code suivant

Code :

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

1
2
3
4
5
Dim jj As Integer 'debut de la procedure pour eliminer les doublons 
For jj = 2 To Sheets("course").Range("G65536").End(xlUp).Row
ComboBox3 = Sheets("course").Range("G" & jj)
If ComboBox3.ListIndex = -1 Then ComboBox3.AddItem Sheets("course").Range("G" & jj)
Next jj 'fin de la procedure doublon

seulement à l'ouverture du fourmulaire je souhaiterai que le contenu des combobox concernes soient ="tout". seul une action par l'utilisateur qui va selectionner le combobox considere aura acces alors au divers choix repris par le code ci-dessus.

Tout cela dans le but de faire le test suivant
combobox1.value ="tout" et combobox2.value="animaux" et combobox3.value="tout"then
intruction
end if

je precise que "tout" signe que qql soit la valeur trouvée, la comparaison dans le test sera " toujours VRAI"

bon j'espere avoir ete le plus clair possible

merci d'avance

.

**olaxius** · 25/09/2007, 08h35

Je voudrais bien t'aider , mais relis toi c'est incompréhensible

**oscar.cesar** · 25/09/2007, 16h27

bonjour
je me permets de reformuler ma question en relation àvec mon dernier post.
je souheterai realiser un test avec If conditions then Instruction.
jusque la, pas de probleme. (Tout cela pour trier des donnees)

mais...............
dans "conditions" je souhaite imbriquer plusieurs conditions comme
SI objet =rond AND taille=grande AND couleur=rouge THEN instructions.

seulement la condition objet et /ou taille et/ou couleur peut etre vide .
donc le test si dessus sera toujours faux .
je souhaite que si une ou des conditions est vide alors toutes les possibilites de la condition soient considerées comme bonnes.

si objet="" cela revient à dire que objet=rond ou carre ou ovale et.....

je precise que le chaque condition est selectionnée à l'aide d'un combobox
donc celui est initialise par le code suivant

Code :

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

1
2
3
4
5
Dim jj As Integer 'debut de la procedure pour eliminer les doublons 
For jj = 2 To Sheets("course").Range("G65536").End(xlUp).Row
ComboBox3 = Sheets("course").Range("G" & jj)
If ComboBox3.ListIndex = -1 Then ComboBox3.AddItem Sheets("course").Range("G" & jj)
Next jj 'fin de la procedure doublon

conclusion
je n'arrive pas a faire ce test multiple lors une condition peut prendre toutes les valeurs possible ?

merci

**ouskel'n'or** · 25/09/2007, 16h33

Code :

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

If Un xor deux xor trois then

**oscar.cesar** · 25/09/2007, 17h22

bonsoir
si j'ai compris

si taille=rond xor taille=carre and taille=petite xor taille= grande and couleur=rouge xor couleur=vert xor couleur=blanc then instruction ????

**ouskel'n'or** · 25/09/2007, 17h31

Comme je ne comprends pas ton And au milieu, je reprends ta question

Code :

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

1
2
3
4
5
if combobox1.value ="tout" xor combobox2.value="animaux" xor combobox3.value="tout" then
     'C'est vrai
     else
     'c'est faux
endif

si seulement l'un d'eux est vrai tu es "dans le vrai" mais si aucun d'eux n'est vrai ou qu'il y a plusieurs vrais alors tu es dans le faux

Edit
Teste ça

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
Sub CestPasVrai()
un = True
deux = False
trois = False
quatre = False
If un Xor deux Xor trois Xor quatre Then
   MsgBox True
   Else
   MsgBox False
End If
un = True
deux = True
trois = False
quatre = False
If un Xor deux Xor trois Xor quatre Then
   MsgBox True
   Else
   MsgBox False
End If
 
End Sub

**oscar.cesar** · 25/09/2007, 17h45

j'apporte qql precision

if condition1 AND condition2 AND condition3 (A)

donc je dois test 3 conditions(OBJET,TAILLE et COULEUR pour excecuter une intruction.

la condition1 appeler OBJET contient les choix possibles :CARRE ou ROND.
la selection est effectuée via combobox1

la condition2 appeler TAILLE contient les choix possibles :GRAND , PETIT ou MOYEN.la selection est effectuée via combobox2

la condition3 appeler COULEUR contient les choix possibles :rouge,vert,noir ou jaune. la selection est effectuée via combobox3

En sachant que l'utlisateur pourra ne pas repondre. En consequence le combobox correspondant à la condition non selectionner devra renvoye dans le TEsT (A) renvoye toujour VRAI (toutes lesvaleurs seront acceptées)

**ouskel'n'or** · 25/09/2007, 18h14

Je ne comprends pas cette phrase

En consequence le combobox correspondant à la condition non selectionnée devra renvoyer dans le TEsT (A) renvoye toujour VRAI (toutes lesvaleurs seront acceptées)

en rouge
A+

**oscar.cesar** · 25/09/2007, 18h26

En consequence le combobox correspondant à la condition non selectionnée devra renvoyer dans le TEsT (A) renvoye toujour VRAI (toutes lesvaleurs seront acceptées)

comme tu l'as compris chaque combobox permet de choisir un element de reponse parmi plusieurs
couleur = Rouge
forme=carre
taille grande
mais l'utilisateur pourra faire le test que sur 2 condition sur 3
exemple
couleur = rouge
forme = toute (toute les possibilites seront donc acceptées d'ou ma phrase)
taille=grande

**ouskel'n'or** · 25/09/2007, 20h30

Code :

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

Ok = (a + b) * (a + c) * (b + c)

Si tu as abc tu as aussi ok
Ça t'aide ? (pas besoin de xor)

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub test()
Dim a As Boolean, b As Boolean, c As Boolean
'Ok = (a + c) * (a + b)  * (b + c)
a = True
b = False
c = True
MsgBox "a = True" & vbCr & "b = False" & vbCr & "c = True" & _
        vbCr & "= " & ((a And b) Or (a And c) Or (b And c))
a = True
b = True
c = False
MsgBox "a = True" & vbCr & "b = True" & vbCr & "c = False" & _
        vbCr & "= " & ((a And b) Or (a And c) Or (b And c))
 
a = False
b = True
c = True
MsgBox "a = False" & vbCr & "b = True" & vbCr & "c = True" & _
         vbCr & "= " & ((a And b) Or (a And c) Or (b And c))
 
a = False
b = False
c = True
MsgBox "a = False" & vbCr & "b = False" & vbCr & "c = True" & _
         vbCr & "= " & ((a And b) Or (a And c) Or (b And c))
 
a = True
b = False
c = False
MsgBox "a = True" & vbCr & "b = False" & vbCr & "c = False" & _
        vbCr & "= " & ((a And b) Or (a And c) Or (b And c))
 
a = True
b = True
c = True
MsgBox "a = True" & vbCr & "b = True" & vbCr & "c = True" & _
        vbCr & "= " & ((a And b) Or (a And c) Or (b And c))
 
End Sub

**oscar.cesar** · 25/09/2007, 20h43

heu,....
ouais sur le principe ok
mais avec les outils if condition then ou elseif

tu as une idee de la structure du test
?

**ouskel'n'or** · 25/09/2007, 20h56

Je suppose qu'aucune sélection entraîne ComboBoxn.value = "" 'si c'est "tout" ça complique...

Code :

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

1
2
3
4
5
6
7
8
Dim a As Boolean, b As Boolean, c As Boolean
Dim ok as boolean
a = Combobox.value <> ""
b = comboBox.value <> ""
c = Combobox.value <> ""
ok = (a and b) or (a and c) or (b and c)
If ok then
     'Ton code

Avec tout, je regarde ce qu'on peut faire
Tu dis

Edit
Si le traitement est différent selon les cas, tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select case true
    Case a and b and c
       'Ton code
    Case a and b and not c
       'Ton code
    Case a and c and not b
       'Ton code
    Case b and c and not a
       'Ton code
    case else
        'les autres
End select

**oscar.cesar** · 25/09/2007, 20h57

tiens j'ai ecrit un bout de code rapidementPièce jointe 19599

**ouskel'n'or** · 25/09/2007, 21h58

Désolé mais j'avais commencé à faire quelque chose dans un userform (que je préfère aux listes, combo et autres placés dans une feuille de calculs)
Le principe reste le même alors je te joins ce que j'ai fait
Pièce jointe 19601
J'espère que tu pourras t'en inspirer...

**oscar.cesar** · 25/09/2007, 22h08

ok merci
je regarde cela

**oscar.cesar** · 28/09/2007, 22h32

bonsoir à tous
Unp eu dure cette semaine, mais je viens de regarde le code et cela est qql peu difficile de l'adapte car il me faut selectionner les combobox
j'ai reflezchi à la possibilite d'activez le combobox.enable via un chekbox .
autrement dit si checkbox cochez alors combobox actif et retenu dans la chaine de condition precedement citée !
mais le combobox.enable =(true/false)ne reagit pas au chekbox ?

help please

**ouskel'n'or** · 29/09/2007, 12h15

Tu as une autre solution sans userform, sans combo box, sans textbox Résultat, bref, sans rien, tout le code étant dans la feuille de code de la feuille de calculs. Tu veux ?

Edit
Finalement, comme ce n'était rien à faire mais bien plus long à expliquer, je l'ai fait Pièce jointe 19748 Je suis pour la simplification

Essai de comprendre le code... c'est mieux

Tu dis
A+

Edit (re)
Je m'aperçois que je n'ai pas été très explicite sur l'utilisation.
Tu sélectionnes ton choix dans chacune des trois colonnes et le résultat de tes choix se place à droite dans les trois colonnes décalées.
Pour réinitialiser un choix, il suffit de sélectionner l'en-tête de la colonne concernée.
A+

combobox :Initialisation combobox

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager