commande oui/non

bonjour
tu peux mettre une boite msgbox avec oui et non
Sub Imprimliste()
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value

If MsgBox("On iimprime çà ?",Vbyesno) = vbyes then
de.PrintOut
end if
End If
Next cel
End Sub


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Freedo" <freedo.anonymous@discussions.microsoft.com> a écrit dans le message de news: 0ae301c39947$a56f2c00$a101280a@phx.gbl...
Bonjour à Totes et à tous,
j'imprime une feuille par l'action d'un bouton lié à une
macro et j'aimerais avoir le choix "oui / non " avant
d'imprimer afin de bien m'assurer que ma feuille à
impriler est bien prête.
Oui mais comment ?
et où intercaler les commandes dans la macro suivante :
Sub Imprimliste()
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End Sub
merci de suivre,
Freedo

Salut Fredo
Essaie,

Sub Imprimliste()
rep = MsgBox("Imprimante prête ?", 1)
If rep = 1 Then
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End If
End Sub

Salutations.
JJ


"Freedo" <freedo.anonymous@discussions.microsoft.com> a écrit dans le
message news: 0ae301c39947$a56f2c00$a101280a@phx.gbl...
Bonjour à Totes et à tous,
j'imprime une feuille par l'action d'un bouton lié à une
macro et j'aimerais avoir le choix "oui / non " avant
d'imprimer afin de bien m'assurer que ma feuille à
impriler est bien prête.
Oui mais comment ?
et où intercaler les commandes dans la macro suivante :
Sub Imprimliste()
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End Sub
merci de suivre,
Freedo

Re
Si tu préfère un oui /non au lieu d'un OK/Annuler change cette ligne

rep = MsgBox("Imprimante prête ?", 1)
par:

rep = MsgBox("Imprimante prête ?", 4)
Salutations

JJ

"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message news:
ur52BXWmDHA.1728@TK2MSFTNGP11.phx.gbl...

Salut Fredo
Essaie,

Sub Imprimliste()
rep = MsgBox("Imprimante prête ?", 1)
If rep = 1 Then
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End If
End Sub

Salutations.
JJ


"Freedo" <freedo.anonymous@discussions.microsoft.com> a écrit dans le
message news: 0ae301c39947$a56f2c00$a101280a@phx.gbl...
Bonjour à Totes et à tous,
j'imprime une feuille par l'action d'un bouton lié à une
macro et j'aimerais avoir le choix "oui / non " avant
d'imprimer afin de bien m'assurer que ma feuille à
impriler est bien prête.
Oui mais comment ?
et où intercaler les commandes dans la macro suivante :
Sub Imprimliste()
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End Sub
merci de suivre,
Freedo

Re
Et Celle-ci bien sur.....
If rep=6 then
JJ

"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message news:
uY#evDXmDHA.2160@TK2MSFTNGP10.phx.gbl...

Re
Si tu préfère un oui /non au lieu d'un OK/Annuler change cette ligne

rep = MsgBox("Imprimante prête ?", 1)
par:

rep = MsgBox("Imprimante prête ?", 4)
Salutations

JJ

"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message news:
ur52BXWmDHA.1728@TK2MSFTNGP11.phx.gbl...

Salut Fredo
Essaie,

Sub Imprimliste()
rep = MsgBox("Imprimante prête ?", 1)
If rep = 1 Then
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End If
End Sub

Salutations.
JJ


"Freedo" <freedo.anonymous@discussions.microsoft.com> a écrit dans le
message news: 0ae301c39947$a56f2c00$a101280a@phx.gbl...
Bonjour à Totes et à tous,
j'imprime une feuille par l'action d'un bouton lié à une
macro et j'aimerais avoir le choix "oui / non " avant
d'imprimer afin de bien m'assurer que ma feuille à
impriler est bien prête.
Oui mais comment ?
et où intercaler les commandes dans la macro suivante :
Sub Imprimliste()
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End Sub
merci de suivre,
Freedo

Bonjour Pierre,
merci beaucoup pour ta solution
C'est OK;
Cordialement
Freedo

-----Message d'origine-----
bonjour
tu peux mettre une boite msgbox avec oui et non
Sub Imprimliste()
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value

If MsgBox("On iimprime çà ?",Vbyesno) = vbyes then
de.PrintOut
end if
End If
Next cel
End Sub


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Freedo" <freedo.anonymous@discussions.microsoft.com> a
écrit dans le message de news: 0ae301c39947$a56f2c00

$a101280a@phx.gbl...

Bonjour à Totes et à tous,
j'imprime une feuille par l'action d'un bouton lié à une
macro et j'aimerais avoir le choix "oui / non " avant
d'imprimer afin de bien m'assurer que ma feuille à
impriler est bien prête.
Oui mais comment ?
et où intercaler les commandes dans la macro suivante :
Sub Imprimliste()
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End Sub
merci de suivre,
Freedo


.

Bonjour Jacky,
merci beaucoup pour la profusion de solution, c'est OK
Mais peux-tu m'expliquer pourquoi il faut mettre 1, 4 ou
6 ?
le résultat change la commande sur le bouton, çà
d'accord! mais encore ?
Ou peut être d'autres chiffres qui me donnerait quoi?
@+
Cordialement,
Freedo

-----Message d'origine-----
Re
Et Celle-ci bien sur.....
If rep=6 then
JJ

"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le
message news:

uY#evDXmDHA.2160@TK2MSFTNGP10.phx.gbl...

Re
Si tu préfère un oui /non au lieu d'un OK/Annuler
change cette ligne

rep = MsgBox("Imprimante prête ?", 1)
par:

rep = MsgBox("Imprimante prête ?", 4)
Salutations

JJ

"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le
message news:

ur52BXWmDHA.1728@TK2MSFTNGP11.phx.gbl...

Salut Fredo
Essaie,

Sub Imprimliste()
rep = MsgBox("Imprimante prête ?", 1)
If rep = 1 Then
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End If
End Sub

Salutations.
JJ


"Freedo"
<freedo.anonymous@discussions.microsoft.com> a écrit dans

le

message news: 0ae301c39947$a56f2c00
$a101280a@phx.gbl...

Bonjour à Totes et à tous,
j'imprime une feuille par l'action d'un bouton lié à
une

macro et j'aimerais avoir le choix "oui / non " avant
d'imprimer afin de bien m'assurer que ma feuille à
impriler est bien prête.
Oui mais comment ?
et où intercaler les commandes dans la macro
suivante :

Sub Imprimliste()
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End Sub
merci de suivre,
Freedo

.

Re
Le 1 correspond au bouton "ok" et bouton "annuler" le 4 correspond au
bouton "oui" et bouton"non", pour la mise en place de ces boutons dans ton
messagebox
Le 6 correspond à la valeur retournée par VBA pour savoir quel bouton tu as
cliqué.
Pour plus d'informations , un coup d'oeil sur l'aide des "MSGBOX" dans vba,
tous les chiffres sont donnés.
Bonne journée
JJ

"Freedo" <Freedo.anonymous@discussions.microsoft.com> a écrit dans le
message news: 077101c39df8$dd7f3ee0$a601280a@phx.gbl...
Bonjour Jacky,
merci beaucoup pour la profusion de solution, c'est OK
Mais peux-tu m'expliquer pourquoi il faut mettre 1, 4 ou
6 ?
le résultat change la commande sur le bouton, çà
d'accord! mais encore ?
Ou peut être d'autres chiffres qui me donnerait quoi?
@+
Cordialement,
Freedo

-----Message d'origine-----
Re
Et Celle-ci bien sur.....
If rep=6 then
JJ

"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le
message news:

uY#evDXmDHA.2160@TK2MSFTNGP10.phx.gbl...

Re
Si tu préfère un oui /non au lieu d'un OK/Annuler
change cette ligne

rep = MsgBox("Imprimante prête ?", 1)
par:

rep = MsgBox("Imprimante prête ?", 4)
Salutations

JJ

"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le
message news:

ur52BXWmDHA.1728@TK2MSFTNGP11.phx.gbl...

Salut Fredo
Essaie,

Sub Imprimliste()
rep = MsgBox("Imprimante prête ?", 1)
If rep = 1 Then
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End If
End Sub

Salutations.
JJ


"Freedo"
<freedo.anonymous@discussions.microsoft.com> a écrit dans

le

message news: 0ae301c39947$a56f2c00
$a101280a@phx.gbl...

Bonjour à Totes et à tous,
j'imprime une feuille par l'action d'un bouton lié à
une

macro et j'aimerais avoir le choix "oui / non " avant
d'imprimer afin de bien m'assurer que ma feuille à
impriler est bien prête.
Oui mais comment ?
et où intercaler les commandes dans la macro
suivante :

Sub Imprimliste()
Set so = Sheets("Repertoire") 'source
Set de = Sheets("fidaa1") 'destination
For Each cel In so.Range("A3:A65536").SpecialCells
(xlCellTypeVisible)
If Not IsEmpty(cel) Then
ro = cel.Row
de.Range("D5").Value = so.Range("A" & ro).Value
de.Range("B40").Value = so.Range("W" & ro).Value
so.Range("V" & ro).Value = de.Range("b40").Value
de.PrintOut
End If
Next cel
End Sub
merci de suivre,
Freedo

.