Bonjour,
je voudrais savoir comment faire pour imprimer les pages selon un critère
très précis.
Mon classeur fais 30 pages.
Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
lesquelles la cellule A4 n'est pas "N/A".
J'espère que je me suis assez bien exprimer.
Merci pour l'aide, YANN
Bonjour,
je voudrais savoir comment faire pour imprimer les pages selon un critère
très précis.
Mon classeur fais 30 pages.
Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
lesquelles la cellule A4 n'est pas "N/A".
J'espère que je me suis assez bien exprimer.
Merci pour l'aide, YANN
Bonjour,
je voudrais savoir comment faire pour imprimer les pages selon un critère
très précis.
Mon classeur fais 30 pages.
Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
lesquelles la cellule A4 n'est pas "N/A".
J'espère que je me suis assez bien exprimer.
Merci pour l'aide, YANN
Bonjour.
Essaie :
Sub test()
For Each sh In Sheets
If Not Application.IsNA(sh.[A4]) Then
sh.PrintOut
End If
Next sh
End Sub
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour,
je voudrais savoir comment faire pour imprimer les pages selon un critère
très précis.
Mon classeur fais 30 pages.
Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
lesquelles la cellule A4 n'est pas "N/A".
J'espère que je me suis assez bien exprimer.
Merci pour l'aide, YANN
Bonjour.
Essaie :
Sub test()
For Each sh In Sheets
If Not Application.IsNA(sh.[A4]) Then
sh.PrintOut
End If
Next sh
End Sub
Cordialement.
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 6FD05D23-8AE3-4202-9D34-CCA66BE1F733@microsoft.com...
Bonjour,
je voudrais savoir comment faire pour imprimer les pages selon un critère
très précis.
Mon classeur fais 30 pages.
Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
lesquelles la cellule A4 n'est pas "N/A".
J'espère que je me suis assez bien exprimer.
Merci pour l'aide, YANN
Bonjour.
Essaie :
Sub test()
For Each sh In Sheets
If Not Application.IsNA(sh.[A4]) Then
sh.PrintOut
End If
Next sh
End Sub
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:Bonjour,
je voudrais savoir comment faire pour imprimer les pages selon un critère
très précis.
Mon classeur fais 30 pages.
Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
lesquelles la cellule A4 n'est pas "N/A".
J'espère que je me suis assez bien exprimer.
Merci pour l'aide, YANN
Bonjour.
Essaie :
Sub test()
For Each sh In Sheets
If Not Application.IsNA(sh.[A4]) Then
sh.PrintOut
End If
Next sh
End Sub
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Bonjour,
> je voudrais savoir comment faire pour imprimer les pages selon un critère
> très précis.
> Mon classeur fais 30 pages.
> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
> lesquelles la cellule A4 n'est pas "N/A".
> J'espère que je me suis assez bien exprimer.
> Merci pour l'aide, YANN
Bonjour.
Essaie :
Sub test()
For Each sh In Sheets
If Not Application.IsNA(sh.[A4]) Then
sh.PrintOut
End If
Next sh
End Sub
Cordialement.
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 6FD05D23-8AE3-4202-9D34-CCA66BE1F733@microsoft.com...
> Bonjour,
> je voudrais savoir comment faire pour imprimer les pages selon un critère
> très précis.
> Mon classeur fais 30 pages.
> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
> lesquelles la cellule A4 n'est pas "N/A".
> J'espère que je me suis assez bien exprimer.
> Merci pour l'aide, YANN
Bonjour.
Essaie :
Sub test()
For Each sh In Sheets
If Not Application.IsNA(sh.[A4]) Then
sh.PrintOut
End If
Next sh
End Sub
Cordialement.
Daniel
"Sunburn" a écrit dans le message de
news:
> Bonjour,
> je voudrais savoir comment faire pour imprimer les pages selon un critère
> très précis.
> Mon classeur fais 30 pages.
> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
> lesquelles la cellule A4 n'est pas "N/A".
> J'espère que je me suis assez bien exprimer.
> Merci pour l'aide, YANN
Bonjour.
Pour compléter:
Sub test()
For i = 16 To 30
Set sh = Sheets(i)
If Not Application.IsNA(sh.[A4]) Then
Debug.Print sh.Name
sh.PrintOut
End If
Next
End Sub
Cordialement
Mishell
"Daniel.C" wrote in message
news:
> Bonjour.
> Essaie :
>
> Sub test()
> For Each sh In Sheets
> If Not Application.IsNA(sh.[A4]) Then
> sh.PrintOut
> End If
> Next sh
> End Sub
>
> Cordialement.
> Daniel
> "Sunburn" a écrit dans le message de
> news:
>> Bonjour,
>> je voudrais savoir comment faire pour imprimer les pages selon un critère
>> très précis.
>> Mon classeur fais 30 pages.
>> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> lesquelles la cellule A4 n'est pas "N/A".
>> J'espère que je me suis assez bien exprimer.
>> Merci pour l'aide, YANN
>
>
Bonjour.
Pour compléter:
Sub test()
For i = 16 To 30
Set sh = Sheets(i)
If Not Application.IsNA(sh.[A4]) Then
Debug.Print sh.Name
sh.PrintOut
End If
Next
End Sub
Cordialement
Mishell
"Daniel.C" <dZZZcolardelle@free.fr> wrote in message
news:ePG8jEBGJHA.5224@TK2MSFTNGP03.phx.gbl...
> Bonjour.
> Essaie :
>
> Sub test()
> For Each sh In Sheets
> If Not Application.IsNA(sh.[A4]) Then
> sh.PrintOut
> End If
> Next sh
> End Sub
>
> Cordialement.
> Daniel
> "Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
> news: 6FD05D23-8AE3-4202-9D34-CCA66BE1F733@microsoft.com...
>> Bonjour,
>> je voudrais savoir comment faire pour imprimer les pages selon un critère
>> très précis.
>> Mon classeur fais 30 pages.
>> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> lesquelles la cellule A4 n'est pas "N/A".
>> J'espère que je me suis assez bien exprimer.
>> Merci pour l'aide, YANN
>
>
Bonjour.
Pour compléter:
Sub test()
For i = 16 To 30
Set sh = Sheets(i)
If Not Application.IsNA(sh.[A4]) Then
Debug.Print sh.Name
sh.PrintOut
End If
Next
End Sub
Cordialement
Mishell
"Daniel.C" wrote in message
news:
> Bonjour.
> Essaie :
>
> Sub test()
> For Each sh In Sheets
> If Not Application.IsNA(sh.[A4]) Then
> sh.PrintOut
> End If
> Next sh
> End Sub
>
> Cordialement.
> Daniel
> "Sunburn" a écrit dans le message de
> news:
>> Bonjour,
>> je voudrais savoir comment faire pour imprimer les pages selon un critère
>> très précis.
>> Mon classeur fais 30 pages.
>> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> lesquelles la cellule A4 n'est pas "N/A".
>> J'espère que je me suis assez bien exprimer.
>> Merci pour l'aide, YANN
>
>
Je vous remercie,
désolé pour le retard de réponse.
Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
celulle A4.
Si vous pouvez de nouveau m'éclairer, merci
YANN
"Mishell" a écrit :Bonjour.
Pour compléter:
Sub test()
For i = 16 To 30
Set sh = Sheets(i)
If Not Application.IsNA(sh.[A4]) Then
Debug.Print sh.Name
sh.PrintOut
End If
Next
End Sub
Cordialement
Mishell
"Daniel.C" wrote in message
news:
> Bonjour.
> Essaie :
>
> Sub test()
> For Each sh In Sheets
> If Not Application.IsNA(sh.[A4]) Then
> sh.PrintOut
> End If
> Next sh
> End Sub
>
> Cordialement.
> Daniel
> "Sunburn" a écrit dans le message
> de
> news:
>> Bonjour,
>> je voudrais savoir comment faire pour imprimer les pages selon un
>> critère
>> très précis.
>> Mon classeur fais 30 pages.
>> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> lesquelles la cellule A4 n'est pas "N/A".
>> J'espère que je me suis assez bien exprimer.
>> Merci pour l'aide, YANN
>
>
Je vous remercie,
désolé pour le retard de réponse.
Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
celulle A4.
Si vous pouvez de nouveau m'éclairer, merci
YANN
"Mishell" a écrit :
Bonjour.
Pour compléter:
Sub test()
For i = 16 To 30
Set sh = Sheets(i)
If Not Application.IsNA(sh.[A4]) Then
Debug.Print sh.Name
sh.PrintOut
End If
Next
End Sub
Cordialement
Mishell
"Daniel.C" <dZZZcolardelle@free.fr> wrote in message
news:ePG8jEBGJHA.5224@TK2MSFTNGP03.phx.gbl...
> Bonjour.
> Essaie :
>
> Sub test()
> For Each sh In Sheets
> If Not Application.IsNA(sh.[A4]) Then
> sh.PrintOut
> End If
> Next sh
> End Sub
>
> Cordialement.
> Daniel
> "Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message
> de
> news: 6FD05D23-8AE3-4202-9D34-CCA66BE1F733@microsoft.com...
>> Bonjour,
>> je voudrais savoir comment faire pour imprimer les pages selon un
>> critère
>> très précis.
>> Mon classeur fais 30 pages.
>> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> lesquelles la cellule A4 n'est pas "N/A".
>> J'espère que je me suis assez bien exprimer.
>> Merci pour l'aide, YANN
>
>
Je vous remercie,
désolé pour le retard de réponse.
Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
celulle A4.
Si vous pouvez de nouveau m'éclairer, merci
YANN
"Mishell" a écrit :Bonjour.
Pour compléter:
Sub test()
For i = 16 To 30
Set sh = Sheets(i)
If Not Application.IsNA(sh.[A4]) Then
Debug.Print sh.Name
sh.PrintOut
End If
Next
End Sub
Cordialement
Mishell
"Daniel.C" wrote in message
news:
> Bonjour.
> Essaie :
>
> Sub test()
> For Each sh In Sheets
> If Not Application.IsNA(sh.[A4]) Then
> sh.PrintOut
> End If
> Next sh
> End Sub
>
> Cordialement.
> Daniel
> "Sunburn" a écrit dans le message
> de
> news:
>> Bonjour,
>> je voudrais savoir comment faire pour imprimer les pages selon un
>> critère
>> très précis.
>> Mon classeur fais 30 pages.
>> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> lesquelles la cellule A4 n'est pas "N/A".
>> J'espère que je me suis assez bien exprimer.
>> Merci pour l'aide, YANN
>
>
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" wrote in message
news:
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" wrote in message
>> news:
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" a écrit dans le message
>> > de
>> > news:
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" <Sunburn@discussions.microsoft.com> wrote in message
news:AF365734-8A6F-4F5B-AC8D-B5B24D4EE995@microsoft.com...
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" <dZZZcolardelle@free.fr> wrote in message
>> news:ePG8jEBGJHA.5224@TK2MSFTNGP03.phx.gbl...
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message
>> > de
>> > news: 6FD05D23-8AE3-4202-9D34-CCA66BE1F733@microsoft.com...
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" wrote in message
news:
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" wrote in message
>> news:
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" a écrit dans le message
>> > de
>> > news:
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" wrote in message
news:
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" wrote in message
>> news:
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" a écrit dans le message
>> > de
>> > news:
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" <Sunburn@discussions.microsoft.com> wrote in message
news:AF365734-8A6F-4F5B-AC8D-B5B24D4EE995@microsoft.com...
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" <dZZZcolardelle@free.fr> wrote in message
>> news:ePG8jEBGJHA.5224@TK2MSFTNGP03.phx.gbl...
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message
>> > de
>> > news: 6FD05D23-8AE3-4202-9D34-CCA66BE1F733@microsoft.com...
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" wrote in message
news:
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" wrote in message
>> news:
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" a écrit dans le message
>> > de
>> > news:
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" wrote in message
news:
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" wrote in message
>> news:
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" a écrit dans le message
>> > de
>> > news:
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" <Sunburn@discussions.microsoft.com> wrote in message
news:AF365734-8A6F-4F5B-AC8D-B5B24D4EE995@microsoft.com...
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" <dZZZcolardelle@free.fr> wrote in message
>> news:ePG8jEBGJHA.5224@TK2MSFTNGP03.phx.gbl...
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message
>> > de
>> > news: 6FD05D23-8AE3-4202-9D34-CCA66BE1F733@microsoft.com...
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" wrote in message
news:
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" wrote in message
>> news:
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" a écrit dans le message
>> > de
>> > news:
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Euh, non, ça ne plante en fait que quand mes feuilles sont cachées.
je vais décacher mes feuilles, imprimer, puis recacher mes feuilles, et ça
devrait aller.
En fait, je viens de tester, non ça ne fonctionne pas.
Comment faire pour que cela imprime les feuilles 16 à la dernière page du
classeur, même si elles sont cachées?
Merci.
YANN
"Mishell" a écrit :Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" wrote in message
news:
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" wrote in message
>> news:
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" a écrit dans le
>> > message
>> > de
>> > news:
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles
>> >> pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Euh, non, ça ne plante en fait que quand mes feuilles sont cachées.
je vais décacher mes feuilles, imprimer, puis recacher mes feuilles, et ça
devrait aller.
En fait, je viens de tester, non ça ne fonctionne pas.
Comment faire pour que cela imprime les feuilles 16 à la dernière page du
classeur, même si elles sont cachées?
Merci.
YANN
"Mishell" a écrit :
Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" <Sunburn@discussions.microsoft.com> wrote in message
news:AF365734-8A6F-4F5B-AC8D-B5B24D4EE995@microsoft.com...
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" <dZZZcolardelle@free.fr> wrote in message
>> news:ePG8jEBGJHA.5224@TK2MSFTNGP03.phx.gbl...
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le
>> > message
>> > de
>> > news: 6FD05D23-8AE3-4202-9D34-CCA66BE1F733@microsoft.com...
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles
>> >> pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>
Euh, non, ça ne plante en fait que quand mes feuilles sont cachées.
je vais décacher mes feuilles, imprimer, puis recacher mes feuilles, et ça
devrait aller.
En fait, je viens de tester, non ça ne fonctionne pas.
Comment faire pour que cela imprime les feuilles 16 à la dernière page du
classeur, même si elles sont cachées?
Merci.
YANN
"Mishell" a écrit :Si la valeur de la cellule A4 est NA et non pas #N/A
remplace
If Not Application.IsNA(sh.[A4]) Then
par
If Not UCase(Trim(sh.Cells(4, 1).Value)) = "NA" Then
Mishell
"Sunburn" wrote in message
news:
> Je vous remercie,
> désolé pour le retard de réponse.
>
> Bon, ça imprime toutes mes feuilles, même celles ou "NA" est saisi en
> celulle A4.
>
> Si vous pouvez de nouveau m'éclairer, merci
> YANN
>
> "Mishell" a écrit :
>
>> Bonjour.
>>
>> Pour compléter:
>> Sub test()
>> For i = 16 To 30
>> Set sh = Sheets(i)
>> If Not Application.IsNA(sh.[A4]) Then
>> Debug.Print sh.Name
>> sh.PrintOut
>> End If
>> Next
>> End Sub
>>
>> Cordialement
>>
>> Mishell
>>
>> "Daniel.C" wrote in message
>> news:
>> > Bonjour.
>> > Essaie :
>> >
>> > Sub test()
>> > For Each sh In Sheets
>> > If Not Application.IsNA(sh.[A4]) Then
>> > sh.PrintOut
>> > End If
>> > Next sh
>> > End Sub
>> >
>> > Cordialement.
>> > Daniel
>> > "Sunburn" a écrit dans le
>> > message
>> > de
>> > news:
>> >> Bonjour,
>> >> je voudrais savoir comment faire pour imprimer les pages selon un
>> >> critère
>> >> très précis.
>> >> Mon classeur fais 30 pages.
>> >> Je voudrais imprimer les pagesde 16 à 30, mais uniquement celles
>> >> pour
>> >> lesquelles la cellule A4 n'est pas "N/A".
>> >> J'espère que je me suis assez bien exprimer.
>> >> Merci pour l'aide, YANN
>> >
>> >
>>
>>
>>