MASSJIPE
XLDnaute Impliqué
Bonjour
Je voudrai charger les deux combobox2 et 3 et trois textbox3, 4 et 5 selon la combobox1 qui charge une liste de la colonne C mais je ne sais pas quoi modifier
La combo1 affiche une liste de N° en colonne C et doit charge les combobox et texbox en fonctionne des cellules correspondant la ligne concerné
le code a été adapté avec différent code
Merci
Je voudrai charger les deux combobox2 et 3 et trois textbox3, 4 et 5 selon la combobox1 qui charge une liste de la colonne C mais je ne sais pas quoi modifier
La combo1 affiche une liste de N° en colonne C et doit charge les combobox et texbox en fonctionne des cellules correspondant la ligne concerné
le code a été adapté avec différent code
Merci
Code:
Dim DerLigne As Long
Private Sub ComboBox1_Change()
TextBox4.Value = Sheets("Controle protection V1 +").Range("T" & MODIF.ComboBox1.ListIndex + 5)
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
DerLigne = Range("C3").End(xlDown).Row
MODIF.ComboBox1.RowSource = "c3:c" & DerLigne
End Sub
Private Sub CommandButton1_Click()
With Sheets("Controle protection V1 +")
If Not IsDate(TextBox4) Then
Exit Sub
End If
' .Range("C4") = CDate(TextBox2)
' Sheets("Controle protection V1 +").Range("C4").Value = Me.TextBox4.Text
' Sheets("Controle protection V1 +").Range("L4").Value = Me.TextBox3.Text Format(TextBox5.Value, "dd-mmm-yyyy")
Sheets("Controle protection V1 +").Range("S" & MODIF.ComboBox1.ListIndex + 3).Value = Format(TextBox4.Value, "dd-mmm-yyyy")
Sheets("Controle protection V1 +").Range("Y" & MODIF.ComboBox1.ListIndex + 3).Value = Me.TextBox3.Text
Sheets("Controle protection V1 +").Range("T" & MODIF.ComboBox1.ListIndex + 3).Value = Format(TextBox5.Value, "dd-mmm-yyyy")
Sheets("Controle protection V1 +").Range("U" & MODIF.ComboBox1.ListIndex + 3).Value = Me.ComboBox2.Text
Sheets("Controle protection V1 +").Range("V" & MODIF.ComboBox1.ListIndex + 3).Value = Me.ComboBox3.Text
End With
Unload Me
MODIF.Show 0
End Sub
Dernière édition: