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
"Sunburn" wrote in message news: > 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 >> >> > >> >> > >> >> >> >> >> >> >> >> >>
Merci Mishell,
tu es trop fort, ça fonctionne du tonner... !!!!
T'es trop bon.
Merci encore, ciao
"Sunburn" <Sunburn@discussions.microsoft.com> wrote in message
news:DE4BE4C2-DEDC-4EEC-B08E-8A73AF6FB21F@microsoft.com...
> 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
>> >> >
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>
"Sunburn" wrote in message news: > 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 >> >> > >> >> > >> >> >> >> >> >> >> >> >>
Mishell
Avec grand plaisir
Mishell
"Sunburn" wrote in message news:
Merci Mishell, tu es trop fort, ça fonctionne du tonner... !!!! T'es trop bon. Merci encore, ciao
"Sunburn" wrote in message news: > 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 >> >> > >> >> > >> >> >> >> >> >> >> >> >>
Avec grand plaisir
Mishell
"Sunburn" <Sunburn@discussions.microsoft.com> wrote in message
news:64592331-F7FC-4256-9269-C6A75FC18E38@microsoft.com...
Merci Mishell,
tu es trop fort, ça fonctionne du tonner... !!!!
T'es trop bon.
Merci encore, ciao
"Sunburn" <Sunburn@discussions.microsoft.com> wrote in message
news:DE4BE4C2-DEDC-4EEC-B08E-8A73AF6FB21F@microsoft.com...
> 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
>> >> >
>> >> >
>> >>
>> >>
>> >>
>>
>>
>>
"Sunburn" wrote in message news: > 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 >> >> > >> >> > >> >> >> >> >> >> >> >> >>
