Formuler une macro qui trouve le premier chiffre manquant

Bonjour le forum,

je cherche une macro me permettant de trouver le premier chiffre manquant.

dans le fichier joint, je donne un numéro à chaque partenaire.

par contre si j'efface un partenaire intermédiaire

en suite je saisie un nouveau partenaire il prendra le numéro suite après le numéro le plus élevé

Effectivement je prend en référence le chiffre de la cellule J16 dans la feuille système

cette même cellule à la formule : Max(listePartenaire!K:K)

il existe certainement une formule, mais une macro serais idéal

Merci d'avance

Bonjour,

Sub NumPart()
    Dim d As Object, i&, n$, aa
    Set d = CreateObject("Scripting.Dictionary")
    aa = Worksheets("ListePartenaire").Range("A1").CurrentRegion.Columns("A")
    For i = 2 To UBound(aa)
        d(aa(i, 1)) = "ok"
    Next i
    For i = 1 To d.Count + 1
        n = "PART." & Format(i, "000")
        If d(n) = "" Then
            MsgBox "Premier numéro de Partenaire disponible : " & n
            Exit Sub
        End If
    Next i
End Sub

A adapter selon utilisation...

Cordialement.

Bonjour ccia83 et MFerrand,

MFerrand ... J'étais curieuse de cette demande, j'ai donc testé ton code.

Moi j'ai compris que ccia83 ne veut pas le numéro suivant tout de suite, mais il veut utiliser les numéros manquants dans la colonne A. Si la séquence est complète, là, utiliser le suivant.

laceline

Bonjour,

La macro fournit le plus petit numéro disponible...

Cordialement.

Bonjour MFerrand,

Merci beaucoup pour cette aide.

la macro fonctionne à merveille.