CAISSE ENRENGISTREUSE

excuser moi de vous dérangez encore, merci pour votre réponse le code fonctionne mais bloque au niveau du prénom comme ci joint
erreur d'exécution 424

Private Sub CommandButton2_Click()

With Worksheets("Client")
.Activate
.Rows(2).EntireRow.Insert Shift:=xlDown
.Rows(3).Copy
With Rows(2)
.PasteSpecial Paste:=xlPasteFormats
.Cells(1) = TextNom.Value
.Cells(2) = TextPrenom.Value
.Cells(3) = TextAdresse.Value
.Cells(4) = TextCp.Value
.Cells(5) = TextVille.Value
.Cells(7) = TextPhone.Value
.Cells(8) = TextMail.Value
End With
End With

Unload Me
End Sub

Cordialement

Fetber à dit:

excuser moi de vous dérangez encore, merci pour votre réponse le code fonctionne mais bloque au niveau du prénom comme ci joint
erreur d'exécution 424

.Cells(2) = TextPrenom.Value


Cordialement

Cliquez pour agrandir...

C'est bien pour cela que j'avais ajouté :

et finissez de définir les noms de vos textbox ...

Cliquez pour agrandir...

L'Userform4 a les noms bruts de certains des textbox que vous avez créées.
Soit vous les renommez comme l'attend le code
Soit vous modifiez le code avec les textboxs existantes .

Je viens de trouver mon erreur merci beaucoup pour votre aide

Bonjour serait il possible d'avoir la quantité de 1 automatique en cliquant sur n'importe quelle menu sans les touches que j'ai mis.
Cordialement

Bonjour,
Ce n'est plus du tout le sujet, vous devriez faire une autre discussion .
Toutefois, je pense que vous parlez de l'Userform1.
Je l'ai analysé et simplifié: vous en trouverez une copie ci-jointe.
Détruisez le votre et importez le Userform1.frm .