Dernier numéro utilisé

Bonjour à tous,

J'ai un souci pour donner un numéro différent à chaque nouvel enregistrement.

Dans le fichier simplifié 'lignes' çà se passe bien, mais dans mon application 'recettes et planning repas', çà fonctionne une fois sur 2, avec 1 comme résultat quand çà fonctionne pas :

Quand vous ouvrez le formulaire multipages (en clic droit), vous allez sur l'onglet recettes et vous entrez une nouvelle recette sans n° pour une nouvelle recette, c'est pas top comme méthode, mais je mettrais un message pour valider la modification ou ajout.

La macro se trouve sous l'UF cuisine, en partie recettes , dans Private Sub validRec_Click()

                nm = 1
here:
            For i = 2 To derl
                If Range("A" & i) = nm Then
                    nm = nm + 1
                    GoTo here
                End If

Merci de votre aide

bonjour,

vous pouvez remplacer ces lignes par ceci (en cas que vous voulez utiliser ce boucle)

   nm = 1     'valeur au début
     For i = 2 To derl     'boucle les lignes
          nm = Application.Max(Range("A" & i) + 1, nm)     'nouveau nm est le max des n° recettes +1 et le valeur de début (=1)
     Next i
     MsgBox nm, vbInformation, UCase("Numvero nouvelle recette")     'message temporaire

sans boucle

 nm = Application.Max(Range("A2:A" & derl)) + 1 'le max de cette plage +1