chaelie2015
XLDnaute Accro
Bonjour FORUM
Ci-dessous un code qui fonctionne parfaitement
Je souhaite de lui rajouter (combiner) un 2eme code dans la Case "APPROBATION"
Le 2eme code
Merci par avance
SALUTATIONS
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
.........
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: