Création d'un fichier pour la comptabilité

Bonjour à tous,

Je reviens vers vous pour poursuivre mon projet.

J'ai mis à votre disposition mon petit projet d'exemple simplifié "test facture.xlm".

Sur la première feuille "source" il y a un encadré explicatif.

Je remercie le forum, bonne journée, Michel.

49test-facture.xlsm (19.15 Ko)

Bonjour,

Dans la feuille source il n'y a qu'une seule ligne par facture, un même client ne peut faire qu'un seul achat lors de sa commande/visite au magasin ?. Cela ma parait curieux.

Bonjour,

Ta procédure double-clic réaménagée...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim O As Worksheet, TblC, i%
    If Intersect([Tableau1], Target) Is Nothing Then Exit Sub
    Set O = Sheets("Facture")
    Cancel = True
    With O
        .Range("B3").Value = Me.Cells(Target.Row, 1).Value
        TblC = Array(.Range("B3"), .Range("B4"), .Range("B8"))
    End With
    With [Tableau2]
        If .Cells(1, 1) <> "" Then
            For i = 1 To .Rows.Count
                If .Cells(i, 1) = TblC(0) Then Exit For
            Next i
            If i <= .Rows.Count Then i = 0
        Else
            i = 1
        End If
        If i > 0 Then .Cells(i, 1).Resize(, 3).Value = TblC
    End With
End Sub

NB- Cancel doit être mis à True pour éviter l'édition de la cellule double-cliquée.

On Error GoTo 0 sert à mettre fin à une gestion d'erreur (aucune n'étant mise en place... )

Il est par contre utile de cibler le double-clic dans le tableau.

Les noms de tableaux mis automatiquement par Excel sont utilisables en VBA à l'instar des noms de plage. Ces noms excluent l'en-tête du tableau.

Cordialement.

C'est parfait, c'est le résultat que j'attendais.

Je vais maintenant le décortiquer pour l'appliquer sur la vraie application un peu plus complexe.

L'apllication que je crée ce sont des factures pour différents types de transports sociaux.

Pour ta curiosité, par facture, un seul client et un seul transport.

Un très grand merci. Peut-être qu'un jour je pourrai aider une autre personne.

Michel.

Bonjour,

Je me suis emmêles les pinceaux en voulant adapter votre solution à mon véritable fichier.

Je vous envoie le fichier réel pour que vous puissiez me mettre à niveau

J'ai remis l'ancien fichier et ajouter le fichier officiel dans lequel j'ai enlevé les cellules privées.

Encore une fois, Merci

La prochaine fois, tu évites de faire perdre inutilement du temps à un intervenant avec un modèle qui ne correspons pas à la configuration de tes données et que tu ne sais adapter !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim O As Worksheet, TblC, i%
    If Intersect([t_Source], Target) Is Nothing Then Exit Sub
    Set O = Sheets("Facture")
    Cancel = True
    With O
        .Range("A16").Value = Me.Cells(Target.Row, 1).Value
        TblC = Array(.Range("A16"), .Range("E4"), .Range("F33"), .Range("F35"), .Range("F36"))
    End With
    With [Tableau2]
        If .Cells(1, 1) <> "" Then
            For i = 1 To .Rows.Count
                If .Cells(i, 1) = TblC(0) Then Exit For
            Next i
            If i <= .Rows.Count Then i = 0
        Else
            i = 1
        End If
        If i > 0 Then .Cells(i, 1).Resize(, 5).Value = TblC
    End With
End Sub

Et aussi tu commences par essayer de savoir te servir du tableau Excel sur Compta en en éliminant toutes les lignes vides (sauf une que tu ne peux sans supprimer le tableau). Et tu ferais bien de faire la même chose pour ton tableau source, éliminer toutes les lignes vides du tableau, tu éviteras des surprises.

Excuse moi je pensais sincèrement m'en sortir.

Merci pour ta patience. Merci

Rechercher des sujets similaires à "creation fichier comptabilite"