Facture

[fabien67]

Bonjour,
Je joins un fichier, avec une sauvegarde de factures (historique) et incrémentation automatique du numéro de facture
Le fichier actuel permet la sauvegarde d'une seule ligne de commande sous le même numéro de facture
En rajoutant sur la feuille (historique et archivage) les deux colonnes Désignation et quantité, est il possible de créer plusieurs lignes de commandes sous le même numéro dans historique factures
et éventuellement de supprimer les 3 premiers chiffres (0-1-2-3)

En vous remerciant par avance

 

[Lone-wolf]

Bonjour Fabien

@fabien67 : bon

Primo: j'amerais s'avoir d'où sortent ces numéros (0 - 1 - 2 - 3)

Deuxio: sur la feuille Historique facture montre-moi le résultat que tu veux obtenir une bonne fois pour toute, sinon on ne va jamais sortir de l'auberge; ça fait 3 fois que je reprends le fichier et ce n'est jamais bon pour toi.

 

[fabien67]

Bonsoir, alors pour te répondre:
Les chiffres 0 - 1 - 2 - 3 se trouvait en colonne A (A2 - A3 - A4 - A5) sur le premier fichier envoyé et sur la feuille historique
le problème, quand je supprimais ces chiffres l'automatisme de la numérotation ne se faisait plus.
Concernant ta deuxième demande, tu as présenté le résultat dans ta réponse précédente et sous forme d'image

Et en te remerciant, par avance
Bien cordialemùent

 

[fabien67]

Bonjour
Avez vous reçu ma demande
Merci

 

[Lone-wolf]

Bonjour fabien, le Forum 🙂

@fabien67 : tu m'étonne que ça ne marche pas 😕, regarde où tu as placé le code que tu as copié.

Sub Effacer()

    With Sheets("Facture")
        .Range("E5:G5, D12:E27").ClearContents
        .Range("C6").Value = .Range("C6").Value + 1
    End With
End Sub


    With Sheets("Historique_facture")
        DerL = .Range("a" & Rows.Count).End(xlUp).Row
        For i = DerL To 2 Step -1
            If .Cells(i, 1) = .Cells(i - 1, 1) Then
                .Cells(i, 1) = Replace(.Cells(i, 1), .Cells(i - 1, 1), "-")
                .Cells(i, 1).NumberFormat = ";;;"
            End If
        Next i
    End With

Il faut déplacer End Sub après le 2ème End With, comme ceci

Sub Effacer()

    With Sheets("Facture")
        .Range("E5:G5, D12:E27").ClearContents
        .Range("C6").Value = .Range("C6").Value + 1
    End With
    With Sheets("Historique_facture")
        DerL = .Range("a" & Rows.Count).End(xlUp).Row
        For i = DerL To 2 Step -1
            If .Cells(i, 1) = .Cells(i - 1, 1) Then
                .Cells(i, 1) = Replace(.Cells(i, 1), .Cells(i - 1, 1), "-")
                .Cells(i, 1).NumberFormat = ";;;"
            End If
        Next i
    End With
End Sub

 

[fabien67]

Bonjour,
C'est ce que je viens de faire, mais j'ai toujours 3 fois le N0 de Commande sur l'historique
Et s'il était possible de supprimer le nom - adresse qui se répète
Bien cordialement

 

[Lone-wolf]

Re

Tas rien compris. Une fois que tu as completer la 1ère feuille, clique sur nouvelle facture et regarde ce que ça donne. Je t'ai pourtant mis le résultat en image. Et c'est normal que ça s'inscrit 3 fois, tu as ajouté article et quantité.

Dans ton 1er fichier il n'y avait qu'une ligne et t'étais pas content, dans le 2ème aussi, dans le 3ème tu te plaint toujours. Je t'ai demandé le résultat que tu veux avoir au juste (fichier) et t'as rien fait. Purée pour finir! 😡 Débrouille-toi tout seul.

 

[fabien67]

Je pense surtout que c'est toi qui n'a rien compris
Mais ce n'est pas grave,
Désolé mais je ne suis pas expert en code VBA etc...
Et je suis toujours dans l'attente de la réponse concernant les données sur la colonne A du premier fichier
C'est relativement simple pour les personnes qui s'y connaissent, merci de m'envoyer balader

 

[fabien67]

Par ailleurs, merci de te mettre à hauteur des personnes, qui ne sont pas des spécialistes, et merci d'être un peu indulgent envers ces personnes, (petit conseil)
Mais cela est une grande qualité, que la majorité des personnes ne possèdent plus de nos jours, hélas

 

[Lone-wolf]

Re

@fabien67 :

Et je suis toujours dans l'attente de la réponse concernant les données sur la colonne A du premier fichier

Et moi d'un fichier exemple pour savoir au juste ce que tu veux à la fin; ça fait 3 fois que je te le demande.

Ton premier message

En rajoutant sur la feuille (historique et archivage) les deux colonnes Désignation et quantité, est il possible de créer plusieurs lignes de commandes sous le même numéro dans historique factures

Je t'ai montré l'exemple en image au post #14 et fait la macro.


Si toi tu ne sais pas utiliser une macro et tu ne sais pas ce que tu veux au juste, faut arrêter.

 

[fabien67]

Alors je récapitule
Pour le moment, le fichier.......OK
Maintenant, est il possible (sur la feuille historique) comme pour le numéro de commande,
1° de supprimer le destinataire, le code postale, et l'adresse, pour une même commande et sous le même numéro

 

[Lone-wolf]

Re

Supprime le code actuel et replace-le par celui-ci.

Sub Effacer()
Dim DerL&, col&, i&

    With Sheets("Facture")
        .Range("E5:G5, D12:E27").ClearContents
        .Range("C6").Value = .Range("C6").Value + 1
    End With
    With Sheets("Historique_facture")
        DerL = .Range("a" & Rows.Count).End(xlUp).Row
        For i = DerL To 2 Step -1
            If .Cells(i, 1) = .Cells(i - 1, 1) Then
                For col = 1 To 5
                    .Cells(i, col) = Replace(.Cells(i, col), .Cells(i - 1, col), "-")
                    .Cells(i, col).NumberFormat = ";;;"
                Next col
            End If
        Next i
    End With
End Sub

 

[fabien67]

Bonjour
J'ai essayé d'adapter le code VBA, au fichier Stocks
Hélas je n'y comprends pas grand chose,
est il possible de combler mes lacunes, pour avoir une feuille (Historique) semblable au fichier que tu avais modifié
par ailleurs, il n'est pas nécessaire d'avoir une automatisation du numéro de facture
Merci par avance

 

[fabien67]

Bonjour,
N'y a t-il personne pour un peu d'aide ??

Merci à vous