Novice avance !?
XLDnaute Occasionnel
bonjour
voici mon code que j'aimerais bien améliorer avec votre aide si c'est possible !?
le code a amélioré est en bleu...j'aimerais alimenter la listbox grâce à une boucle !?
Private Util(8)
______________________________________________________________
Private Sub UserForm_Initialize()
Util(0) = "SST1"
Util(1) = "SST2"
Util(2) = "SST3"
Util(3) = "SST4"
Util(4) = "SST5"
Util(5) = "SST6"
Util(6) = "SST7"
Util(7) = "SST8"
Util(8) = "SST9"
For i = 0 To 8
With ComboBox1
.AddItem Util(i)
End With
Next
ComboBox1.ListIndex = 0
End Sub
______________________________________________________________
Private Sub Calendar1_Click()
Label1.Caption = "Modification des UO de la ligne " & ListBox1.Value & " " & ComboBox1.Value & " en date du " & Calendar1.Value
End Sub
_______________________________________________________________
Private Sub ComboBox1_Change()
Label1.Caption = ""
ListBox1.Clear
End Sub
_______________________________________________________________
Private Sub CommandButton1_Click()
Dim choix As Variant
choix = ComboBox1.Value
If choix = "SST1" Then
ListBox1.List() = Sheets("Base_Ref").Range("L2:L36").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST2" Then
ListBox1.List() = Sheets("Base_Ref").Range("L37:L62").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST3" Then
ListBox1.List() = Sheets("Base_Ref").Range("L63:L89").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST4" Then
ListBox1.List() = Sheets("Base_Ref").Range("L90:L91").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST5" Then
ListBox1.List() = Sheets("Base_Ref").Range("L92:L95").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST6" Then
ListBox1.List() = Sheets("Base_Ref").Range("L96:L100").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST7" Then
ListBox1.List() = Sheets("Base_Ref").Range("L101:L102").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST8" Then
ListBox1.List() = Sheets("Base_Ref").Range("L103:L105").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST9" Then
ListBox1.List() = Sheets("Base_Ref").Range("L106:L107").Value
Sheets(choix).Activate
Range("A1").Select
End If
End Sub
______________________________________________________________
Private Sub CommandButton3_Click()
Unload Me
End Sub
merci par avance
bonne journée🙄
voici mon code que j'aimerais bien améliorer avec votre aide si c'est possible !?
le code a amélioré est en bleu...j'aimerais alimenter la listbox grâce à une boucle !?
Private Util(8)
______________________________________________________________
Private Sub UserForm_Initialize()
Util(0) = "SST1"
Util(1) = "SST2"
Util(2) = "SST3"
Util(3) = "SST4"
Util(4) = "SST5"
Util(5) = "SST6"
Util(6) = "SST7"
Util(7) = "SST8"
Util(8) = "SST9"
For i = 0 To 8
With ComboBox1
.AddItem Util(i)
End With
Next
ComboBox1.ListIndex = 0
End Sub
______________________________________________________________
Private Sub Calendar1_Click()
Label1.Caption = "Modification des UO de la ligne " & ListBox1.Value & " " & ComboBox1.Value & " en date du " & Calendar1.Value
End Sub
_______________________________________________________________
Private Sub ComboBox1_Change()
Label1.Caption = ""
ListBox1.Clear
End Sub
_______________________________________________________________
Private Sub CommandButton1_Click()
Dim choix As Variant
choix = ComboBox1.Value
If choix = "SST1" Then
ListBox1.List() = Sheets("Base_Ref").Range("L2:L36").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST2" Then
ListBox1.List() = Sheets("Base_Ref").Range("L37:L62").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST3" Then
ListBox1.List() = Sheets("Base_Ref").Range("L63:L89").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST4" Then
ListBox1.List() = Sheets("Base_Ref").Range("L90:L91").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST5" Then
ListBox1.List() = Sheets("Base_Ref").Range("L92:L95").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST6" Then
ListBox1.List() = Sheets("Base_Ref").Range("L96:L100").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST7" Then
ListBox1.List() = Sheets("Base_Ref").Range("L101:L102").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST8" Then
ListBox1.List() = Sheets("Base_Ref").Range("L103:L105").Value
Sheets(choix).Activate
Range("A1").Select
End If
If choix = "SST9" Then
ListBox1.List() = Sheets("Base_Ref").Range("L106:L107").Value
Sheets(choix).Activate
Range("A1").Select
End If
End Sub
______________________________________________________________
Private Sub CommandButton3_Click()
Unload Me
End Sub
merci par avance
bonne journée🙄