Bonjour,
je cherche une méthode pour vérifier si une ligne est présente en double, et si c'est le cas agir sur une case de la ligne correspondante aux deux doublons. Pour le moment j'ai fait 2 boucles imbriquées mais je ne sais pas si c'est la meilleure solution.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
For i = 2 To nb_ligne
TMP = F1.Cells(i, col_numprod).Value
 
    For j = i + 1 To nb_ligne
    If TMP = F1.Cells(j, col_numprod).Value Then
    cmtp = cmtp + 1
    F1.Cells(j, col_solde).Value = F1.Cells(j, col_solde).Value / 2
    F1.Cells(i, col_solde).Value = F1.Cells(i, col_solde).Value / 2
    End If
 
    Next j
Next i
EDIT : Je viens de faire tourner mon code sur mon fichier excel (55000 lignes) et le programme vient de planter...