Bonjour à tous,
Je suis toujours en train d'essayer de créer une base de gestion de
produits. Je cherche une macro qui permette de taper les données du stock
sur le formulaire pour ensuite envoyer ces données sur une feuille Excel.
Quelqu'un a-t'il un semblant de macro pour m'aider ?
Merci d'avance
Christèle
Bonjour Exestock est une gestion de stock sur Excel Philippe N http://nossphil.perso.cegetel.net/Exestock.html
argyronet
Bonjour,
Bien disons que c'est une procédure longue à expliquer par écrit. Le proncipe est simple en soi. Il faut autant de "TextBoxes" qu'il y a de cellules à renseigner et avoir un cellule nommée pour le départ de manière à déterminer la dernière cellule alimentée afin de ne pas écraser les données existantes. Vous pouvez alors employer la méthode:
Private Sub cmdValiderDonnee() Dim lDerniereLigneDispo As Long Dim iEffacer As Integer
Application.ScreenUpdating = False Range("CelluleDépart").Select lDerniereLigneDispo = ActiveCell.SpecialCells(xlCellTypeLastCell).Row + 1 Cells(lDerniereLigneDispo, 1).Select ActiveCell.Value = txtReference ActiveCell.Offset(0, 1).Value = txtNom ActiveCell.Offset(0, 2).Value = txtPrenom ActiveCell.Offset(0, 3).Value = txtAdresse ActiveCell.Offset(0, 4).Value = txtCP ActiveCell.Offset(0, 5).Value = txtVille ActiveCell.Offset(0, 6).Value = txtTelephone iEffacer = MsgBox("Les données sont inscrites sur la feuille..." & vbCrLf & "Voulez-vous saisir une autre fiche ?", vbYesNo + vbQuestion, "Nouvelle fiche") EffacerDonnees iEffacer If iEffacer = vbtes Then txtRef.SetFocus cmdValiderDonnee.Enabled = False End If End Sub
Private Sub EffacerDonnees(ByVal Effacer As Integer) If Effacer = vbYes Then txtReference = "" txtNom = "" txtPrenom = "" txtAdresse = "" txtCP = "" txtVille = "" txtTelephone = "" End If End Sub
Mais c'est très succint et pas très optimisé... Pour commencer c'est bien. Argy -- Mes tutoriels sur http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment
Bonjour à tous, Je suis toujours en train d'essayer de créer une base de gestion de produits. Je cherche une macro qui permette de taper les données du stock sur le formulaire pour ensuite envoyer ces données sur une feuille Excel. Quelqu'un a-t'il un semblant de macro pour m'aider ? Merci d'avance Christèle
Bonjour,
Bien disons que c'est une procédure longue à expliquer par écrit.
Le proncipe est simple en soi.
Il faut autant de "TextBoxes" qu'il y a de cellules à renseigner et avoir un
cellule nommée pour le départ de manière à déterminer la dernière cellule
alimentée afin de ne pas écraser les données existantes.
Vous pouvez alors employer la méthode:
Private Sub cmdValiderDonnee()
Dim lDerniereLigneDispo As Long
Dim iEffacer As Integer
Application.ScreenUpdating = False
Range("CelluleDépart").Select
lDerniereLigneDispo = ActiveCell.SpecialCells(xlCellTypeLastCell).Row + 1
Cells(lDerniereLigneDispo, 1).Select
ActiveCell.Value = txtReference
ActiveCell.Offset(0, 1).Value = txtNom
ActiveCell.Offset(0, 2).Value = txtPrenom
ActiveCell.Offset(0, 3).Value = txtAdresse
ActiveCell.Offset(0, 4).Value = txtCP
ActiveCell.Offset(0, 5).Value = txtVille
ActiveCell.Offset(0, 6).Value = txtTelephone
iEffacer = MsgBox("Les données sont inscrites sur la feuille..." & vbCrLf
& "Voulez-vous saisir une autre fiche ?", vbYesNo + vbQuestion, "Nouvelle
fiche")
EffacerDonnees iEffacer
If iEffacer = vbtes Then
txtRef.SetFocus
cmdValiderDonnee.Enabled = False
End If
End Sub
Private Sub EffacerDonnees(ByVal Effacer As Integer)
If Effacer = vbYes Then
txtReference = ""
txtNom = ""
txtPrenom = ""
txtAdresse = ""
txtCP = ""
txtVille = ""
txtTelephone = ""
End If
End Sub
Mais c'est très succint et pas très optimisé... Pour commencer c'est bien.
Argy
--
Mes tutoriels sur http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient.
Si vous n´obtenez pas la réponse voulue, communiquez différemment
Bonjour à tous,
Je suis toujours en train d'essayer de créer une base de gestion de
produits. Je cherche une macro qui permette de taper les données du stock
sur le formulaire pour ensuite envoyer ces données sur une feuille Excel.
Quelqu'un a-t'il un semblant de macro pour m'aider ?
Merci d'avance
Christèle
Bien disons que c'est une procédure longue à expliquer par écrit. Le proncipe est simple en soi. Il faut autant de "TextBoxes" qu'il y a de cellules à renseigner et avoir un cellule nommée pour le départ de manière à déterminer la dernière cellule alimentée afin de ne pas écraser les données existantes. Vous pouvez alors employer la méthode:
Private Sub cmdValiderDonnee() Dim lDerniereLigneDispo As Long Dim iEffacer As Integer
Application.ScreenUpdating = False Range("CelluleDépart").Select lDerniereLigneDispo = ActiveCell.SpecialCells(xlCellTypeLastCell).Row + 1 Cells(lDerniereLigneDispo, 1).Select ActiveCell.Value = txtReference ActiveCell.Offset(0, 1).Value = txtNom ActiveCell.Offset(0, 2).Value = txtPrenom ActiveCell.Offset(0, 3).Value = txtAdresse ActiveCell.Offset(0, 4).Value = txtCP ActiveCell.Offset(0, 5).Value = txtVille ActiveCell.Offset(0, 6).Value = txtTelephone iEffacer = MsgBox("Les données sont inscrites sur la feuille..." & vbCrLf & "Voulez-vous saisir une autre fiche ?", vbYesNo + vbQuestion, "Nouvelle fiche") EffacerDonnees iEffacer If iEffacer = vbtes Then txtRef.SetFocus cmdValiderDonnee.Enabled = False End If End Sub
Private Sub EffacerDonnees(ByVal Effacer As Integer) If Effacer = vbYes Then txtReference = "" txtNom = "" txtPrenom = "" txtAdresse = "" txtCP = "" txtVille = "" txtTelephone = "" End If End Sub
Mais c'est très succint et pas très optimisé... Pour commencer c'est bien. Argy -- Mes tutoriels sur http://argyronet.developpez.com/
Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment
Bonjour à tous, Je suis toujours en train d'essayer de créer une base de gestion de produits. Je cherche une macro qui permette de taper les données du stock sur le formulaire pour ensuite envoyer ces données sur une feuille Excel. Quelqu'un a-t'il un semblant de macro pour m'aider ? Merci d'avance Christèle
