Compiler les données de 2 tableaux dans 1 autre selon conditions Résolu/Fermé

Question

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. 

Configuration: Windows 7 / Chrome 43.0.2357.81

Laeti3112 · Answer

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

Laeti3112 · Answer

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

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

2 réponses

Discussions similaires