B
Bouba
Guest
Bonjour le forum
je n'arrive pas a resoudre le probleme de ce code pourtant je crois bien ecrire.
est ce que vous penser que le code et correcte ou j'ai du faire une erreur.
merci de votre aide
Private Sub CommandButton4_Click()
If TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Or TextBox5.Value = "" Or TextBox6.Value = "" Then MsgBox "Veuiller Finir la saisie SVP ! ": Exit Sub
Dim i As Integer
i = 8
Do While ActiveWorkbook.ActiveSheets("Factures Fournisseurs").Range("B" & i) <> ""
i = ActiveWorkbook.Sheets("Factures Fournisseurs").Range("D9").End(xlDown).Row + 1
Loop
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("B" & i) = TextBox2.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("C" & i) = TextBox3.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("E" & i) = TextBox4.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("F" & i) = TextBox5.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("G" & i) = TextBox6.Value
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
End Sub
je n'arrive pas a resoudre le probleme de ce code pourtant je crois bien ecrire.
est ce que vous penser que le code et correcte ou j'ai du faire une erreur.
merci de votre aide
Private Sub CommandButton4_Click()
If TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Or TextBox5.Value = "" Or TextBox6.Value = "" Then MsgBox "Veuiller Finir la saisie SVP ! ": Exit Sub
Dim i As Integer
i = 8
Do While ActiveWorkbook.ActiveSheets("Factures Fournisseurs").Range("B" & i) <> ""
i = ActiveWorkbook.Sheets("Factures Fournisseurs").Range("D9").End(xlDown).Row + 1
Loop
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("B" & i) = TextBox2.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("C" & i) = TextBox3.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("E" & i) = TextBox4.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("F" & i) = TextBox5.Value
ActiveWorkbook.Sheet("Factures Fournisseurs").Range("G" & i) = TextBox6.Value
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
End Sub