Bonjour,
J suis debutant sur vba, j voulais tester une macro pour enregistrer les donnés, mais quand j click sur le bouton
la ligne (.Cells(ligne, 3) = q) est surligné en jaune et la boite de dialogue " erreur 1004’’ demandant un debogage, je ne comprnd pas ce terme “débogage”
Le code:
Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox4) Then
MsgBox “chiffre uniquement”
Exit Sub
End If
q = CInt(TextBox3) + CInt(TextBox4)
With Sheets(“stock”)
.Cells(ligne, 3) = q
End With
With Sheets(“E-S”)
.Cells(dl, 1) = TextBox1
.Cells(dl, 2) = TextBox2
.Cells(dl, 3) = TextBox4
.Cells(dl, 4) = Date
End With
Unload Me
End Sub