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
A voir également:
- Formulaire
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
- Un formulaire rempli - Guide
- Formulaire de reclamation instagram - Guide
- Récupérer compte outlook sans formulaire - <a href="https://forums.commentcamarche.net/forum/hotmail-outlook-com-193">Forum Hotmail / Outlook.com</a>
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
