J
Jeny
Guest
re bonjour le forum
j'ai un fichier client (feuille fichier_client)
je n'arrive pas à rajouter des client dans cette feuille si j'en remet un via un userform il m'efface celui qui est mis pour mettre le nouveau
voici mon code
Private Sub ComboBox_clients_Change()
TextBox1.Value = Me.ComboBox_clients.Column(1, Me.ComboBox_clients.ListIndex)
TextBox2.Value = Me.ComboBox_clients.Column(2, Me.ComboBox_clients.ListIndex)
TextBox3.Value = Me.ComboBox_clients.Column(3, Me.ComboBox_clients.ListIndex)
End Sub
Private Sub UserForm_Initialize()
Dim L As Integer
L = Sheets("fichier_client").Range("A65536").End(xlUp).Row
With Me.ComboBox_clients
.ColumnCount = 4
.ColumnWidths = "0;100;0;0"
.RowSource = "fichier_client!A2:d" & L
End With
End Sub
Private Sub CommandButton1_Click()
Dim maligne As Integer
maligne = Sheets("devis").Range("e14").End(xlUp).Row + 1
Sheets("devis").Range("E12") = TextBox1.Value
Sheets("devis").Range("E13") = TextBox2.Value
Sheets("devis").Range("E14") = TextBox3.Value
maligne = Sheets("fichier_client").Range("A65536").End(xlUp).Row + 1
Sheets("fichier_client").Range("b" & maligne) = TextBox1.Value
Sheets("fichier_client").Range("c" & maligne) = TextBox2.Value
Sheets("fichier_client").Range("d" & maligne) = TextBox3.Value
Unload UF_client
End Sub
thierry m'avait aidé sur le chat mais j'ai du formaté et j'ai perdu pas mal de fichier
merci de votre coup de main
bonne journée
jeny
j'ai un fichier client (feuille fichier_client)
je n'arrive pas à rajouter des client dans cette feuille si j'en remet un via un userform il m'efface celui qui est mis pour mettre le nouveau
voici mon code
Private Sub ComboBox_clients_Change()
TextBox1.Value = Me.ComboBox_clients.Column(1, Me.ComboBox_clients.ListIndex)
TextBox2.Value = Me.ComboBox_clients.Column(2, Me.ComboBox_clients.ListIndex)
TextBox3.Value = Me.ComboBox_clients.Column(3, Me.ComboBox_clients.ListIndex)
End Sub
Private Sub UserForm_Initialize()
Dim L As Integer
L = Sheets("fichier_client").Range("A65536").End(xlUp).Row
With Me.ComboBox_clients
.ColumnCount = 4
.ColumnWidths = "0;100;0;0"
.RowSource = "fichier_client!A2:d" & L
End With
End Sub
Private Sub CommandButton1_Click()
Dim maligne As Integer
maligne = Sheets("devis").Range("e14").End(xlUp).Row + 1
Sheets("devis").Range("E12") = TextBox1.Value
Sheets("devis").Range("E13") = TextBox2.Value
Sheets("devis").Range("E14") = TextBox3.Value
maligne = Sheets("fichier_client").Range("A65536").End(xlUp).Row + 1
Sheets("fichier_client").Range("b" & maligne) = TextBox1.Value
Sheets("fichier_client").Range("c" & maligne) = TextBox2.Value
Sheets("fichier_client").Range("d" & maligne) = TextBox3.Value
Unload UF_client
End Sub
thierry m'avait aidé sur le chat mais j'ai du formaté et j'ai perdu pas mal de fichier
merci de votre coup de main
bonne journée
jeny