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 :
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!
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: