Erreur 1004_La méthode range de l'objet global a échoué
Bonjour à tous,
Je débute en programmation VBA sur excel et je bute sur le problème de l'erreur 1004, sur la programmation d'un bouton d'userform qui me permettrai d'enregistrer sur ma feuille excel des données issues du formulaire.
Private Sub CommandButton1_Click()
Dim P As Integer
If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ? ", vbYesNo, "Demande de confirmation d’ajout ") = vbYes Then
P = Sheets("BTP").Range("a65536").End(xlUp).Row + 1
Range(" B " & P).Value = TextBox1
Range(" C " & P).Value = TextBox2
Range(" D " & P).Value = TextBox3
Range(" E " & P).Value = TextBox4
Range(" F " & P).Value = TextBox5
Range(" G " & P).Value = TextBox6
Range(" H " & P).Value = TextBox7
Range(" I " & P).Value = TextBox8
Range(" J " & P).Value = TextBox9
Range(" K " & P).Value = TextBox10
Range(" L " & P).Value = TextBox11
End If
End Sub
Voici mon code, on m'indique le message d'erreur sur ma l'ensemble des lignes Range...
Une idée pour me dépanner svp?
Bonjour a.raymond et bienvenue,
Il remplacer tous tes "TextBox1" par "TextBox1.Value" (en adaptant les numéros)
Salut,
Je te remercie de ta réponse malheureusement, le problème persiste.
Je mets en pièce jointe le fichier.
Existe t'il une autre alternative?
Bonjour,
C'est une nouvelle fantaisie d'encadrer les lettres de colonnes par des espaces !!!
Bonjour,
Merci infiniment pour ton aide si rapide et efficace, problème résolu. Après des heures de supplices
Bonjour à tous, Raymond, d3d9x, MFrerrand,
Quand d3d9x t'écrit :
remplacer tous tes "TextBox1" par "TextBox1.Value" (en adaptant les numéros)
C'est juste, mais il ne faut pas mettre de "" au début ou à la fin, et prend l'habitude de nommer tes TEXTBOX
Par Ex: Textbox1 ---> nomme le TxtSiret
Textbox2 ---> TxtNomEntreprise
etc
Cela te facilitera la tâche dans ta lecture
Merci à tous pour vos réponses,
je suis débloqué sur ce sujet là : ) : )