VBA: Gestion de stock
balobalou
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous, je suis étudiant en logistique et je dois réaliser un logicel de gestion de stock permettant de réaliser des entrées/sorties ainsi que d'ajouter de nouvelles références. J'ai pour le moment créer un bouton démarrage affecter à une macro permettant de lancer le logiciel, ainsi que 3 user form pour passer d'un sous-menu à l'autre, avec les fonctions hide et show.
J'aimerais maintenant que lorsqu'un l'utilisateur appuye sur confirmer (la nouvelle ref article), la ligne de saisie descende automatiquement pour qu'il puisse entrer un nouvel article. En sachant que la première ligne de saisie est la 2.
Je pense qu'il faut faire une boucle, mais je n'arrive pas à comprendre comment. Merci d'avance pour votre aide, bonne journée
Option Explicit
Dim i As Integer
Private Sub retour_Click()
NouvelleRefArticle.Hide
GestionStocks.Show
End Sub
Private Sub TextBox1_change()
Cells(i, 1).Value = TextBox1.Text
End Sub
Private Sub TextBox2_Change()
Cells(i, 2).Value = TextBox2.Text
End Sub
Private Sub TextBox3_Change()
Cells(i, 3).Value = TextBox3.Text
End Sub
Private Sub TextBox4_Change()
Cells(i, 4).Value = TextBox4.Text
End Sub
Private Sub TextBox5_Change()
Cells(i, 5).Value = TextBox5.Text
End Sub
Private Sub confirmer_Click()
End Sub
J'aimerais maintenant que lorsqu'un l'utilisateur appuye sur confirmer (la nouvelle ref article), la ligne de saisie descende automatiquement pour qu'il puisse entrer un nouvel article. En sachant que la première ligne de saisie est la 2.
Je pense qu'il faut faire une boucle, mais je n'arrive pas à comprendre comment. Merci d'avance pour votre aide, bonne journée
Option Explicit
Dim i As Integer
Private Sub retour_Click()
NouvelleRefArticle.Hide
GestionStocks.Show
End Sub
Private Sub TextBox1_change()
Cells(i, 1).Value = TextBox1.Text
End Sub
Private Sub TextBox2_Change()
Cells(i, 2).Value = TextBox2.Text
End Sub
Private Sub TextBox3_Change()
Cells(i, 3).Value = TextBox3.Text
End Sub
Private Sub TextBox4_Change()
Cells(i, 4).Value = TextBox4.Text
End Sub
Private Sub TextBox5_Change()
Cells(i, 5).Value = TextBox5.Text
End Sub
Private Sub confirmer_Click()
End Sub
A voir également:
- VBA: Gestion de stock
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel