Grace aux support du groupe, j'ai fini mon application ou presque. Il me
reste l'impression et après lecture sur le web je suis complètement noyé ...
Je voudrai simplement envoyé sur mon imprimante, 5 lignes sous cette forme:
Mr
Nom
Prénom
Adresse
Tel
Comment dois je m'y prendre. Début de code disponible ?
Merci
Non, mes données sont dans les textboxs de la userform.
"isabelle" a écrit dans le message de groupe de discussion : i4m6io$hka$
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5") .PrintOut End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox combobox boutons) et que je veux imprimer à partir d'un bouton de ma userform
Tatanka
Bonsoir,
Cette macro suppose que tes TextBox se nomment respectivement TextBox1, TextBox2, TextBox3, TextBox4 et TextBox5. Mais ne connaissant pas le contexte de ton travail, je doute que ce soit la solution que tu recherches. En tous cas, c'est peut-être une piste prometteuse :-)
Private Sub CommandButton1_Click() Application.DisplayAlerts = False With Sheets.Add For i = 1 To 5 .Cells(i, 1).Value = Controls("Textbox" & i).Value Next i End With With ActiveSheet .PrintOut .Delete End With Application.DisplayAlerts = True End Sub
Serge
"dyj Orange" a écrit dans le message de news: 4c6eafc0$0$10202$
Non, mes données sont dans les textboxs de la userform.
"isabelle" a écrit dans le message de groupe de discussion : i4m6io$hka$
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5") .PrintOut End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox combobox boutons) et que je veux imprimer à partir d'un bouton de ma userform
Bonsoir,
Cette macro suppose que tes TextBox se nomment respectivement
TextBox1, TextBox2, TextBox3, TextBox4 et TextBox5.
Mais ne connaissant pas le contexte de ton travail, je doute que
ce soit la solution que tu recherches. En tous cas, c'est peut-être
une piste prometteuse :-)
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
With Sheets.Add
For i = 1 To 5
.Cells(i, 1).Value = Controls("Textbox" & i).Value
Next i
End With
With ActiveSheet
.PrintOut
.Delete
End With
Application.DisplayAlerts = True
End Sub
Serge
"dyj Orange" <dyj.orange@wanadoo.fr> a écrit dans le message de news: 4c6eafc0$0$10202$ba4acef3@reader.news.orange.fr...
Non, mes données sont dans les textboxs de la userform.
"isabelle" <i@v.org> a écrit dans le message de groupe de discussion : i4m6io$hka$1@speranza.aioe.org...
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5")
.PrintOut
End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox
combobox boutons) et que je veux imprimer à partir d'un bouton de ma
userform
Cette macro suppose que tes TextBox se nomment respectivement TextBox1, TextBox2, TextBox3, TextBox4 et TextBox5. Mais ne connaissant pas le contexte de ton travail, je doute que ce soit la solution que tu recherches. En tous cas, c'est peut-être une piste prometteuse :-)
Private Sub CommandButton1_Click() Application.DisplayAlerts = False With Sheets.Add For i = 1 To 5 .Cells(i, 1).Value = Controls("Textbox" & i).Value Next i End With With ActiveSheet .PrintOut .Delete End With Application.DisplayAlerts = True End Sub
Serge
"dyj Orange" a écrit dans le message de news: 4c6eafc0$0$10202$
Non, mes données sont dans les textboxs de la userform.
"isabelle" a écrit dans le message de groupe de discussion : i4m6io$hka$
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5") .PrintOut End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox combobox boutons) et que je veux imprimer à partir d'un bouton de ma userform
dyj Orange
Ta solution est toute à fait adaptée à mon besoin. Un grand merci.
"Tatanka" a écrit dans le message de groupe de discussion : i4mk67$b3l$
Bonsoir,
Cette macro suppose que tes TextBox se nomment respectivement TextBox1, TextBox2, TextBox3, TextBox4 et TextBox5. Mais ne connaissant pas le contexte de ton travail, je doute que ce soit la solution que tu recherches. En tous cas, c'est peut-être une piste prometteuse :-)
Private Sub CommandButton1_Click() Application.DisplayAlerts = False With Sheets.Add For i = 1 To 5 .Cells(i, 1).Value = Controls("Textbox" & i).Value Next i End With With ActiveSheet .PrintOut .Delete End With Application.DisplayAlerts = True End Sub
Serge
"dyj Orange" a écrit dans le message de news: 4c6eafc0$0$10202$
Non, mes données sont dans les textboxs de la userform.
"isabelle" a écrit dans le message de groupe de discussion : i4m6io$hka$
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5") .PrintOut End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox combobox boutons) et que je veux imprimer à partir d'un bouton de ma userform
Ta solution est toute à fait adaptée à mon besoin. Un grand merci.
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de groupe
de discussion : i4mk67$b3l$1@speranza.aioe.org...
Bonsoir,
Cette macro suppose que tes TextBox se nomment respectivement
TextBox1, TextBox2, TextBox3, TextBox4 et TextBox5.
Mais ne connaissant pas le contexte de ton travail, je doute que
ce soit la solution que tu recherches. En tous cas, c'est peut-être
une piste prometteuse :-)
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
With Sheets.Add
For i = 1 To 5
.Cells(i, 1).Value = Controls("Textbox" & i).Value
Next i
End With
With ActiveSheet
.PrintOut
.Delete
End With
Application.DisplayAlerts = True
End Sub
Serge
"dyj Orange" <dyj.orange@wanadoo.fr> a écrit dans le message de news:
4c6eafc0$0$10202$ba4acef3@reader.news.orange.fr...
Non, mes données sont dans les textboxs de la userform.
"isabelle" <i@v.org> a écrit dans le message de groupe de discussion :
i4m6io$hka$1@speranza.aioe.org...
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5")
.PrintOut
End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox
combobox boutons) et que je veux imprimer à partir d'un bouton de ma
userform
Ta solution est toute à fait adaptée à mon besoin. Un grand merci.
"Tatanka" a écrit dans le message de groupe de discussion : i4mk67$b3l$
Bonsoir,
Cette macro suppose que tes TextBox se nomment respectivement TextBox1, TextBox2, TextBox3, TextBox4 et TextBox5. Mais ne connaissant pas le contexte de ton travail, je doute que ce soit la solution que tu recherches. En tous cas, c'est peut-être une piste prometteuse :-)
Private Sub CommandButton1_Click() Application.DisplayAlerts = False With Sheets.Add For i = 1 To 5 .Cells(i, 1).Value = Controls("Textbox" & i).Value Next i End With With ActiveSheet .PrintOut .Delete End With Application.DisplayAlerts = True End Sub
Serge
"dyj Orange" a écrit dans le message de news: 4c6eafc0$0$10202$
Non, mes données sont dans les textboxs de la userform.
"isabelle" a écrit dans le message de groupe de discussion : i4m6io$hka$
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5") .PrintOut End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox combobox boutons) et que je veux imprimer à partir d'un bouton de ma userform
Tatanka
Un seul With est suffisant :
Private Sub CommandButton1_Click() Application.DisplayAlerts = False With Sheets.Add For i = 1 To 5 .Cells(i, 1).Value = Controls("Textbox" & i).Value Next i .PrintOut .Delete End With Application.DisplayAlerts = True End Sub
Serge
"dyj Orange" a écrit dans le message de news: 4c6f8e11$0$10190$
Ta solution est toute à fait adaptée à mon besoin. Un grand merci.
"Tatanka" a écrit dans le message de groupe de discussion : i4mk67$b3l$
Bonsoir,
Cette macro suppose que tes TextBox se nomment respectivement TextBox1, TextBox2, TextBox3, TextBox4 et TextBox5. Mais ne connaissant pas le contexte de ton travail, je doute que ce soit la solution que tu recherches. En tous cas, c'est peut-être une piste prometteuse :-)
Private Sub CommandButton1_Click() Application.DisplayAlerts = False With Sheets.Add For i = 1 To 5 .Cells(i, 1).Value = Controls("Textbox" & i).Value Next i End With With ActiveSheet .PrintOut .Delete End With Application.DisplayAlerts = True End Sub
Serge
"dyj Orange" a écrit dans le message de news: 4c6eafc0$0$10202$
Non, mes données sont dans les textboxs de la userform.
"isabelle" a écrit dans le message de groupe de discussion : i4m6io$hka$
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5") .PrintOut End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox combobox boutons) et que je veux imprimer à partir d'un bouton de ma userform
Un seul With est suffisant :
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
With Sheets.Add
For i = 1 To 5
.Cells(i, 1).Value = Controls("Textbox" & i).Value
Next i
.PrintOut
.Delete
End With
Application.DisplayAlerts = True
End Sub
Serge
"dyj Orange" <dyj.orange@wanadoo.fr> a écrit dans le message de news: 4c6f8e11$0$10190$ba4acef3@reader.news.orange.fr...
Ta solution est toute à fait adaptée à mon besoin. Un grand merci.
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de groupe de discussion : i4mk67$b3l$1@speranza.aioe.org...
Bonsoir,
Cette macro suppose que tes TextBox se nomment respectivement
TextBox1, TextBox2, TextBox3, TextBox4 et TextBox5.
Mais ne connaissant pas le contexte de ton travail, je doute que
ce soit la solution que tu recherches. En tous cas, c'est peut-être
une piste prometteuse :-)
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
With Sheets.Add
For i = 1 To 5
.Cells(i, 1).Value = Controls("Textbox" & i).Value
Next i
End With
With ActiveSheet
.PrintOut
.Delete
End With
Application.DisplayAlerts = True
End Sub
Serge
"dyj Orange" <dyj.orange@wanadoo.fr> a écrit dans le message de news: 4c6eafc0$0$10202$ba4acef3@reader.news.orange.fr...
Non, mes données sont dans les textboxs de la userform.
"isabelle" <i@v.org> a écrit dans le message de groupe de discussion : i4m6io$hka$1@speranza.aioe.org...
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5")
.PrintOut
End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox
combobox boutons) et que je veux imprimer à partir d'un bouton de ma
userform
Private Sub CommandButton1_Click() Application.DisplayAlerts = False With Sheets.Add For i = 1 To 5 .Cells(i, 1).Value = Controls("Textbox" & i).Value Next i .PrintOut .Delete End With Application.DisplayAlerts = True End Sub
Serge
"dyj Orange" a écrit dans le message de news: 4c6f8e11$0$10190$
Ta solution est toute à fait adaptée à mon besoin. Un grand merci.
"Tatanka" a écrit dans le message de groupe de discussion : i4mk67$b3l$
Bonsoir,
Cette macro suppose que tes TextBox se nomment respectivement TextBox1, TextBox2, TextBox3, TextBox4 et TextBox5. Mais ne connaissant pas le contexte de ton travail, je doute que ce soit la solution que tu recherches. En tous cas, c'est peut-être une piste prometteuse :-)
Private Sub CommandButton1_Click() Application.DisplayAlerts = False With Sheets.Add For i = 1 To 5 .Cells(i, 1).Value = Controls("Textbox" & i).Value Next i End With With ActiveSheet .PrintOut .Delete End With Application.DisplayAlerts = True End Sub
Serge
"dyj Orange" a écrit dans le message de news: 4c6eafc0$0$10202$
Non, mes données sont dans les textboxs de la userform.
"isabelle" a écrit dans le message de groupe de discussion : i4m6io$hka$
bonjour dyj,
si les données sur la Feuil1 par exemple,
With Sheets("Feuil1").Range("A1:A5") .PrintOut End With
isabelle
Le 2010-08-20 10:15, dyj Orange a écrit :
J'ai oublié de préciser que je suis sous Excel+vba+userform(textbox combobox boutons) et que je veux imprimer à partir d'un bouton de ma userform