probleme de code!!

[Bouba]

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

 

[Bouba]

pour mieux comprendre voici un racourci vers mon classeur
http://soufiane3.free.fr

 

[michel]

bonjour Bouba

il y a quelques erreurs de synthaxe dans la macro

Do While ActiveWorkbook.Sheets("Factures Fournisseurs").Range("B" & i) <> ""

ActiveWorkbook.Sheets("Factures Fournisseurs").Range("B" & i) = TextBox2.Value


je n'ai pas testé , mais tu peux aussi essayer cette adaptation :


Private Sub CommandButton4_Click()
Dim i As Integer
Dim j As Byte

For j = 2 To 6
If Me.Controls("TextBox" & j) = "" Then MsgBox "Veuiller Finir la saisie SVP ! ": Exit Sub
Next j

i = ActiveWorkbook.Sheets("Factures Fournisseurs").Range("D9").End(xlUp).Row + 1

With ActiveWorkbook.Sheets("Factures Fournisseurs")
.Range("B" & i) = TextBox2
.Range("C" & i) = TextBox3
.Range("E" & i) = TextBox4
.Range("F" & i) = TextBox5
.Range("G" & i) = TextBox6
End With

For j = 2 To 6
Me.Controls("TextBox" & j) = ""
Next j

End Sub


bon apres midi
MichelXld