Re : Selon critères : Trouver une différence, Recupérer la dernière valeur, et l'ajou
Bonjour.
Le module "Feuil3 (Essai)" est équipé d'une procédure Worksheet_Activate qui prend en charge l'évènement d'activation de la feuille "Essai". Elle ne fait qu'invoquer la procédure ExtracFiltre en lui transmettant comme argument en paramètre son propre objet Worksheet Feuil3 représentant la feuille dont l'onglet affiche "Essai" dans Excel.
La ExtracFiltre commence par supprimer toutes les ligne de cette feuille FDest de destination, puis elle y copie les lignes visibles de la plage couverte par le filtre automatique de l'onglet "Donnée" qui est représenté par l'objet Worksheet Feuil1.
Elle en supprime la colonne J qui n'est pas désirée.
Elle se fixe dans une variable Plage la cellule A2 étendue jusqu'à la dernière cellule renseignée de plus qu'une chaîne vide.
Elle y installe quelques formules dans les colonnes G,H,J.
Elle redéfinit Plage comme étant les lignes à partir de la 2 où la colonne H diffère de la ligne suivante (on y a mis préalablement partout la date de fin du mois comprenant la date en D) c'est à dire uniquement les dernières de chaque mois.
On installe les formules appropriées colonnes I,J,K de ces lignes, seulement à partir de la 2ième d'entre elles, car pour la 1ère on n'a pas encore de ligne précédente de leur espèce pour établir ces formules.