Microsoft 365 Doublon

sylvanu à dit:

Re,
Bonjour Job,
"Just for the fun", le problème étant amusant, un essai en PJ.
On vérifie les doublons dont les formules sont identiques et on modifie. Avec :

VB:

Sub FormuleDoublon()
Dim DL%, i%, j%, T, Tablo, Sortie, NumLigne$, NouvelleLigne$
[C:C].ClearContents
DL = Cells(Cells.Rows.Count, "B").End(xlUp).Row
Tablo = Range("B1:B" & DL).Formula
ReDim Sortie(1 To UBound(Tablo))
For i = 1 To UBound(Tablo)
    Chaine = Trim(Tablo(i, 1))
    For j = i + 1 To UBound(Tablo)
        If Trim(Tablo(j, 1)) = Chaine Then Sortie(j) = Trim(Tablo(j, 1))
    Next j
Next i
For i = 1 To UBound(Sortie)
    If Sortie(i) <> "" Then
        T = Split(Sortie(i), "&"): NumLigne = CInt(Mid(T(3), 2)) + 2
        NouvelleLigne = Replace(T(3), Mid(T(3), 2), NumLigne)
        Sortie(i) = Replace(Sortie(i), T(3), NouvelleLigne)
    End If
Next i
[C1].Resize(UBound(Sortie), 1).Value = Application.Transpose(Sortie)
End Sub

Cliquez pour agrandir...