Discussion :

[orcinus]

bonjour quelqu’un pourrait-il m'indiquer un tuto ou une discussion ou l'on parle de plusieurs zones de liste dans une meme userform avec code
merci d'avance

jean marc

[Philippe Tulliez]

Bonjour,
Tu tapes dans Google par exemple excel listbox cascade ou Excel Combobox Cascade
En attendant voici deux liens sur DVP
Comment alimenter des ComboBox de manière conditionnelle et en cascade ?
Listbox Cascade Plusieurs Plage

[orcinus]

bonjour
je trouve pas l'info que j'aurais besoin
si quelqu’un pouvez regardez mon code
toutes mes zones de listes fonctionne le seul problème c'est que quant je veux valider en cliquant sur nouveau la boite de dialogue "merci de remplir tous les champs s'ouvre systématiquement et donc je ne peux valider mes nouvelles donnes
merci d'avnce

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
40
41
42
43
44
 
Private Sub nouveau_Click()
Dim i As Integer
If nouveauclient.nomduclient = "" Or nouveauclient.nomagence = "" Or nouveauclient.nomdomaineconcerné <> "" Or nouveauclient.nomtypededemande <> "" Then
MsgBox "merci de remplir les champs"
Else
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 1).Offset(1, 0).Select
i = i + 1
Loop
ActiveCell.Value = nouveauclient.nomduclient.Value
ActiveCell.Offset(0, 1).Value = nouveauclient.nomagence.Value
ActiveCell.Offset(0, 2).Value = nouveauclient.nomdomaineconcerné.Value
ActiveCell.Offset(0, 3).Value = nouveauclient.nomtypededemande.Value
Unload nouveauclient
End If
End Sub
Private Sub annuler_Click()
nouveauclient.Hide
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
i = 1
Do While Worksheets("agences").Cells(i, 1) <> ""
nomagence.AddItem Worksheets("agences").Cells(i, 1)
i = i + 1
Loop
i = 1
 'domaineconcerné nomdomaineconcerné
Do While Worksheets("domaines").Cells(i, 1) <> ""
nomdomaineconcerné.AddItem Worksheets("domaines").Cells(i, 1)
i = i + 1
Loop
 'type de demandes nomtypededemande
i = 1
Do While Worksheets("type de demandes").Cells(i, 1) <> ""
nomtypededemande.AddItem Worksheets("type de demandes").Cells(i, 1)
i = i + 1
Loop
 
End Sub

[SfJ5Rpw8]

Bonsoir,

et que fait ce test pour toi :

Code :

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

If nouveauclient.nomduclient = "" Or nouveauclient.nomagence = "" Or nouveauclient.nomdomaineconcerné <> "" Or nouveauclient.nomtypededemande <> "" Then

[orcinus]

bonjour
merci de prêté attention a ma question.
donc pour moi ce code demande qu'il est bien une valeur sectionnée par liste de choix

[SfJ5Rpw8]

Et pour toi que sont les opérateurs :

= , <> et OR

?

[casefayere]

ça ne serait pas plutot

Code :

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

If nouveauclient.nomduclient = "" and nouveauclient.nomagence = "" and nouveauclient.nomdomaineconcerné = "" and nouveauclient.nomtypededemande = ""

[SfJ5Rpw8]

ça ne serait pas plutot

Code :

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

If nouveauclient.nomduclient = "" and nouveauclient.nomagence = "" and nouveauclient.nomdomaineconcerné = "" and nouveauclient.nomtypededemande = ""

[casefayere]

Bonjour bbil,

Mes excuses et bonsoir
C'est la fatigue, donc à orcinus garder tous les"=" mais remplacer "and" par "or"

Bonne soirée

[orcinus]

bonjour
et

avec "and" sa fonctionne nickel

merci a vous pour votre

je suis novice et je me débrouille comme je peut. Donc votre aide met très utile

jean marc

[SfJ5Rpw8]

bonjour
et

avec "and" sa fonctionne nickel

?? tu as essayé de ne remplir qu'un seul champ ?

[orcinus]

sa y est l'affaire est résolu
j'ai modifier avec "and " et sa marche très bien
merci encore

jean marc

[SfJ5Rpw8]

?? tu as essayé de ne remplir qu'un seul champ ?