Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel rendre un onglet inimprimable

rendre un onglet inimprimable

5 réponses
Avatar
Sunburn
Bonjour,
comment puis-je dire, par VBA, qu'un onglet est imprimable ou pas, en
fonction d'une cellule qui est "Oui" => imprimable ou "Non" => non imprimable.
Merci
Yann
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
papou
Bonjour
Utilise l'évènement Workbook_BeforePrint et la propriété Cancel
Puis tu intègres ton test sur les valeurs et tu définis Cancel = True, si ce
n'est pas imprimable.

Cordialement
Pascal

"Sunburn" a écrit dans le message de
news:
Bonjour,
comment puis-je dire, par VBA, qu'un onglet est imprimable ou pas, en
fonction d'une cellule qui est "Oui" => imprimable ou "Non" => non
imprimable.
Merci
Yann


Avatar
Sunburn
Salut
merci mais j'ai un peu de mal à mettre en place la propriété Cancel.
je commence mon code comme celà ? :
----
Private Sub workbook_beforeprint()
If [A4] = "Oui" Then
-----
merci.
YANN

"papou" a écrit :

Bonjour
Utilise l'évènement Workbook_BeforePrint et la propriété Cancel
Puis tu intègres ton test sur les valeurs et tu définis Cancel = True, si ce
n'est pas imprimable.

Cordialement
Pascal

"Sunburn" a écrit dans le message de
news:
> Bonjour,
> comment puis-je dire, par VBA, qu'un onglet est imprimable ou pas, en
> fonction d'une cellule qui est "Oui" => imprimable ou "Non" => non
> imprimable.
> Merci
> Yann





Avatar
papou
Yann
Pardon, j'ai marqué comme lu sans avoir lu ta réponse :-(
Il faut que tu identifies ta feuille d'abord.
Ensuite il faut simplement vérifier qu'il y a "Non" dans ta cellule pour
positionner Cancel à True.
Exemple :
Private Sub workbook_beforeprint()
If Worksheets("Feuil1").Range("A4")="Non" Then Cancel = True
End Sub

C'est tout !

Cordialement
Pascal


"Sunburn" a écrit dans le message de
news:
Salut
merci mais j'ai un peu de mal à mettre en place la propriété Cancel.
je commence mon code comme celà ? :
----
Private Sub workbook_beforeprint()
If [A4] = "Oui" Then
-----
merci.
YANN

"papou" a écrit :

Bonjour
Utilise l'évènement Workbook_BeforePrint et la propriété Cancel
Puis tu intègres ton test sur les valeurs et tu définis Cancel = True, si
ce
n'est pas imprimable.

Cordialement
Pascal

"Sunburn" a écrit dans le message de
news:
> Bonjour,
> comment puis-je dire, par VBA, qu'un onglet est imprimable ou pas, en
> fonction d'une cellule qui est "Oui" => imprimable ou "Non" => non
> imprimable.
> Merci
> Yann







Avatar
Sunburn
Pascal,
je te remercie, mais il me met un message :
-----
"Erreur de compilation
la déclaration de la procédure ne correspond pas à la description de
l'évènement ou de la procédure de même nom"
----
J'ai mis ça dans ThisWorkBook, c'est OK ? :
-----
Private Sub workbook_beforeprint()
If Worksheets("10.41").Range("A4") = "NA" Then Cancel = True
End Sub
----
Merci
YANN

"papou" a écrit :

Yann
Pardon, j'ai marqué comme lu sans avoir lu ta réponse :-(
Il faut que tu identifies ta feuille d'abord.
Ensuite il faut simplement vérifier qu'il y a "Non" dans ta cellule pour
positionner Cancel à True.
Exemple :
Private Sub workbook_beforeprint()
If Worksheets("Feuil1").Range("A4")="Non" Then Cancel = True
End Sub

C'est tout !

Cordialement
Pascal


"Sunburn" a écrit dans le message de
news:
> Salut
> merci mais j'ai un peu de mal à mettre en place la propriété Cancel.
> je commence mon code comme celà ? :
> ----
> Private Sub workbook_beforeprint()
> If [A4] = "Oui" Then
> -----
> merci.
> YANN
>
> "papou" a écrit :
>
>> Bonjour
>> Utilise l'évènement Workbook_BeforePrint et la propriété Cancel
>> Puis tu intègres ton test sur les valeurs et tu définis Cancel = True, si
>> ce
>> n'est pas imprimable.
>>
>> Cordialement
>> Pascal
>>
>> "Sunburn" a écrit dans le message de
>> news:
>> > Bonjour,
>> > comment puis-je dire, par VBA, qu'un onglet est imprimable ou pas, en
>> > fonction d'une cellule qui est "Oui" => imprimable ou "Non" => non
>> > imprimable.
>> > Merci
>> > Yann
>>
>>
>>





Avatar
papou
Bonjour
Modifie :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Worksheets("10.41").Range("A4") = "NA" Then Cancel = True
End Sub

Et c'est bien dans Thisworkbook.

Cordialement
Pascal


"Sunburn" a écrit dans le message de
news:
Pascal,
je te remercie, mais il me met un message :
-----
"Erreur de compilation
la déclaration de la procédure ne correspond pas à la description de
l'évènement ou de la procédure de même nom"
----
J'ai mis ça dans ThisWorkBook, c'est OK ? :
-----
Private Sub workbook_beforeprint()
If Worksheets("10.41").Range("A4") = "NA" Then Cancel = True
End Sub
----
Merci
YANN

"papou" a écrit :

Yann
Pardon, j'ai marqué comme lu sans avoir lu ta réponse :-(
Il faut que tu identifies ta feuille d'abord.
Ensuite il faut simplement vérifier qu'il y a "Non" dans ta cellule pour
positionner Cancel à True.
Exemple :
Private Sub workbook_beforeprint()
If Worksheets("Feuil1").Range("A4")="Non" Then Cancel = True
End Sub

C'est tout !

Cordialement
Pascal


"Sunburn" a écrit dans le message de
news:
> Salut
> merci mais j'ai un peu de mal à mettre en place la propriété Cancel.
> je commence mon code comme celà ? :
> ----
> Private Sub workbook_beforeprint()
> If [A4] = "Oui" Then
> -----
> merci.
> YANN
>
> "papou" a écrit :
>
>> Bonjour
>> Utilise l'évènement Workbook_BeforePrint et la propriété Cancel
>> Puis tu intègres ton test sur les valeurs et tu définis Cancel = True,
>> si
>> ce
>> n'est pas imprimable.
>>
>> Cordialement
>> Pascal
>>
>> "Sunburn" a écrit dans le message
>> de
>> news:
>> > Bonjour,
>> > comment puis-je dire, par VBA, qu'un onglet est imprimable ou pas,
>> > en
>> > fonction d'une cellule qui est "Oui" => imprimable ou "Non" => non
>> > imprimable.
>> > Merci
>> > Yann
>>
>>
>>