Modification par USF de ma base client

[Stefan_matlos]

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

 

[Stefan_matlos]

Re : Modification par USF de ma base client

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

merci au formu par avnce pour tous ces precieux renseignements

 

[titilex]

Re : Modification par USF de ma base client

Salut Stef

He bien regarde un post que j'ai crée et qui j'avoue et en cours de resolution, cela pourra eventuellement t'aide...
https://www.excel-downloads.com/threads/listbox-dans-un-usf-avec-systeme-de-tri.79180/
J'essaye de faire un tri via une listbox et ressaisi de donnée avec un jeu de combo et de textbox...

@lex

 

[titilex]

Re : Modification par USF de ma base client

Re le lien du post...

https://www.excel-downloads.com/threads/listbox-dans-un-usf-avec-systeme-de-tri.79180/