Probleme de fusion de lignes avec un doublant pour faire un total

[themindhaze]

Bonjour,


J'aimerai faire une une fusion de lignes avec les doublant comme critère de fusion ( check le fichier ) a fin de faire une somme.
Il faut utiliser le critère 3 comme moyen de fusion

J'ai souvent
Merci

 

[themindhaze]

j'ai souvent des tableau comme ca a travailler j'aimerai fusionner les doublant en critere3 en ce basant sur les criteres 1 et criteres 2

 

[Dranreb]

Bonsoir.
Comme ça ?

 

[themindhaze]

Yes, c'est parfait, merci beaucoup
est ce que vous pouvez m'expliquer ce que vous avait fait ?

 

[Dranreb]

Bonjour.
J'ai installé deux modules de service dont un tout petit de classe qui définit le type SsGr et j'ai écrit une Worksheet_Change dans le module de la feuille. Clic droit sur l'onglet, Visualiser le code pour la voir.

 

[themindhaze]

pouvez vous me dire les differents etaps de ce progamme ? sachant que c'est que un exemple mon vrai fichier excel contient plusieurs montant donc je veux le comprendre a fin de le bien modifier pour faire des sommes.
Merci beaucoup

 

[Dranreb]

Vous avez la description des membres d'une collection renvoyée par la fonction Gigogne dans le module MGigogne et dans le module de classe SsGr.

 

[gosselien]

Bonjour,

avec TCD aussi 🙂

P.

 

[themindhaze]

est ce que c'est normal quand je fait tournée le programme je recois ce message " argument non facultatif "?

 

[Dranreb]

À part changer le contenu d'une cellule, il n'y a pas de manœuvre spéciale à faire pour faire tourner une Sub Worksheet_Change dans un module d'objet Worksheet. C'est une procédure de prise en charge d'un évènement décrété par Excel.
Si on souhaite néanmoins la lancer quand même aussi depuis une autre procédure, il faut lui spécifier comme argument une expression Range représentant une plage de la feuille censée avoir été modifiée.

 

[themindhaze]

ET si j'ajoute une ligne de plus ?

 

[Dranreb]

Oui ça marche aussi.
Il se base sur la dernière cellule renseignée de la colonne A.
Mais on pourrait limiter la réaction à la saisie d'un montant dans la colonne D en ajoutant comme 1ère instruction exécutable :

If Target.Column <> 4 Then Exit Sub