Formulaire
Shika
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'essaye de faire un formulaire mais quand je lance mon formulaire depuis excel grâce a un bouton de commande j'ai l'erreur suivante : Erreur d'exécution 1004; Erreur définie par l'application ou par l'objet.
Voici le code du formulaire :
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim derligne As Integer
With Worksheets("Feuil1")
derligne = .Range("A65536").End(x1up).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
Next
End With
TextBox1 = ""
End
End Sub
J'essaye de faire un formulaire mais quand je lance mon formulaire depuis excel grâce a un bouton de commande j'ai l'erreur suivante : Erreur d'exécution 1004; Erreur définie par l'application ou par l'objet.
Voici le code du formulaire :
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim derligne As Integer
With Worksheets("Feuil1")
derligne = .Range("A65536").End(x1up).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
Next
End With
TextBox1 = ""
End
End Sub
1 réponse
Bonjour,
Remplace ton code par :
Et le débogueur t'indiquera où se trouve l'erreur !!!
Cordialement
Patrice
Remplace ton code par :
Private Sub CommandButton1_Click() Call Module1.xxx End Subet place ce code dans un module simple (Module1) :
Option Explicit
Option Private Module
Public Sub xxx()
Dim Ctrl As Control
Dim r As Integer
Dim derligne As Integer
With Worksheets("Feuil1")
derligne = .Range("A65536").End(x1Up).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
Next
End With
UserForm1.TextBox1 = ""
End Sub
Et le débogueur t'indiquera où se trouve l'erreur !!!
Cordialement
Patrice
