Incrémentation automatique

Bonjour, j'ai un userform qui me permet d'ajouter un litige fournisseur. Dans ce userform, j'ai rajouté un TextBox " Numero de litige". Dans l'idéal, a chaque fois que j'ouvre le userform, un numéro automatique devrait s'afficher dans le textbox. (A partir de 1 jusqu'à l'infini). J'ai essayé plusieurs codes, mais rien de concluant a chaque fois. Je joins mon fichier. Merci pour l'aide.

Bonjour Vince, bonjour le forum,

Tu ne renvoie nulle part le numéro du litige !... Par conséquent je ne vois pas comment on pourrait l'incrémenté s'il n'est pas stocké quelque part dans l'onglet... Ou alors je n'ai pas tout compris...

Autant pour moi, je remet le fichier modifié.

Re,

Ajoute le code d'initialisation ci-dessous :

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

Et n'oublie pas d'ajouter dans Private Sub CommandButton_valider_Click()

Cells(Der_ligne, 2).Value = numero_litige.Value

Pour remettre à zéro ton UserForm je te conseille de le fermer et de l'ouvrir à nouveau :

Unload Me
UserForm_litige_fournisseur.Show

Plutôt que :

 'Après insertion, on remet les valeurs initiales
        TextBox_commande.Value = ""
        ComboBox_fournisseurs.Value = ""
        TextBox_date.Value = ""
        TextBox_bl.Value = ""
        ComboBox_reception.Value = ""
        ComboBox_traitement.Value = ""
        ComboBox_litige.Value = ""
        TextBox_details.Value = ""
        TextBox_action.Value = ""
        ComboBox_statut.Value = ""

Sinon tu n'auras pas le numéro de litige à jour...

Merci beaucoup pour ton aide!

Ca fonctionne niquel merci beaucoup !!