Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
On applique cette ligne en gras à toutes vos lignes (éventuellement ne pas au dernier, dépend ...) parce qu'une MFC ne sait par créer une ligne gras !!! Donc c'est nécessaire qu'elle est déjà là.
Puis on la cache ou change en ligne "fine rouge" avec vos MFC. Donc il faut penser "à l'inverse".
@job75, j'ai l'idée que ce split&filter est plus performant, vitesse = 1.5 à 2 fois plus vite, mais peut-être dû au fait qu'on ignore les chiffres non-monetaires.
or comme ceci
Function Separer(s)
Dim i, sp
Separer = ""
If Len(s) > 0 Then
sp = Filter(Split(s), "€", 1, 1)
If UBound(sp) > -1 Then
For i = 0 To UBound(sp)
sp(i) = Val(sp(i))
Next
Separer = sp...