Comment ne pas imprimer les zéros

Le
Flac
Bonjour à tous,
Excel 2000

Je veux imprimer certaines cellules qui ont la valeur zéro ( 0 ) ou dont le
contenu est vide, sans que le chiffre zéro ( 0 ) apparaisse
sur la feuille imprimée.

La procédure prend la forme suivante:

Sub imprime()
Sheets("feuil1").select
Range("D5").Select
For i = 1 To 10
If Not ActiveCell.Value > 0 Then
"Conserve la valeur zéro ( 0 ) à la cellule, mais fais en sorte que le
zéro ( 0 ) ne paraisse pas"
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub

Y aurait-il moyen de ce faire.

Merci à l'avance

Flac
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
tissot.emmanuel
Le #4477281
Bonsoir,

Sub Imprime()
ActiveWindow.DisplayZeros = False 'Masque les zéros
ActiveSheet.PrintOut 'Imprime la feuille
ActiveWindow.DisplayZeros = True 'Réaffiche les zéros
End Sub

Me semble susceptible de te convenir.

Cordialement,

Manu/

"Flac" e7hY%
Bonjour à tous,
Excel 2000

Je veux imprimer certaines cellules qui ont la valeur zéro ( 0 ) ou dont
le contenu est vide, sans que le chiffre zéro ( 0 ) apparaisse
sur la feuille imprimée.

La procédure prend la forme suivante:

Sub imprime()
Sheets("feuil1").select
Range("D5").Select
For i = 1 To 10
If Not ActiveCell.Value > 0 Then
"Conserve la valeur zéro ( 0 ) à la cellule, mais fais en sorte que le
zéro ( 0 ) ne paraisse pas"
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub

Y aurait-il moyen de ce faire.

Merci à l'avance

Flac






Flac
Le #4477271
Bonjour,

Merci beaucoup, en plein ce qu'il me fallait.

Flac
Publicité
Poster une réponse
Anonyme