XL 2016 Demande d'aide pour faire une sauvegarde

[filtre69]

Bonjour je demande votre aide car je n'arrive pas a sauvegarder toutes mes lignes active de ma facture.
Je joint mon fichier avec l'exemple.
Je vous remercie d'avance de votre aide
Cordialement

 

[Phil69970]

Bonjour @filtre69

Quelques remarques :

Comment tu sais ceci ?

@Phil69970

 

[filtre69]

Bonjour Phil69970 merci de ta réponse c'est une erreur désolé.
Il devrait avoir 30,15,45 pour le Mode d'encaissement c'est moi qui le note manuellement.

sam/12/2022	N°FA-2022123-132	Toi	1	orange	30,00 €	Carte
sam/12/2022	N°FA-2022123-132	Toi	1	pomme	15,00 €	Carte
sam/12/2022	N°FA-2022123-132	Toi	1	cerise	45,00 €	Carte

 

[Phil69970]

Re

pour le Mode d'encaissement c'est moi qui le note manuellement.

Et pourquoi ne pas mettre le mettre sur la facture avec une liste de choix cellule E32 par exemple ?
ESP , Chq ou Carte

@Phil69970

 

[filtre69]

Re Oui tu as raison je vais le faire Merci

 

[Jacky67]

Bonjour je demande votre aide car je n'arrive pas a sauvegarder toutes mes lignes active de ma facture.
Je joint mon fichier avec l'exemple.
Je vous remercie d'avance de votre aide
Cordialement

Bonjour à tous
Un exemple en pj avec ce code

Sub Registre_des_recettes()
'------------------------
'Registre_des_recettes
'------------------------
'DECLARATION DE VARIABLES
    Dim LasTrow As Integer
    With Sheets("Registre_des_recettes")
        If IsNumeric(Application.Match([b8], .[b:b], 0)) Then MsgBox "Facture déjà enregistrée", , "Information": Exit Sub
        If MsgBox("Voulez-vous sauvegarder la facture !", vbYesNo + vbQuestion, "Confirmation") = vbNo Then Exit Sub
        For Each c In Sheets("Facture").[a18:a30]
            If c <> "" Then
                LasTrow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1    'DEFINITION DE LA VARIABLE
                .Range("A" & LasTrow) = [G8].Value
                .Range("B" & LasTrow) = [b8].Value
                .Range("C" & LasTrow) = [E10].Value
                .Range("D" & LasTrow) = c.Offset(, 5)
                .Range("E" & LasTrow) = c.Offset(, 1)
                .Range("F" & LasTrow) = c.Offset(, 6)
                .Range("G" & LasTrow) = [f32].Value
            End If
        Next
    End With
End Sub

 

[filtre69]

Bonjour Jacky67 Merci pour ton aide.
Super cela fonctionne Grand merci a toi et a Phil69970 de votre aide.
MERCIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII

 

[filtre69]

Bonjour Jacky67 je reviens vers toi car j'ai du faire un petit changement sur le tableau
rajouté des lignes jusqu'à 30 pour la facturation mais du coup les infos a partir de 19 ne sont plus prises en charge pour la sauvegarde si tu aurais la gentillesse de modifier.
Merci
Cordialement

 

[filtre69]

Re c'est bon je suis arrivé Merci a tous

 

[Jacky67]

Bonjour Jacky67 je reviens vers toi car j'ai du faire un petit changement sur le tableau
rajouté des lignes jusqu'à 30 pour la facturation mais du coup les infos a partir de 19 ne sont plus prises en charge pour la sauvegarde si tu aurais la gentillesse de modifier.
Merci
Cordialement

RE..
Remplace cette ligne de code
For Each c In Sheets("Facture").[a18:a30]
Par celle-ci

For Each c In Range("a18:a" & Cells(Rows.Count, "A").End(xlUp).Row)

Elle prendra automatiquement les rajouts de ligne en compte

 

[Jacky67]

RE..
Remplace cette ligne de code
For Each c In Sheets("Facture").[a18:a30]
Par celle-ci

For Each c In Range("a18:a" & Cells(Rows.Count, "A").End(xlUp).Row)

Elle prendra automatiquement les rajouts de ligne en compte

 

[filtre69]

Bonjour Jacky67 je te remercie cela fonctionne.
Encore grand Merci
Cordialement

 

[filtre69]

Bonjour je reviens vers vous car je rencontre une nouveau souci avec mon fichier Excel.
Dans ma base client j'ai deux clients qui on le même nom mais pas la même adresse mais quand je veux édité une facture il prend toujours le même je ne suis pas arrivée à trouver la solution.
Merci de votre aide.
Cordialement