Lister Sans Doublons Et Totalisation (VBA) (Résolue)

[marfipo]

Bonjour à tous,
je reviens vers vous comme je suis novice en VBA pour que vous m'aidiez a compléter mon petit projet
sur le fichier ci-joint j'ai une base de donnée qui se trouve sur les feuilles PAIE-MENS & PAIE-HOR .
ce que je souhaite avoir c'est :

1- sur l'onglet Recap je veux lister sans doublons sur la colonne A (a partir de A7) les données qui se trouve sur la colonne AD de l'onglet PAIE-MENS, ensuite je veux totaliser sur les colonnes B,C et D (a partir de B7, C7 et D7) de l'onglet Recap, les données qui se trouves sur les colonnes M,T et W de l'onglet PAIE-MENS

2- sur l'onglet Recap je veux lister sans doublons sur la colonne G (a partir de G7) les données qui se trouve sur la colonne AD de l'onglet PAIE-HOR, ensuite je veux totaliser sur les colonnes H,I et J (a partir de H7, I7 et J7) de l'onglet Recap, les données qui se trouves sur les colonnes M,T et W de l'onglet PAIE-HOR

3-sur l'onglet ODA MENS je veux copier sur la colonne L (a partir de L8) les données de la colonne A( a partir de A7) de l'onglet RECAP,
et je veux copier sur la colonne H (a partir de H8) de l'onglet ODA MENS, les données de la colonne C( a partir de C7) de l'onglet RECAP

4-sur l'onglet ODA HOR je veux copier sur la colonne L (a partir de L8) les données de la colonne G( a partir de G8 et non pas G7) de l'onglet RECAP,
et je veux copier sur la colonne H (a partir de H8) de l'onglet ODA HOR, les données de la colonne I (a partir de I8 et non pas I7) de l'onglet RECAP
et je veux copier sur la colonne O (a partir de O8) de l'onglet ODA HOR, les données de la colonne H (a partir de H8 et non pas H7) de l'onglet RECAP

5- sur l'onglet CAP Congés (Mens) je veux copier sur la colonne M (a partir de M7) les données de la colonne A( a partir de A7) de l'onglet RECAP,
Et je veux copier sur la colonne D (a partir de D7)de l'onglet CAP congés (Mens), les données de la colonne D( a partir de D7) de l'onglet RECAP,
Ensuite je veux lister sans doublons sur la colonne N( a partir de N7) de l'onglet CAP congés (Mens) les données de la colonne D de l'onglet PAIE-MENS qui correspondent au données de la colonne M de l'onglet CAP congés (Mens).

6- sur l'onglet CAP Congés (Hor) je veux que M7 egale M7 de l'onglet RECAP, ensuite je veux copier sur la colonne M (a partir de M8) les données de la colonne G (a partir de G8) de l'onglet RECAP,
Et je veux copier sur la colonne D(a partir de D7) de l'onglet CAP congés (HOR), les données de la colonne J (a partir de J7) de l'onglet RECAP,
puis je veux lister sans doublons sur la colonne N( a partir de N7) de l'onglet CAP congés (HOR) les données de la colonne D de l'onglet PAIE-HOR qui correspondent au données de la colonne M de l'onglet CAP congés (HOR) sauf pour N7 qui doit correspondre au G7 de l'onglet RECAP.

Merci d'avance

 

[Dranreb]

Re : Lister Sans Doublons Et Totalisation (VBA) (Résolue)

Et bien essayez en affectant une valeur à Me.[RécapMens].RowHeight juste après lui avoir, en le réajustant, affecté TS.
S'il y a plusieurs corrections de mise en forme vous pourriez avoir intérêt à grouper tout ce qu'il y a à faire dessus dans un bloc With Me.[RécapMens]

 

[marfipo]

Re : Lister Sans Doublons Et Totalisation (VBA) (Résolue)

j'ai essayé avec ValPlgAju(Me.[RécapMens].RowHeight - row7) = TS et ca na po marché
je ne veux pas effectuer plusieurs corrections mais juste que chaque ligne ajoutée sur l'onglet RECAP en dessous de la ligne 7 prenne la même hauteur de la ligne 7

 

[Dranreb]

Re : Lister Sans Doublons Et Totalisation (VBA) (Résolue)

Je n'ai pas dit de modifier l'instruction qui affecte TS, mais d'en ajouter une nouvelle derrière.
Comment voulez vous que ce que vous avez écrit puisse marcher ?
Vous n'avez encore rien compris à rien je voie. Je suis très déçu !
La Property Let ValPlgAju attend un Range comme 1er paramètre, pas autre chose. Relisez le commentaire d'aide dans le module Utilit.
Éventuellement un second paramètre, optionnel, permet de préciser le nouveau nombre de lignes s'il est différent de celui de la table à affecter.
essayez Me.[RécapMens].RowHeight = Me.[RécapMens].Rows(1).RowHeight
Ou, oui si vous voulez, tout à la fin de la procédure: Me.Rows(8).Resize(5000).RowHeight = Me.Rows(7).RowHeight

 

[marfipo]

Re : Lister Sans Doublons Et Totalisation (VBA) (Résolue)

re,
je suis désolé c'est juste par ce que je suis un peu préssé que je suis entrain de faire n'importe quoi :
en rajoutant juste le 2ème code que vous m'avez écrit ça marché sans mettre Me.[RécapMens].RowHeight = Me.[RécapMens].Rows(1).RowHeight
donc mon code est devenu :

ValPlgAju(Me.[RécapMens]) = TS
Me.Rows(8).Resize(5000).RowHeight = Me.Rows(7).RowHeight
Me.[RécapMens].Cells(LS + 1, 2).Resize(, 3).FormulaR1C1 = "=SUM(R7C:R[-1]C)"

est ce que je dois le changer comme ça ??
ValPlgAju(Me.[RécapMens]) = TS
Me.[RécapMens].RowHeight = Me.[RécapMens].Rows(1).RowHeight
Me.Rows(8).Resize(5000).RowHeight = Me.Rows(7).RowHeight
Me.[RécapMens].Cells(LS + 1, 2).Resize(, 3).FormulaR1C1 = "=SUM(R7C:R[-1]C)"

 

[Dranreb]

Re : Lister Sans Doublons Et Totalisation (VBA) (Résolue)

Fait comme ça, vous pouvez ne le faire qu'une fois, tout à la fin, après tout le reste.

 

[marfipo]

Re : Lister Sans Doublons Et Totalisation (VBA) (Résolue)

le 1er code n'a pas marché :
Me.[RécapMens].RowHeight = Me.[RécapMens].Rows(1).RowHeight

mais le 2ème (Me.Rows(8).Resize(5000).RowHeight = Me.Rows(7).RowHeight) a bien marché

j'aimerai bien savoir c'est quoi la différence si je le mets au début comme ça :

ValPlgAju(Me.[RécapMens]) = TS
Me.Rows(8).Resize(5000).RowHeight = Me.Rows(7).RowHeight
Me.[RécapMens].Cells(LS + 1, 2).Resize(, 3).FormulaR1C1 = "=SUM(R7C:R[-1]C)"


et si je le mets a la fin de tous les codes et avant end sub comme vous m'avez conseillé ???