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
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
tissot.emmanuel
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" a écrit dans le message de news: 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
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" <luc_bt@hotmail.com> a écrit dans le message de news:
e7hY%23hejHHA.4188@TK2MSFTNGP02.phx.gbl...
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
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" a écrit dans le message de news: 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
