XL 2013 Etablir un RANG particulier

job75 à dit:

Le résultat donné par JHA n'est pas du tout celui que vous indiquez dans le fichier du post #1 !!!

Mais bon si vous voulez numéroter dans l'ordre de survenance voyez cette formule en F2 :

Code:

=SI(LIGNE()=EQUIV(G2;G$1:G2;0);MAX(F$1:F1)+1;INDEX(F$1:F1;EQUIV(G2;G$1:G1;0)))

Cliquez pour agrandir...

sousou à dit:

avec une macro on sait jamais
Sub rang()
ReDim tableau(0)
With Sheets(1).ListObjects("tableau1")

MsgBox .DataBodyRange.Rows.Count

For n = 1 To .DataBodyRange.Rows.Count
Set i = .DataBodyRange.Columns(1).Rows(n)
If existe(i) = False Then
ReDim Preserve tableau(UBound(tableau) + 1)
tableau(UBound(tableau)) = i
End If
Next

With Sheets(1).ListObjects("tableau1")
For Each i In .DataBodyRange.Columns(2).Rows
'MsgBox i.Address
i.Value = rg(i)
Next
End With
End With
End Sub
Function existe(valeur)
existe = False

For n = 0 To UBound(tableau)
If valeur = tableau(n) Then existe = True
Next
End Function
Function rg(valeur)
For n = 0 To UBound(tableau)
'MsgBox valeur.Offset(0, -1)
If valeur.Offset(0, -1) = tableau(n) Then rg = n: Exit Function
Next
End Function

Cliquez pour agrandir...