Re : formulaire de modification avec Combobox et texbox pre-rempli
Bonjour
Je reviens vers vous , pour mon pb de modification
Ca avance; j'arrive a modifier 1 valeur de mon tableau; par contre , l'userform
supprime toute les cellules qui ne sont pas renseignée par les textbox???
Exemple , colonne 2 à 7....
Je ne vois comment resoudre ce problème
EN tous cas ; une nouvelle fois 1 grand merci
CODE MAJ
Private Sub BtnValider_Click()
Application.EnableEvents = False
ReDim VLgn(1 To 1, 1 To 43)
If LCou = 0 Then
LCou = CL.PlgTablo.Rows.Count
With CL.PlgTablo.Rows(LCou): .Copy: .Insert: End With
LCou = LCou + 1: End If
VLgn(1, 8) = Me.TextBox1.Text
VLgn(1, 9) = Me.TextBox10.Text
VLgn(1, 27) = Me.TextBox2.Text
VLgn(1, 30) = Me.TextBox7.Text
VLgn(1, 34) = Me.TextBox8.Text
VLgn(1, 43) = Me.TextBox9.Text
VLgn(1, 10) = Replace(Me.TextBox11.Text, "%", "") / 100
VLgn(1, 11) = Replace(Me.TextBox12.Text, "%", "") / 100
VLgn(1, 12) = Replace(Me.TextBox13.Text, "%", "") / 100
VLgn(1, 13) = Replace(Me.TextBox14.Text, "%", "") / 100
VLgn(1, 14) = Replace(Me.TextBox15.Text, "%", "") / 100
VLgn(1, 15) = Replace(Me.TextBox16.Text, "%", "") / 100
VLgn(1, 16) = Replace(Me.TextBox17.Text, "%", "") / 100
VLgn(1, 17) = Replace(Me.TextBox18.Text, "%", "") / 100
VLgn(1, 18) = Replace(Me.TextBox19.Text, "%", "") / 100
VLgn(1, 19) = Replace(Me.TextBox20.Text, "%", "") / 100
VLgn(1, 20) = Replace(Me.TextBox21.Text, "%", "") / 100
VLgn(1, 21) = Replace(Me.TextBox22.Text, "%", "") / 100
VLgn(1, 33) = Replace(Me.TextBox4.Text, "%", "") / 100
CL.PlgTablo.Rows(LCou).Resize(, 92).Value = VLgn()
CL.Actualiser
Application.EnableEvents = True
End Sub