CAISSE ENRENGISTREUSE

[Fetber]

Bonjour je le présente je m'appelle fethi j'ai besoin de vos service j'ai créer une caisse enregistreuse excel avec une création fiche client avec une base de données, en remplissant les infos sa s'enregistre pas sur ma base de donnée j'ai du loupé un code en espérant un peu d'aide
Cordialement

 

[fanch55]

Bonjour,
Remplacez le code correspondant dans Userform4 :

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

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

 

[Fetber]

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

 

[fanch55]

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

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

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

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 .

 

[Fetber]

Je viens de trouver mon erreur merci beaucoup pour votre aide

 

[Fetber]

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

 

[fanch55]

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 .