Incrémentation numero

Bonjour, j'ai un numéro qui est censé s'incrémenter automatiquement lorsque j'ouvre mon userform "Ajouter un litige". Petit problème, cela ne fonctionne plus et je ne sais pas d'ou provient l'erreur. Fichier joint, Merci d'avance.

Bonjour Vince, bonjour le forum,

Deux propositions (je préfère la première) :

Private Sub UserForm_Initialize()
    numero_litige.Value = Application.WorksheetFunction.Max(Sheets("Litiges").Columns(2)) + 1
End Sub

ou

Private Sub UserForm_Initialize()
    numero_litige.Value = Sheets("Litiges").Cells(Application.Rows.Count, "B").End(xlUp).Value + 1
End Sub

Mais pas :

Private Sub UserForm_Initialize()
    numero_litige.Value = Sheets("Litiges").Range("B2").Value + 1
End Sub

qui va toujours te renvoyer 2 si B2 vaut 1 ou 1 de plus que B2...

Bonjour,

Ta procédure :

Private Sub UserForm_Initialize()
    numero_litige.Value = Sheets("Litiges").Range("B2") + 1
End Sub

renverra toujours 2 puisqu'en B2 il y a 1...

Ma suggestion :

Nommer la colonne Litiges, par exemple Litige :

=DECALER(Litiges!$B$2;;;NBVAL(Litiges!$B:$B))

Note que la plage sera toujours définie (même sans litige dans le tableau) parce qu'elle comporte une ligne vide (qui sera celle à servir...)

numero_litige.Value = [Litige].Rows.Count

te renverra le numéro à appliquer.

Et si en validant tu utilises cette plage nommée, il te fournit également le numéro de ligne (de la plage) à servir. Très économique car tu n'as plus à te préoccuper de la feuille, à chercher la ligne...

Cordialement.

Re,

Tiens !?... Il est encore là lui ?