Bonjour,
j'ai fouillé un peu partout sur les differents sites d'excel et n'ai
pas trouvé mon bonheur
voila à partir d'une base de donnees liste de materiaux etc... je
voudrais recuperer la ligne de donnees sur un formulaire dans des
textbox et que celui ci s'imprime en 2 exemplaires
1 pour le client
le 2 pour archive
l'inverse je sais faire je sais aussi recuperer dans un combobox
si vous avez cela en archive je pense à JB et tous les autres
merci
bonne journee
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FdeCourt
Hello,
Je n'ai pas grand chose sous la main, mais pour imprimer un formulaire, tu a la commande PrintForm, genre :
MonUserForm.PrintForm
Ensuite pour remplir tes textbox, ca depend de la manière dont tu fait la recherche dans ta base de données, à partir de quels critères.... Mais si tu as par exemple une liste déroulante avec l'ensemble des matériaux disponibles, et qu'en en sélectionnant, tu ais les textbox qui se remplisse, un truc dans le genre :
Private Sub ComboBox1_Change() UserForm1.TextBox1.Value = Cells(ComboBox1.ListIndex + 2, 2).Value End Sub
On 30 jan, 11:39, eneric wrote:
Bonjour, j'ai fouillé un peu partout sur les differents sites d'excel et n'ai pas trouvé mon bonheur voila à partir d'une base de donnees liste de materiaux etc... je voudrais recuperer la ligne de donnees sur un formulaire dans des textbox et que celui ci s'imprime en 2 exemplaires 1 pour le client le 2 pour archive l'inverse je sais faire je sais aussi recuperer dans un combobox si vous avez cela en archive je pense à JB et tous les autres merci bonne journee
-- eneric
Hello,
Je n'ai pas grand chose sous la main, mais pour imprimer un
formulaire, tu a la commande PrintForm, genre :
MonUserForm.PrintForm
Ensuite pour remplir tes textbox, ca depend de la manière dont tu fait
la recherche dans ta base de données, à partir de quels critères....
Mais si tu as par exemple une liste déroulante avec l'ensemble des
matériaux disponibles, et qu'en en sélectionnant, tu ais les textbox
qui se remplisse, un truc dans le genre :
Private Sub ComboBox1_Change()
UserForm1.TextBox1.Value = Cells(ComboBox1.ListIndex + 2, 2).Value
End Sub
On 30 jan, 11:39, eneric <eneri...@cegetel.net> wrote:
Bonjour,
j'ai fouillé un peu partout sur les differents sites d'excel et n'ai
pas trouvé mon bonheur
voila à partir d'une base de donnees liste de materiaux etc... je
voudrais recuperer la ligne de donnees sur un formulaire dans des
textbox et que celui ci s'imprime en 2 exemplaires
1 pour le client
le 2 pour archive
l'inverse je sais faire je sais aussi recuperer dans un combobox
si vous avez cela en archive je pense à JB et tous les autres
merci
bonne journee
Je n'ai pas grand chose sous la main, mais pour imprimer un formulaire, tu a la commande PrintForm, genre :
MonUserForm.PrintForm
Ensuite pour remplir tes textbox, ca depend de la manière dont tu fait la recherche dans ta base de données, à partir de quels critères.... Mais si tu as par exemple une liste déroulante avec l'ensemble des matériaux disponibles, et qu'en en sélectionnant, tu ais les textbox qui se remplisse, un truc dans le genre :
Private Sub ComboBox1_Change() UserForm1.TextBox1.Value = Cells(ComboBox1.ListIndex + 2, 2).Value End Sub
On 30 jan, 11:39, eneric wrote:
Bonjour, j'ai fouillé un peu partout sur les differents sites d'excel et n'ai pas trouvé mon bonheur voila à partir d'une base de donnees liste de materiaux etc... je voudrais recuperer la ligne de donnees sur un formulaire dans des textbox et que celui ci s'imprime en 2 exemplaires 1 pour le client le 2 pour archive l'inverse je sais faire je sais aussi recuperer dans un combobox si vous avez cela en archive je pense à JB et tous les autres merci bonne journee
-- eneric
eneric
eneric à dit
Hello,
Je n'ai pas grand chose sous la main, mais pour imprimer un formulaire, tu a la commande PrintForm, genre :
MonUserForm.PrintForm
Ensuite pour remplir tes textbox, ca depend de la manière dont tu fait la recherche dans ta base de données, à partir de quels critères.... Mais si tu as par exemple une liste déroulante avec l'ensemble des matériaux disponibles, et qu'en en sélectionnant, tu ais les textbox qui se remplisse, un truc dans le genre :
Private Sub ComboBox1_Change() UserForm1.TextBox1.Value = Cells(ComboBox1.ListIndex + 2, 2).Value End Sub Voila ex
A B C D E F G H ref art (panneau) L l Pr:M2 TVA cout Nom donc en tapant le code produit dans un text box je recupere toutes les donnees dans les autres champs avec un combobox j'ai la ligne complete merci j'ai deja une piste
-- eneric
eneric à dit
Hello,
Je n'ai pas grand chose sous la main, mais pour imprimer un
formulaire, tu a la commande PrintForm, genre :
MonUserForm.PrintForm
Ensuite pour remplir tes textbox, ca depend de la manière dont tu fait
la recherche dans ta base de données, à partir de quels critères....
Mais si tu as par exemple une liste déroulante avec l'ensemble des
matériaux disponibles, et qu'en en sélectionnant, tu ais les textbox
qui se remplisse, un truc dans le genre :
Private Sub ComboBox1_Change()
UserForm1.TextBox1.Value = Cells(ComboBox1.ListIndex + 2, 2).Value
End Sub
Voila ex
A B C D E F G H
ref art (panneau) L l Pr:M2 TVA cout Nom
donc en tapant le code produit dans un text box
je recupere toutes les donnees dans les autres champs
avec un combobox j'ai la ligne complete
merci j'ai deja une piste
Je n'ai pas grand chose sous la main, mais pour imprimer un formulaire, tu a la commande PrintForm, genre :
MonUserForm.PrintForm
Ensuite pour remplir tes textbox, ca depend de la manière dont tu fait la recherche dans ta base de données, à partir de quels critères.... Mais si tu as par exemple une liste déroulante avec l'ensemble des matériaux disponibles, et qu'en en sélectionnant, tu ais les textbox qui se remplisse, un truc dans le genre :
Private Sub ComboBox1_Change() UserForm1.TextBox1.Value = Cells(ComboBox1.ListIndex + 2, 2).Value End Sub Voila ex
A B C D E F G H ref art (panneau) L l Pr:M2 TVA cout Nom donc en tapant le code produit dans un text box je recupere toutes les donnees dans les autres champs avec un combobox j'ai la ligne complete merci j'ai deja une piste
-- eneric
FdeCourt
Ok, alors une solution plus complete.
Dans ton userform, tu met un bouton rechercher, sur ce bouton, tu mets ce code :
Private Sub BoutonRechercher_Click() Dim lgn As Integer With Feuil1.Range("a1:a500") Set c = .Find(TextBox2.Value, LookIn:=xlValues) If Not c Is Nothing Then lgn = c.Row: maj lgn End With End Sub
et un autre bouton imprimer avec ce code : Private Sub ImprimerUserform_Click() With UserForm1 .PrintForm .PrintForm End With End Sub
puis dans un module standard, tu mets ce code :
Sub maj(x As Integer) UserForm1.TextBox1.Value = Cells(x, 2).Value UserForm1.TextBox2.Value = Cells(x, 3).Value UserForm1.TextBox3.Value = Cells(x, 4).Value UserForm1.TextBox4.Value = Cells(x, 5).Value End Sub
On 30 jan, 12:46, eneric wrote:
eneric à dit
Hello,
Je n'ai pas grand chose sous la main, mais pour imprimer un formulaire, tu a la commande PrintForm, genre :
MonUserForm.PrintForm
Ensuite pour remplir tes textbox, ca depend de la manière dont tu fait la recherche dans ta base de données, à partir de quels critères. ... Mais si tu as par exemple une liste déroulante avec l'ensemble des matériaux disponibles, et qu'en en sélectionnant, tu ais les textbox qui se remplisse, un truc dans le genre :
Private Sub ComboBox1_Change() UserForm1.TextBox1.Value = Cells(ComboBox1.ListIndex + 2, 2).Value End SubVoila ex
A B C D E F G H ref art (panneau) L l Pr:M2 TVA cout Nom donc en tapant le code produit dans un text box je recupere toutes les donnees dans les autres champs avec un combobox j'ai la ligne complete merci j'ai deja une piste
-- eneric- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
Ok, alors une solution plus complete.
Dans ton userform, tu met un bouton rechercher, sur ce bouton, tu mets
ce code :
Private Sub BoutonRechercher_Click()
Dim lgn As Integer
With Feuil1.Range("a1:a500")
Set c = .Find(TextBox2.Value, LookIn:=xlValues)
If Not c Is Nothing Then lgn = c.Row: maj lgn
End With
End Sub
et un autre bouton imprimer avec ce code :
Private Sub ImprimerUserform_Click()
With UserForm1
.PrintForm
.PrintForm
End With
End Sub
puis dans un module standard, tu mets ce code :
Sub maj(x As Integer)
UserForm1.TextBox1.Value = Cells(x, 2).Value
UserForm1.TextBox2.Value = Cells(x, 3).Value
UserForm1.TextBox3.Value = Cells(x, 4).Value
UserForm1.TextBox4.Value = Cells(x, 5).Value
End Sub
On 30 jan, 12:46, eneric <eneri...@cegetel.net> wrote:
eneric à dit
Hello,
Je n'ai pas grand chose sous la main, mais pour imprimer un
formulaire, tu a la commande PrintForm, genre :
MonUserForm.PrintForm
Ensuite pour remplir tes textbox, ca depend de la manière dont tu fait
la recherche dans ta base de données, à partir de quels critères. ...
Mais si tu as par exemple une liste déroulante avec l'ensemble des
matériaux disponibles, et qu'en en sélectionnant, tu ais les textbox
qui se remplisse, un truc dans le genre :
Private Sub ComboBox1_Change()
UserForm1.TextBox1.Value = Cells(ComboBox1.ListIndex + 2, 2).Value
End SubVoila ex
A B C D E F G H
ref art (panneau) L l Pr:M2 TVA cout Nom
donc en tapant le code produit dans un text box
je recupere toutes les donnees dans les autres champs
avec un combobox j'ai la ligne complete
merci j'ai deja une piste
--
eneric- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
Dans ton userform, tu met un bouton rechercher, sur ce bouton, tu mets ce code :
Private Sub BoutonRechercher_Click() Dim lgn As Integer With Feuil1.Range("a1:a500") Set c = .Find(TextBox2.Value, LookIn:=xlValues) If Not c Is Nothing Then lgn = c.Row: maj lgn End With End Sub
et un autre bouton imprimer avec ce code : Private Sub ImprimerUserform_Click() With UserForm1 .PrintForm .PrintForm End With End Sub
puis dans un module standard, tu mets ce code :
Sub maj(x As Integer) UserForm1.TextBox1.Value = Cells(x, 2).Value UserForm1.TextBox2.Value = Cells(x, 3).Value UserForm1.TextBox3.Value = Cells(x, 4).Value UserForm1.TextBox4.Value = Cells(x, 5).Value End Sub
On 30 jan, 12:46, eneric wrote:
eneric à dit
Hello,
Je n'ai pas grand chose sous la main, mais pour imprimer un formulaire, tu a la commande PrintForm, genre :
MonUserForm.PrintForm
Ensuite pour remplir tes textbox, ca depend de la manière dont tu fait la recherche dans ta base de données, à partir de quels critères. ... Mais si tu as par exemple une liste déroulante avec l'ensemble des matériaux disponibles, et qu'en en sélectionnant, tu ais les textbox qui se remplisse, un truc dans le genre :
Private Sub ComboBox1_Change() UserForm1.TextBox1.Value = Cells(ComboBox1.ListIndex + 2, 2).Value End SubVoila ex
A B C D E F G H ref art (panneau) L l Pr:M2 TVA cout Nom donc en tapant le code produit dans un text box je recupere toutes les donnees dans les autres champs avec un combobox j'ai la ligne complete merci j'ai deja une piste
-- eneric- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
eneric
eneric à dit merci super sympa je vais me mettre au travail
a+
Ok, alors une solution plus complete.
Dans ton userform, tu met un bouton rechercher, sur ce bouton, tu mets ce code :
Private Sub BoutonRechercher_Click() Dim lgn As Integer With Feuil1.Range("a1:a500") Set c = .Find(TextBox2.Value, LookIn:=xlValues) If Not c Is Nothing Then lgn = c.Row: maj lgn End With End Sub
et un autre bouton imprimer avec ce code : Private Sub ImprimerUserform_Click() With UserForm1 .PrintForm .PrintForm End With End Sub
puis dans un module standard, tu mets ce code :
Sub maj(x As Integer) UserForm1.TextBox1.Value = Cells(x, 2).Value UserForm1.TextBox2.Value = Cells(x, 3).Value UserForm1.TextBox3.Value = Cells(x, 4).Value UserForm1.TextBox4.Value = Cells(x, 5).Value End Sub
-- eneric
eneric à dit
merci super sympa
je vais me mettre au travail
a+
Ok, alors une solution plus complete.
Dans ton userform, tu met un bouton rechercher, sur ce bouton, tu mets
ce code :
Private Sub BoutonRechercher_Click()
Dim lgn As Integer
With Feuil1.Range("a1:a500")
Set c = .Find(TextBox2.Value, LookIn:=xlValues)
If Not c Is Nothing Then lgn = c.Row: maj lgn
End With
End Sub
et un autre bouton imprimer avec ce code :
Private Sub ImprimerUserform_Click()
With UserForm1
.PrintForm
.PrintForm
End With
End Sub
puis dans un module standard, tu mets ce code :
Sub maj(x As Integer)
UserForm1.TextBox1.Value = Cells(x, 2).Value
UserForm1.TextBox2.Value = Cells(x, 3).Value
UserForm1.TextBox3.Value = Cells(x, 4).Value
UserForm1.TextBox4.Value = Cells(x, 5).Value
End Sub
eneric à dit merci super sympa je vais me mettre au travail
a+
Ok, alors une solution plus complete.
Dans ton userform, tu met un bouton rechercher, sur ce bouton, tu mets ce code :
Private Sub BoutonRechercher_Click() Dim lgn As Integer With Feuil1.Range("a1:a500") Set c = .Find(TextBox2.Value, LookIn:=xlValues) If Not c Is Nothing Then lgn = c.Row: maj lgn End With End Sub
et un autre bouton imprimer avec ce code : Private Sub ImprimerUserform_Click() With UserForm1 .PrintForm .PrintForm End With End Sub
puis dans un module standard, tu mets ce code :
Sub maj(x As Integer) UserForm1.TextBox1.Value = Cells(x, 2).Value UserForm1.TextBox2.Value = Cells(x, 3).Value UserForm1.TextBox3.Value = Cells(x, 4).Value UserForm1.TextBox4.Value = Cells(x, 5).Value End Sub
