Arnaud dit Citro
XLDnaute Junior
Bonjour à tous,
Je suis à la recherche d'une solution à mon petit problème.
J'ai créé un petit formulaire sur lequel il y a une combobox, 2 textbox destinées à la date de début et à celle de fin, un bouton valider et un annuler. Je souhaiterais qu'à la validation, il soit extrait vers la feuille "Statistiques" des données de la feuille "Mvt_Stock"; c'est à dire la référence, la désignation, la quantité (additionnée dans le cas où la référence serait en double) et le prix (additionné dans le cas également où la référence serait en double) selon le service sélectionné dans la combobox, et le tout encadré par les dates.
Je fais des bouts de codes depuis ce matin mais rien ne fonctionne et là, je suis vraiment perdu, le dernier en date ressemble à ça :
En gros, autant dire que ça ne ressemble à rien (il y a eu des bouts de code un peu plus construits quand même, mais cela ne fonctionnait pas non plus).
Je joins le fichier. Je précise que les données dans la feuille "Mvt_Stock" proviennent d'un autre formulaire (qui lui fonctionne parfaitement) mais que je n'ai pas mis avec le fichier, n'étant pas lié selon moi à ce problème.
Si quelqu'un à une solution, je suis bien évidemment preneur.
Bonne fin de dimanche à tous
Arnaud
Je suis à la recherche d'une solution à mon petit problème.
J'ai créé un petit formulaire sur lequel il y a une combobox, 2 textbox destinées à la date de début et à celle de fin, un bouton valider et un annuler. Je souhaiterais qu'à la validation, il soit extrait vers la feuille "Statistiques" des données de la feuille "Mvt_Stock"; c'est à dire la référence, la désignation, la quantité (additionnée dans le cas où la référence serait en double) et le prix (additionné dans le cas également où la référence serait en double) selon le service sélectionné dans la combobox, et le tout encadré par les dates.
Je fais des bouts de codes depuis ce matin mais rien ne fonctionne et là, je suis vraiment perdu, le dernier en date ressemble à ça :
VB:
Private Sub CommandButton1_Click()
With Sheets("Statistiques")
.Range("B6") = CDate(TextBox1)
.Range("D6") = CDate(TextBox2)
.Range("B4") = ComboBox1
End With
TbDeb = CDate(TextBox1)
TbFin = CDate(TextBox2)
StaDat = Sheets("Mvt_Stock").Range("E65536")
If FmvtSta = ComboBox1 Then
If StaDat >= TbDeb And StaDat <= TbFin Then
For Each FmvtSta In Sheets("Mvt_Stock").Range("G65536")
Next
Else
End If
End If
Unload Me
End SubEn gros, autant dire que ça ne ressemble à rien (il y a eu des bouts de code un peu plus construits quand même, mais cela ne fonctionnait pas non plus).
Je joins le fichier. Je précise que les données dans la feuille "Mvt_Stock" proviennent d'un autre formulaire (qui lui fonctionne parfaitement) mais que je n'ai pas mis avec le fichier, n'étant pas lié selon moi à ce problème.
Si quelqu'un à une solution, je suis bien évidemment preneur.
Bonne fin de dimanche à tous
Arnaud