Bonjour,
petit problème avec une fonction utilisant 2 Range et qui doit comparer des valeurs entre ces 2 Range. Le pb est que ma fonction ne passe pas au mouv1 suivant, les tests ne sont faits que pour le premier élèment de Plage1 et pour le premier élèment de Plage2
Pouvez-vous aussi m'expliquer la nécessité de metrre les Exit For avant le Next (je ne trouve ça très logique). Merci (car l'aide VB n'est pas installée sur mon poste)
'Pour chaque mouvement de la plage des mvts sélectionnés dans la feuille Mouvements
For Each mouv1 In Plage1
code1 = mouv1.Offset(0, 3)
venac = mouv1.Offset(0, 7)
For Each mouv2 In Plage2
code2 = mouv2.Offset(0, 1)
nb2 = mouv2.Offset(0, 3)
'Si les 2 codes ISIN sont égaux:
If code1 = code2 Then
' on regarde si c'est une vente
If mouv1.Offset(0, 5) = "Vente" Then
'si oui: le nb de parts devient négatif
venac = venac * (-1)
End If
'on affecte le nb de parts du mouvements au nb de parts du nv ptf
nbfinal = nb2 + venac
mouv2.Offset(0, 3) = nbfinal
End If
Exit For
Next mouv2
Exit For
Next mouv1