Microsoft 365 Doublon

[DCM]

Bonjour
Mon but est de trouvé une formule ou un code vba
1) qui recherche dans une colonne des doublons et qui propose d'autre solutions
Colonnes A ligne 3 = A1&","&""&A2
Colonnes A ligne 6 = A1&","&""&A2 B6 ="Doublon" donc propose A1&","&""&A4 dans C6

Dans l'attente de vos nouvelles meilleurs Salutations

 

[sylvanu]

Bonjour DCM,
Avec un petit fichier test, ce serait mieux. 🙂
Si j'ai bien compris, il faut examiner les formules, et non les valeurs. Donc probablement du VBA.
Et pourquoi A4 au lieu de A2 dans C6 ? Pourquoi pas A3 ou A5 ?

 

[job75]

Bonjour DCM, sylvanu,

Concaténer "," pourquoi pas mais concaténer ensuite le texte vide "" c'est stupide non ?

A+

 

[sylvanu]

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 :

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 = Replace(Tablo(i, 1), " ", "")
    For j = i + 1 To UBound(Tablo)
        If Replace(Tablo(j, 1), " ", "") = Chaine Then Sortie(j) = Chaine
    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

 

[DCM]

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 :

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

Merci
Je vais essayer ce soir