Ajouter une numérotation automatique

Bonjour à tous,

Je souhaite effectuer un fichier de suivi de hotline téléphonique.

J'ai trouvé un ficher excel qui me sert de base sur le forum, je lui apporte quelques modifications.

Je souhaiterai savoir si un membre pouvait m'aider dans ma démarche, en effet sur l'userform en haut a droite j'aurai souhaité une numérotation automatique, par rapport au dernier enregistrement sur l'onglet suivi demande.

Il commencerait à 001 et ainsi de suite. Il aurait fallu que le numéro soit dans la colonne A, ce qui décalera de +1 les colonnes forcément.

Je vous joins le fichier, en vous remerciant bien par avance de votre aide.

Cordialement.

Bonjour,

Modifie ou ajoute les lignes suivantes : (les lignes surlignés)

Sub Saisie_int()
    Dim derLig As Integer'à ajouter
    derLig = Sheets("Suivi demande").Range("A" & Rows.Count).End(xlUp).Row'à ajouter
    'Load USF_Inter à supprimer car fait doublon avec la ligne USF_Inter.Show
    USF_Inter.Txt_date.Value = Format(Now(), "DD/MM/YY")
    USF_Inter.Txt_heure.Value = Format(Now(), "hh:nn:ss")
    USF_Inter.Txt_site.Value = ""
    USF_Inter.Cbx_secteur.List = Sheets("paramètres").Range("B2:B50").Value
    USF_Inter.Cbx_appel.List = Sheets("paramètres").Range("C2:C9").Value
    USF_Inter.Cbx_resolution.List = Sheets("paramètres").Range("D2:D3").Value
    USF_Inter.Cbx_machine.List = Sheets("paramètres").Range("A2:A54").Value
    USF_Inter.Txt_contact.Value = ""
    USF_Inter.Txt_adresse.Value = ""
    USF_Inter.Txt_Cp.Value = ""
    USF_Inter.Txt_Ville = Format(derLig, "000")' à modifier
    USF_Inter.Txt_tél.Value = ""
    USF_Inter.Show
End Sub

NB : Normalement l'initialisation des objets du formulaire se fait dans un module qui s'appelle "Userform_initialize"

Merci bien Raja c'est super !