Bonsoir,
je n'y connais pas grand chose aux TCD et PQ ! Mais je constate que c'est cette ligne qui pose problème :
Me.Range("Tableau1__2").ListObject.QueryTable.Refresh False
(pour cela j'ai utilisé la touche F8 sous VBA après avoir mis un point d'arrêt sur le première ligne de la procédure et je fais du Pas à pas et je vois où ça coince.)
En effet lorsqu'elle est jouée elle modifie la date en H6, mais elle ajoute une ligne à "ce tableau". De ce fait les formules en G2 et H2 provoque une erreur car elles sont dans l'incapacité de trouver la fin de mois de plusieurs dates en même temps, même si ces dernières sont égales !
Soit il faut modifier cette ligne d'instruction soit il faut modifier les formules de G2 et H2.
Vu mes connaissance je vous propose la deuxième solution :
en G2 : =FIN.MOIS(MAX(Tableau1__2[Echéance]);-1)+1
en H2 : =FIN.MOIS(MAX(Tableau1__2[Echéance]);0)
Comme cela la formule ne prend qu'une date du tableau et alors la fonction est capable de trouver la fin de mois.
@ bientôt
LouReeD