hugodughetto
XLDnaute Nouveau
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
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