XL 2019 Extraire d'un tableau une liste répondant à un critère

Paritec

XLDnaute Barbatruc

• 27 Juin 2019

• #16

Re Re Bonjour Kenso le forum
Bah oui mon cher Kenso, si tu fournis des fichiers qui ne sont pas identique à ceux que tu veux importer ensuite, cela ne marche pas c'est sur!!!!
Quand j'ai importé la première fois, il y avait une ligne vide en bout de tes codes comptables, et une ligne supplémentaire avec des totaux !!!
Alors j'ai importé et traité la feuille - 2 lignes normal je pense.
Et là tu as fournis une feuille, ou la ligne vide et les totaux n'existent plus, mais la macro elle ne sait pas que tu ne sais pas ce que tu veux.
donc elle à traité comme si la ligne vide et la ligne total existait!!!
Maintenant à toi de me dire tu veux quoi??? comme le premier exemple ou comme le second ????
dans l'attente de te relire et je modifierai la macro en conséquence
a+
Papou

 

Vote positif 0 Vote négatif

K

konzo

XLDnaute Nouveau

• 27 Juin 2019

• #17

Papou,
Merci ta réactivité.
Les balances à importer n'ont pas le même nombre de lignes.
Par contre, la ligne total existe sur toutes les balances.
Mon souhait :
1) Importer toutes les données des balances N et N-1 jusqu'à la ligne Total
2) Importer les fichiers des balances N et N-1 avec sélection du répertoire (Mes Documents, Bureau, Etc.)
3) Obtenir le journal des comptes non importés des balances N et N-1 dans la Balance Source
Merci beaucoup pour ton appui
Konzo

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Juin 2019

• #18

Re bonjour Konzo le forum

Les balances à importer n'ont pas le même nombre de lignes.

Cliquez pour agrandir...

oui cela ne me dérange pas

Par contre, la ligne total existe sur toutes les balances.

Cliquez pour agrandir...

pourrais-tu vérifier avant d'écrire des bêtises!!!
voilà ci dessous les dernières lignes du fichier pour lequel tu te plaints de ne pas avoir eu la ligne 158 et 159

donc ou est ta ligne Total ?????????????????????????????
pour le reste je vais regarder

Merci beaucoup pour ton appui

Cliquez pour agrandir...

ce n'est pas un appuie c'est moi qui fait tout le travail !!!!!
a+
Papou

 

Vote positif 0 Vote négatif

K

konzo

XLDnaute Nouveau

• 27 Juin 2019

• #19

On s'est mal compris.
Je fais référence aux normes comptables. Toute balance à une ligne Total

 

Vote positif 0 Vote négatif

K

konzo

XLDnaute Nouveau

• 27 Juin 2019

• #20

Je veux utiliser ta macro pour toute balance quelque soit le nombre de lignes

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Juin 2019

• #21

Je fais référence aux normes comptables. Toute balance à une ligne Total

Cliquez pour agrandir...

oui je le sais

Je veux utiliser ta macro pour toute balance quelque soit le nombre de lignes

Cliquez pour agrandir...

oui c'est bien ce que je t'ai fait, mais pour le dernier fichier explique moi ou est la ligne vide et la ligne total?

 

Vote positif 0 Vote négatif

K

konzo

XLDnaute Nouveau

• 27 Juin 2019

• #22

Les fichiers mis à jour avec une ligne Total

 

Pièces jointes

• Balance N.xlsx

  14.6 KB · Affichages: 10
• Balance N-1.xlsx

  15.2 KB · Affichages: 6

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Juin 2019

• #23

Re re re Bonjour Konzo le forum
ton fichier en retour avec ton choix qui pour moi est nul, mais c'est ce que tu veux donc voilà
1) tu enregistres ton fichier sur ton bureau ou ailleurs mais sur ton PC
2) tu ouvres Konso Balance Destination V2.xlsm
3) tu cliques le bouton traiter
4) tu choisis un fichier N (c'est écrit le type de fichier à choisir en haut de la fenêtre)
5) tu choisis un fichier N-1 (c'est écrit le type de fichier à choisir en haut de la fenêtre)
et tu regardes, à droite en haut de la feuille Balance Destination tu as deux tableaux avec les lignes qui n'existent pas dans Balance Destination
voilà tu testes et tu me redis
a+
Papou

 

Pièces jointes

• Konso Balance Destination V2.xlsm

  188.8 KB · Affichages: 11

Vote positif 0 Vote négatif

K

konzo

XLDnaute Nouveau

• 27 Juin 2019

• #24

Merci infiniment pour ta réactvité et ta disponibilité.
Je teste et je reviens
Cordialement à toi
Konzo

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Juin 2019

• #25

Re bonsoir Konzo le forum
une dernière chose que je n'ai pas fait, il faut pour que la fenêtre s'ouvre sur tes documents ou Bureau ou ce que tu veux que tu me donnes le chemin complet du dossier ou se trouve tes balances N et N-1 COMPLET donc "C:\utilisateur\ etc etc"
bonne soirée
Papou

 

Vote positif 0 Vote négatif

K

konzo

XLDnaute Nouveau

• 27 Juin 2019

• #26

OK. Je vais faire les tests avant de te revenir.
Bonne soirée

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 2 Juillet 2019

• #27

Bonjour Konso le forum
bah depuis Jeudi je pense que tu as eu le temps de tester !!!
mais maintenant tu es dépanné, alors la réponse n'a pas d'importance pour toi!!!!
a+
Papou

 

Dernière édition: 13 Juillet 2019

Vote positif 0 Vote négatif

X

xls_62

XLDnaute Junior

• 30 Juin 2021

• #28

Paritec à dit:

Bonjour Konso le forum
Tu décompresses le zip sur ton bureau ou ailleurs, mais tu ne l'ouvres surtout pas en temporaire
tu ouvres le dossier et tu ouvres konso balance destination V1.xlsm et tu lis et tu testes
a +
Papou

Cliquez pour agrandir...

bonjour papou,
onjour,
J'ai un code VBA que vous avez réalisé pour importer des données de la feuille1 ( base des données ) vers la feuille 2 ( feuille on colle les données souhaitées ) selon critère renseigné dans la feuille2 ( cellule : ligne 2 / colonne 5) => Avec le code ci dessous tout fonctionne parfaitement

AMELIORATION SOUHAITEE : Comment dupliquer cette macro sur plusieurs feuilles par exemple Feuil3, Feuil4 etc avec critères dans chaque feuille?

merci de votre aide.
---------------
Sub importBis()
Dim fin&, aa, bb 'A,B,C,E,G,H et L
With Feuil1
aa = .Range("A2:M" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
y = 1
ReDim bb(7, y)
For i = 1 To UBound(aa)
If aa(i, 11) = Feuil2.Cells(2, 5) Or aa(i, 11) = Feuil2.Cells(2, 5).Text Then
x = 1
ReDim Preserve bb(7, y)
For Each a In Array(1, 2, 3, 5, 7, 8, 12)
bb(x, y) = aa(i, a): x = x + 1
Next a
y = y + 1
End If
Next i
With Feuil2
fin = .Range("A" & Rows.Count).End(xlUp).Row
If fin <= 6 Then GoTo 1
.Range("A7:M" & fin).Clear
1 .Range("A7").Resize(UBound(bb, 2), UBound(bb)) = Application.Transpose(bb)
.Columns("A:G").AutoFit
End With
MsgBox "Copie Effectuée "
End Sub
--------

 

Vote positif 0 Vote négatif