Modification par USF de ma base client

Stefan_matlos à dit:

Bonjour a tous et a toute

je remplie ma feille 1 ( Base client ) par un USF, jusqu ici tout va bien.
le nom de mon client est en textbox2, j aimerais a l aide d'un nouveau USF modifier cette base. le choix etant le nom du client dans un combobox du nveau USF.
ci joint mes codes
Private Sub UserForm_Initialize()
Dim c As Range
For Each c In sheets("liste").Range("C:C")
If Not c = "" Then ComboBox1.AddItem c
Next c
Dim D As Range
For Each D In sheets("liste").Range("A:A")
If Not D = "" Then ComboBox2.AddItem D
Next D
End SubPrivate Sub CommandButton3_Click()
If ComboBox1.Value = "" Then
MsgBox "Tous les champs doivent être complétés", vbCritical + vbOKOnly, "ATTENTION"
Me.ComboBox1.SetFocus
Exit Sub
End If
sheets("Base Client").Range("A65536").End(xlUp).Offset(1, 0) = ComboBox1.Value
sheets("Base Client").Range("C65536").End(xlUp).Offset(1, 0) = ComboBox2.Value
sheets("Base Client").Range("B65536").End(xlUp).Offset(1, 0) = TextBox1.Value
sheets("Base Client").Range("D65536").End(xlUp).Offset(1, 0) = TextBox2.Value
sheets("Base Client").Range("E65536").End(xlUp).Offset(1, 0) = TextBox3.Value
sheets("Base Client").Range("F65536").End(xlUp).Offset(1, 0) = TextBox4.Value
sheets("Base Client").Range("G65536").End(xlUp).Offset(1, 0) = TextBox5.Value
sheets("Base Client").Range("J65536").End(xlUp).Offset(1, 0) = TextBox6.Value
sheets("Base Client").Range("H65536").End(xlUp).Offset(1, 0) = TextBox7.Value
sheets("Base Client").Range("K65536").End(xlUp).Offset(1, 0) = TextBox8.Value
sheets("Base Client").Range("I65536").End(xlUp).Offset(1, 0) = TextBox9.Value
Unload Me
End Sub

Cliquez pour agrandir...