Compiler les données de 2 tableaux dans 1 autre selon conditions

Résolu

Laeti3112 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
Laeti3112 Messages postés 14 Date d'inscription Statut Membre Dernière intervention - 8 juin 2015 à 14:17

Bonjour,

Voici mon problème.
Je dois compiler les données de 2 tableaux excel se trouvant dans un même classeur mais sur deux onglet différents, dans un troisième tableau qui se trouve sur autre onglet dans le même classeur selon 2 conditions :
-la couleur de la ligne
-la colonne H dans laquelle se trouve les informations sur le type de paiement. Les différents types de paiement sont : des prélèvements, des télé-règlements, LCR, et chèques. Ils doivent être classées par ordre alphabétiques (1 chèques, 2 LCR, 3 Prélèvements, 4 télé règlements) et les chèques doivent être classés dans un ordre croissant par rapport à leur numéro.

Je vous joins mes fichiers pour exemple.

https://www.cjoint.com/c/EFenHCgK578

Merci à tous pour votre collaboration.

Afficher la suite

A voir également:

Compiler les données de 2 tableaux dans 1 autre selon conditions
Supercopier 2 - Télécharger - Gestion de fichiers
Supprimer les données de navigation - Guide
Fusionner 2 tableaux excel - Guide
Word numéro de page 1/2 - Guide
Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif ci-dessous. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des quatre premières colonnes. il manque 5 valeurs dans le tableau ci-dessous. retrouvez-les dans votre tableau, puis reportez-les arrondies à l’entier le plus proche. - Guide

2 réponses

Réponse 1 / 2

Laeti3112 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Snif, il n'y a personne pour m'aider?

Réponse 2 / 2

Laeti3112 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

J'ai fait des recherches et essayé d'adapter le code trouvé à ma situation... Mais étant débutante, j'ai fait avec les moyens du bords...
Pour la partie 1 de ce que je souhaite faire, c-a-d fusionner les données de 2 tableaux dans un troisième, je fais la procédure suivante... Seulement les colonnes F G I ne s'affichent pas comme je le souhaite... Et j'ai un souci si les cellules sont fusionnées. De plus dans ma formule, j'ai calibré sur 33 lignes, or dans la réalité, mes tableaux ont un nombre de lignes différent... Et ma formule ne copie pas la couleur des lignes...

Merci d'avance A qui voudra bien m'aider!!!

Sub FUSION()
Sheets("Paiements non débités(tableau3)").Select
Application.ScreenUpdating = False
Range("A2:I" & Range("A65535").End(xlUp).Row + 1).ClearContents

For i = 1 To 3 ' le_nombre_exact_de_feuilles
If Sheets(i).Name <> "Paiements non débités(tableau3)" Then
Sheets(i).Select
Range("A2:A" & Range("A33").End(xlUp).Row).Select
Selection.Copy
Sheets("Paiements non débités(tableau3)").Select
Range("A" & Range("A33").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(i).Select
Range("B2:B" & Range("B33").End(xlUp).Row).Select
Selection.Copy
Sheets("Paiements non débités(tableau3)").Select
Range("B" & Range("B33").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(i).Select
Range("C2:C" & Range("C33").End(xlUp).Row).Select
Selection.Copy
Sheets("Paiements non débités(tableau3)").Select
Range("C" & Range("C33").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(i).Select
Range("D2" & Range("D33").End(xlUp).Row).Select
Selection.Copy
Sheets("Paiements non débités(tableau3)").Select
Range("D" & Range("D33").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(i).Select
Range("E2:E" & Range("E33").End(xlUp).Row).Select
Selection.Copy
Sheets("Paiements non débités(tableau3)").Select
Range("E" & Range("E33").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(i).Select
Range("F2:F" & Range("F33").End(xlUp).Row).Select
Selection.Copy
Sheets("Paiements non débités(tableau3)").Select
Range("F" & Range("F33").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(i).Select
Range("G2:G" & Range("G33").End(xlUp).Row).Select
Selection.Copy
Sheets("Paiements non débités(tableau3)").Select
Range("G" & Range("G33").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(i).Select
Range("H2:H" & Range("H33").End(xlUp).Row).Select
Selection.Copy
Sheets("Paiements non débités(tableau3)").Select
Range("H" & Range("H33").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets(i).Select
Range("I2:I" & Range("I33").End(xlUp).Row).Select
Selection.Copy
Sheets("Paiements non débités(tableau3)").Select
Range("I" & Range("I33").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If
Next i
[C2].Select
Application.ScreenUpdating = True

End Sub

Discussions similaires

Tableau croisé dynamique - absence de certaines données

Excel supprimer une mise en forme de tableau

tableaux croisés dynamique

Votre réponse

Discussions similaires