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

[kawine91]

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 🙂🙂🙂🙂

 

[BOISGONTIER]

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

Bonjour,

Voir PJ

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

 

[kawine91]

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]

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

Voir PJ

JB

 

[kawine91]

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

Merci beaucoup JB... avec la recherche est-ce qu'il y a un moyen pour que je puisse ajouter un bouton vendre... puis sélectionner la pièce que je veux vendre?

 

[BOISGONTIER]

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

Voir PJ

http://boisgontierjacques.free.fr/fichiers/Formulaire/Achat.xls

JB