Problème archivage: insérer automatiquement des chiffres différents

[hugodughetto]

Bonsoir,

Je suis débutant sur Excel et j'ai un projet d'étude à rendre: je dois créer un logiciel qui gère une équipe de vendeur.
J'essaye de faire une userform (formulairevendeur) qui me permette d'ajouter un vendeur (nomvendeur) et la boutique dans laquelle il travaille à ma base de donnée et je veux qu'elle attribue automatiquement un identifiant (codevendeur) à ce nouveau vendeur.

Mais je n'y arrive pas, en effet ma userform me permet d'ajouter le vendeur mais aucun identifiant n'apparaît

Est ce que vous auriez une idée?

merci

j'ai voulu me servir d'un compteur de ligne: (nblignes_remplies)

et d'un compteur d'identifiant (en I21)

Voici mon code:

Private Sub boutonok_Click()
trouve = "N"
If Len(formulairevendeur.nomvendeur.Value) > 0 And Len(formulairevendeur.boutique.Value) > 0 Then


For Each cellule In Sheets("basededonnees").Range("debutarchivage")
If LCase(cellule.Value) = LCase(formulairevendeur.nomvendeur.Value) Then
trouve = "O"
MsgBox ("La valeur est déjà dans la base de données")
Exit For
End If
Next
Else
MsgBox ("Vous n'avez pas rempli tous les champs")
Exit Sub
End If
Invisible = Range("I21").Value

If trouve = "N" Then
nblignes_remplies = Sheets("basededonnees").Range("nblignes_remplies").Value

Sheets("basededonnees").Range("A1").Offset(nblignes_remplies + 1, 0).Value = codevendeur.Value
Sheets("basededonnees").Range("A1").Offset(nblignes_remplies + 1, 1).Value = formulairevendeur.nomvendeur.Value
Sheets("basededonnees").Range("A1").Offset(nblignes_remplies + 1, 2).Value = formulairevendeur.boutique.Value

codevendeur.Value = ""
nomvendeur.Value = ""
boutique.Value = ""
formulairevendeur.Hide


End If

End Sub