[résolu]Formulaire VBA et Erreur 1004

Marcffd

XLDnaute Nouveau
Bonjour tout le monde! Décidément, depuis hier, ça n'arrête pas, j'ai pas mal de problèmes. Aujourd'hui il est bien embêtant.
Pour mon projet de portefeuille client, j'essai de créer un userform VBA. Pour commencer, j'ai fait un champ d'entrée texte et un bouton "envoyer". Le code ressemble à ça :
Code:
 Private Sub CommandButton1_Click()

Dim ctrl As Control
Dim r As Integer
Dim t 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

L'ennuis, c'est que quand j'envoi ma réponse, j'ai ce message d'erreur : erreur d’exécution 1004.
Voila, je sais pas exactement qu'est-ce qui ne va pas dans mon code, c'est pour ça que je fais appel à vous!
Merci d'avance, bonne journée!
 
Dernière édition:

jpb388

XLDnaute Accro
Re : Formulaire VBA et Erreur 1004

Bonjour le forum
essaye ceci (pas testé puisque pas d'exemple)
Code:
Private Sub CommandButton1_Click()
 Dim ctrl As Range
 Dim derligne As Long
 With Worksheets("feuil1")
  derligne = .Range("A" & Rows.Count).End(x1up).Row + 1
  For Each ctrl In UserForm1.Controls
    If CInt(ctrl.Tag) > 0 Then Feuil1.Cells(derligne, CInt(ctrl.Tag)) = ctrl
  Next
End With
TextBox1 = ""
End Sub
 

Paulo78570

XLDnaute Nouveau
Salut Marcffd,
Peux-tu remettre le code final car sa bug aussi chez moi!!!

Voici ce que j'ai inscrit:

Private Sub CommandButton1_Click()

Dim Ctrl As Control
Dim r As Integer
Dim t 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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 842
dernier inscrit
seb0390