Formulaire
Shika
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 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 :Private Sub CommandButton1_Click() Call Module1.xxx End Sub
et 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
