CAISSE ENRENGISTREUSE

Fetber

XLDnaute Nouveau
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
 

Pièces jointes

  • caisse-v1essais - Copie.xlsm
    251.3 KB · Affichages: 62
Solution
Bonjour,
Remplacez le code correspondant dans Userform4 :
VB:
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 ...

fanch55

XLDnaute Barbatruc
Bonjour,
Remplacez le code correspondant dans Userform4 :
VB:
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 .
 

fanch55

XLDnaute Barbatruc
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 .
 

Pièces jointes

  • UserForm1.zip
    60 KB · Affichages: 62

Discussions similaires

Réponses
3
Affichages
274