Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Liste en cascade dans un USF

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

chaelie2015

XLDnaute Accro
Bonjour FORUM
Ci-dessous un code qui fonctionne parfaitement
Code: 
'---- liste deroulante ( approbation ) selon la nature de DOC ---------------
Private Sub TextBox34_Change()
Select Case UCase(TextBox34)
  Case "INFORMATION"
    ComboBox19.List = Range("info1").Value
    ComboBox82.Enabled = True
  Case "APPROBATION"
    ComboBox19.List = Range("appro1").Value
  Case "NON APPLICABLE"
    ComboBox19.Enabled = True
    ComboBox82.Enabled = True
    ComboBox91.Enabled = True
    TextBox24.Enabled = True
End Select
End Sub
......

Je souhaite de lui rajouter (combiner) un 2eme code dans la Case "APPROBATION"
Code: 
........
Case "APPROBATION"
    ComboBox19.List = Range("appro1").Value
.........
Le 2eme code
Code: 
Private Sub ComboBox19_Change()
'Select Case ComboBox19.Value
'        Case "Approuvé Sans Réserves"
'          ComboBox82.Value = ""
'          ComboBox82.Enabled = False
'          ComboBox91.List = Range("version1").Value
'          ComboBox91.Enabled = True
'          TextBox24.Enabled = True
'        Case "Approuvé Avec Réserves"
'          ComboBox82.List = Range("avecr1").Value
'          ComboBox82.Enabled = True
'          ComboBox91.List = Range("version1").Value
'          ComboBox91.Enabled = True
'          TextBox24.Enabled = True
'        Case "Non Approuvé"
'          ComboBox82.List = Range("avecr1").Value
'          ComboBox82.Enabled = True
'          ComboBox91.List = Range("version1").Value
'          ComboBox91.Enabled = True
'          TextBox24.Enabled = True
'        Case "Non Reçu"
'          ComboBox82.Enabled = False
'          ComboBox91.Enabled = False
'          TextBox24.Enabled = False
'        Case "Reçu"
'          ComboBox82.Enabled = False
'          ComboBox91.List = Range("version1").Value
'          ComboBox91.Enabled = True
'          TextBox24.Enabled = True
'    End Select
'End Sub

Merci par avance
SALUTATIONS
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Liste en cascade dans un USF

Bonjour, à tous,

Perso, je connais les "True" et "False", mais ""ture" ?
C'est nouveau, ça viens de sortir ?
Si je pouvais avoir quelques infos!🙄


Code: 
Case "INFORMATION"
    ComboBox19.List = Range("info1").Value
    ComboBox82.Enabled = ture
  Case "APPROBATION"
    ComboBox19.List = Range("appro1").Value
  Case "NON APPLICABLE"
    ComboBox19.Enabled = ture
    ComboBox82.Enabled = ture
    ComboBox91.Enabled = ture
    TextBox24.Enabled = ture
End Select

A+

René
 
Vote positif 0 Vote négatif
Re : Liste en cascade dans un USF

Bonjour Forum

je ré explique mon souci😱
dans les textbox (nature de Doc) si je saisi

1. Information alors j'aurai dans les combobox (Approbation) une liste déroulante nommé info1
2. Approbation alors j'aurai dans les combobox (Approbation) une liste déroulante nommé appro1
3. Non Applicable alors j'aurai dans les combobox (Approbation) une liste déroulante nommé nonapplicable

tous ça sa fonctionne avec le 1 code
maintenant , je souhaite développer le cas 2 :
c-a-d si dans le combobox (Approbation) j'ai :

1. Approuvé Sans Réserves alors les ComboBox (Resrv) enabled ,le ComboBox (Ver.) contient une liste déroulante nommé version1
2. Approuvé Avec Réserves alors j'aurai dans les ComboBox (Resrv) une liste déroulante nommé avecr1 ,le ComboBox (Ver.) contient une liste déroulante nommé version1.
3. Non Approuvé c'est le même cas que 2
4. Non Reçu alors les ComboBox (Resrv),ComboBox (Ver.) et le textbox (Date) serant enabled
5. Reçu alors j'aurai ComboBox (Resrv) enabled et ComboBox (Ver.) contient une liste déroulante nommé version1.

tous ça je l'ai fait dans le code 2 mais je souhaite combiner les deux code dans un seul code
espérant que mon souci maintenant est claire.😕
Merci Par Avance
Salutations
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
504
job75
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
767
Nicolas JACQUIN
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
342
CortoXls
C
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
532
jalaba
J
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
677
nat54
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
4 K
Usine à gaz
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
907
Mody200
M
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
956
Phil69970
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
483
job75
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
886
Zonmé
Z
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
362
patricktoulon
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Résolu(e)
Microsoft 365 Amélioration codage
Réponses
4
Affichages
607
pompaero
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
827
Chaton77
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
709
R3n0W
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
727
Francky79
F
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
637
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…