Discussion :

[Shikam]

Bonjour,

J'ai un petit soucis ! J'ai 2 colonnes, avec la 1er avec des identifiant qui se répéte un nombre de fois aléatoire et en face des dates, j'aimerais gardé que la date ou il y a la 1er fois que apparait l'identifiant !

Par exemple :

1 02/06/78
1 02/05/85
1 02/04/89
2 01/11/98
2 09/11/97
3 05/10/97

et je veux :

1 02/06/78
1
1
2 01/11/98
2
3 05/10/97



Merci d'avance

[mercatog]

Code :

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

1
2
3
4
5
Dim LastLig As Long, i As Long
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastLig To 3 Step -1
    If Range("A" & i).Value = Range("A" & i - 1).Value Then Range("B" & i).Value = ""
Next i

[Shikam]

Merci, j'avais pas eu l'idée de passer par le bas !

[mercatog]

Rien ne t'empêche de commencer du haut:

Code :

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

1
2
3
4
5
Dim LastLig As Long, i As Long
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastLig - 1
    If Range("A" & i + 1).Value = Range("A" & i).Value Then Range("B" & i + 1).Value = ""
Next i