Bonjour le forum
j'ai encore besoin de vous service
Comment écrire l'instruction si la checkbox1 est active ou le checkbox2 donc la listbox1 à la condition 1 etc
sur mon code code j'ai j'ai mis ca :
j'ai mis sur le userform active
ensuite j'ai le code suivant pour alimenter la listbox
les déclaration
ma quand je lance le teste pas de bug mais rien ne s'affiche
la function message est déclarer comme suite:
quelqu'un peux m'expliqué d'ou viens mon erreur svp
j'ai encore besoin de vous service
Comment écrire l'instruction si la checkbox1 est active ou le checkbox2 donc la listbox1 à la condition 1 etc
sur mon code code j'ai j'ai mis ca :
Code:
Public Sub Aliment()
If Opt3 = True Then condist = 1
If Opt2 = True Then condist = 2
If Opt1 = True Then condist = 3
Select Case condi
Case 1
messag
With ListesTri
.ForeColor = &H400000
.AddItem mess(1)
.AddItem mess(2)
.AddItem mess(3)
.AddItem mess(4)
End With
Charger
Case 2
With ListesTri
.ForeColor = &H400000
.AddItem mess(8)
.AddItem mess(9)
.AddItem mess(10)
End With
Case 3
With ListesTri
.ForeColor = &H400000
.AddItem mess(8)
.AddItem mess(9)
.AddItem mess(10)
End With
End Select
End Sub
Code:
Private Sub UserForm_Activate()
Aliment
End Sub
Code:
Public Sub Charger()
Select Case condist
Case 1
trav.AddItem Feuil1.Cells(nohote, 2)
Case 2
Case 3
End Select
End Sub
Code:
Public condi As String
Public condist As Integer
la function message est déclarer comme suite:
Code:
Sub messag()
mess(1) = "Tout"
mess(2) = "Date"
mess(3) = "Secteur"
mess(4) = "Typologie"
mess(5) = "liste Signalements"
mess(6) = "liste Dysfonctionnements"
mess(7) = "Liste des hôtels"
mess(8) = ""
mess(9) = ""
mess(10) = ""
End Sub