Remplir une base de données à partir d'un formulaire...

kawine91

XLDnaute Nouveau
Bonjour,
Je suis nouvelle sur ce forum et remarquer que plusieurs personnes aidaient les gens pour la programmation vba. J'ai regarder plusieurs video sur youtube et lis plusieurs de vos article mais je ne réussit pas à le transferer sur mon document à moi... J'ai joint mon fichier excel... ce que j'ai fait c'est un formulaire avec lequel j'aimerais remplir ma base de données... ensuite sur la première feuille j'ai ajouter un bouton où nous allons pouvoir cliquer pour ouvrir le formulaire... mais ce code je le connais déjà.
Merci beaucoup à l'avance... ce serait grandement apprécié avoir de votre aide :):):):)
 

Pièces jointes

  • form_addpiece.xlsm
    19.9 KB · Affichages: 257

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Remplir une base de données à partir d'un formulaire...

Bonjour,

Voir PJ

Code:
Private Sub cb_ajouter_Click()
  If Me.txtnumpiece = "" Then
    MsgBox "saisir un no de pièce"
    Me.txtnumpiece.SetFocus
    Exit Sub
  End If
  Set f = Sheets("inventaire")
  ligne = f.[A65000].End(xlUp).Row + 1
  f.Cells(ligne, 1) = Me.txtnumpiece
  f.Cells(ligne, 2) = Me.txtdescription
  f.Cells(ligne, 3) = Me.txtemplacement
  If IsNumeric(Me.txtprix) Then f.Cells(ligne, 5) = CDbl(Me.txtprix)
  If IsNumeric(Me.txtquantité) Then f.Cells(ligne, 4) = CDbl(Me.txtquantité)
  raz
  Me.txtnumpiece.SetFocus
End Sub

Sub raz()
  Dim c As Control
  For Each c In Me.Controls
     Select Case TypeName(c)
        Case "TextBox"
          c.Value = ""
        Case "CheckBox"
          c.Value = False
        Case "ListBox", "ComboBox"
          c.ListIndex = -1
     End Select
  Next c
  Me.txtnumpiece.SetFocus
End Sub

Private Sub cb_annuler_Click()
   raz
End Sub

Private Sub txtprix_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If InStr("0123456789,", Chr(KeyAscii)) = 0 Then
   KeyAscii = 0
   Beep
 End If
End Sub

Private Sub txtquantité_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If InStr("0123456789,", Chr(KeyAscii)) = 0 Then
   KeyAscii = 0
   Beep
 End If
End Sub

JB
 

Pièces jointes

  • Copie de form_addpiece2.xls
    48 KB · Affichages: 282
Dernière édition:

kawine91

XLDnaute Nouveau
Re : Remplir une base de données à partir d'un formulaire...

Merci bcp BOISGONTIER, c'est très apprécier.... maintenant ce que j'aimerais faire c'est avoir un formulaire ou nous pouvons faire une recherche des pièces par le numéro de pièce donc j'aurrais simplement besoin de tapper le numéro de pièce et le reste j'afficherais toute seule sur le formulaire... je sais comment le faire avec les formules recherche... mais en vba je ne suis pas certaine.... Aussi sur ce même formulaire j'aimerais avoir un bouton vendu qui pourrais enlever automatiquement la pièce si elle est vendu... mais si il y en a 3 on en enlève seulement un à la fois... donc je ne veux pas que sa suprime la ligne... aussi... oulala jsusi demandande hehe.... j'aimerais qu'à chaque fois qu'on vend une pièce j'aimerais que sa l'aille sur un genre de rapport des ventes avec la date... si ses possibles...
Merci d'avance si vous pouvez m'aider avec cela aussi!
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Remplir une base de données à partir d'un formulaire...

Voir PJ

JB
 

Pièces jointes

  • form_addpiece.xls
    57 KB · Affichages: 218
  • form_addpiece.xls
    57 KB · Affichages: 257
  • form_addpiece.xls
    57 KB · Affichages: 275
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO