Macro pour Import Compta incomplète

**DragZZ** · 09/06/2022, 12h41

Bonjour Le forum

Comment allez vous ?

Je vous écris car j'ai un petit problème pour adapter une macro que j'ai effectué sachant que ca fait 2 semaine que j'ai commencé LA VBA je rencontre une difficultés

Mon travail consiste a exporter des données comptable pour que mes collègues puissent les intégrer facilement mais je n'arrive pas plusieurs choses

- J'arrive a stocké des données mais je ne sais pas les afficher

- Je ne sais pas comment faire pour afficher sur plusieurs lignes les écritures comptable

-Je n'arrive pas a calculer la TVA en VBA puis l'afficher

S'il vous plait pourriez vous m'aider et m'expliqué votre façon de faire pour progresser rapidement

voici mon début de code

vous trouverez dans mon fichier excel les references pour les numero de compte

cordialement Merci !!!!!!!!!!!!!!!!!!!!!!!!!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub ExportCaisse()
     Dim F1 As Worksheet, F2 As Worksheet
     Dim Tablo, i As Long
     Dim x2 As Integer
     Dim x1 As Integer
     Dim x05 As Integer
 
     Set F1 = Sheets("MARS")
     Set F2 = Sheets("Compta")
 
     THdr = F1.Range("A2", "Z" & F1.Range("A" & Rows.Count).End(xlUp).Row).Value2
     Set dict = CreateObject("scripting.dictionary")
     dict.Add dict.Count, Array("Date", "code journal", "compte", "débit", "crédit", "Libellé pièce")     'les titles
 
        For i = 1 To UBound(THdr)     'IMPORTANT, CHAQUE LIGNE DOIT AJOUTER LE MÊME NOMBRE D'ELEMENTS DANS "ITEMS" = 8 !!!
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "44572000", "", THdr(i, 4), "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "7072000", "", THdr(i, 4 \ 1.2), "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "44571000", "", THdr(i, 6), "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "7071000", "", THdr(i, 6 \ 1.1), "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "44571550", "", THdr(i, 8), "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "7070550", "", THdr(i, 8) \ 1.055, "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "5801000", THdr(i, 14), "", "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "5802000", THdr(i, 16), "", "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "5803000", THdr(i, 15), "", "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "411CREDIT", THdr(i, 17), "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "411AVOIR", THdr(i, 18), THdr(i, 19), "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "411AVOIR", , THdr(i, 19), THdr(i, 18), "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "467CADHOC", THdr(i, 22), "", "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "467CADEOS", THdr(i, 22), "", "CENTRALISATION CAISSE")
            dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "467BONACHAT", THdr(i, 24), "", "CENTRALISATION CAISSE")
     Next i
   arr = Application.Index(dict.items, 0, 0)
     F2.Cells.ClearContents
     With F2.Range("A1").Resize(UBound(arr), UBound(arr, 2))
          .Value = arr
          .EntireColumn.AutoFit
          .Sort .Range("G1"), xlAscending, Header:=xlYes
     End With
 
End Sub

**Alex020181** · 09/06/2022, 20h10

Bonjour,

J'avoue ne pas très bien comprendre ce que tu veux faire et quel est le format de tes données au départ.

Dans ton code tu fais référence à des feuilles "MARS" et "Compta" qui n'existe pas dans le fichier joint. On ne connait donc pas le format de chacune d'elles.
Dans ton fichier joint tu présentes 2 tableaux (le premier en lignes 1 à 3 et le second en lignes 7 à 37.
Dans ton code tu fais référence à 8 items. Aucun des 2 tableaux fournis n'a ni 8 colonnes ni, même s'il y a plus de colonnes, que 8 colonnes complétées.

De ce que je comprend toutefois tu pars d'une feuille "compta" contenant des lignes tel que présentées dans ton premier tableau et tu souhaites obtenir un journal tel que ton second tableau (1 onglet par mois). Le journal demande également des données que ton premier tableau ne donne pas (journal, libelle). Ton journal présente des lignes où le débit et crédit sont tout 2 à 0 voire vides. Ce n'est pas logique d'après mes souvenirs de compta. Enfin je ne retrouve pas de valeurs communes entre les 2 tableaux pour confirmer ma supposition de ta demande réelle.

Purement technique tu peux utiliser les tableaux mémoires pour tes tableaux de données et tes n° de compte mais il n'est pas utile d'utiliser les dictionnaires.

**Qwazerty** · 09/06/2022, 21h32

Salut

En plus des informations demandées dans le message précédent, peux-tu préciser la version d'Excel que tu utilises.
Si ta version te le permet, tu pourrais sans doute utiliser Power Query qui est fait pour manipuler des données contenue dans une base (tableau, fichier excel,....).

++
Qwaz