Discussion :

[knallbi]

Bonjour,
Je cherche à numéroter via VBA toutes les lignes d'un tableau Excel en traitant les doublons comme suit.

Les lignes sans doublon obtiendront toutes le N° 1 et chaque ligne qui se répète obtiendra le N° suivant. Ainsi la première ligne ayant un ou plusieurs doublons dans la liste obtiendra le n°1, la deuxième le n°2, la troisième le n°3, la quatrième le n°4 et ainsi de suite...

Les valeurs de chaque ligne se limitent aux colonnes B, C, D, E, F et G. Voir fichier joint.

Il est essentiel que chaque ligne n'ayant pas de doublon obtienne le n°1.

Merci pour votre aide.

[mercatog]

Sans VBA et à l'aide d'une colonne supplémentaire
Exemple

En H3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=B3&"|"&C3&"|"&D3&"|"&E3&"|"&F3&"|"&G3

Tu tire la formule jusqu'en bas de ton tableau

Il suffit de mettre en A3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI($H$3:$H3;H3)

Tu tire la formule jusqu'en bas de ton tableau

La colonne H peut être cachée

[knallbi]

Merci beaucoup pour la réponse super rapide et qui fonctionne à merveille.

Mais comment est-ce que j'intègre ces 2 formules dans ma macro afin d'obtenir une "Feuil1" entièrement sans formules (avec des valeurs uniquement) ?

[mercatog]

Traduction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Compteur()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Range("H3:H" & LastLig).Formula = "=B3&""|""&C3&""|""&D3&""|""&E3&""|""&F3&""|""&G3"
    With .Range("A3:A" & LastLig)
        .Formula = "=COUNTIF($H$3:$H3,H3)"
        .Value = .Value
    End With
    .Range("H3:H" & LastLig).ClearContents
End With
End Sub

[knallbi]

Et bien, je crois qu'il ne reste plus rien à ajouter.
La solution est parfaite.

Merci beaucoup et bon week-end.