Bonjour,
Je galère sur excel. je souhaite obtenir une suite croissante de 4 chiffres (colonne C dans le fichier en PJ).
J'ai créer une fonction custom test() mais je n'arrive à avoir ce que je cherche.
Pourriez vous svp m'aider?
Je vous remercie d'avance
Je galère sur excel. je souhaite obtenir une suite croissante de 4 chiffres (colonne C dans le fichier en PJ).
J'ai créer une fonction custom test() mais je n'arrive à avoir ce que je cherche.
Pourriez vous svp m'aider?
Je vous remercie d'avance
VB:
Public Function test()
Dim i As Long
Dim FeInfo As Worksheet: Set FeInfo = Worksheets("Feuil1")
FeInfo.Activate
Dim valeur As Range
Dim plage As Range: Set plage = FeInfo.Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
For i = 1 To FeInfo.Range("B" & Rows.Count).End(xlUp).Row
s = 0
Set Cel = Columns("B").Find(what:=Range("B" & i), LookIn:=xlValues)
If Not Cel Is Nothing Then
Depart = Cel.Address
Do
s = s + 1
test = s
Set Cel = Columns("B").FindNext(Cel)
Loop While Not Cel Is Nothing And Depart <> Cel.Address
End If
Next i
End Function