Bonjour,

Je rencontre un problème avec une partie d’un code vba.

Je cherche à trier et séparer des commentaires au sein d’une même cellule avec les dates qu’ils ont. Par exemple, dans une cellule sera marqué un commentaire avec :

15-Dec-2021, gyjbe

20-Nov-2021, heukken …

Ce qui ne fonctionne pas bien est Year(Date) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
nb_comment = CountComment(Cells(i, previous_comment), "-" & Year(Date) & ",")
Cette partie permettait de différencier les commentaires avec des dates différentes dans une et même cellule. Or toutes ces dates étaient en 2021. Avec le passage en 2022. Le programme ne permet plus de les compter séparément mais tous ensemble (cad tous les commentaires de 2021).

Ce même problème apparaît pour cette ligne de code là:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
sData = Trim(Split(Cells(i, previous_comment).Value, "-" & Year(Date) & ",")(1))
 
target = Left(sData, Len(sData) - 7)
Cette ligne devrait me permettre d’avoir le dernier commentaire en date

J’aimerais trouver quelque chose pour changer ce bout afin de pouvoir faire la différence entre les dates et non les années

Merci