Impression si cellule active
Résolu
juer31
Messages postés
114
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerais que l'impression puisse se faire seulement si l'une des cellules situer entre A5 et A505 est active dans la feuille "Donnée" et que si une de c'est cellule n'est pas active d'avoir un message d'erreur qui mentionne d'en faire la sélection
J'ai ce script présentement mais je n'arrive pas à ingérer la section de cellule active.
Sub Impression()
Sheets("Lettre certificat manquant").Select
Dim cel As Range
For Each cel In Range("B28:B30")
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
For Each cel In Range("B28:B30")
cel.EntireRow.Hidden = False
Next
Sheets("Donnée").Select
End Sub
Merci à l'avance pour le coup de main
J'aimerais que l'impression puisse se faire seulement si l'une des cellules situer entre A5 et A505 est active dans la feuille "Donnée" et que si une de c'est cellule n'est pas active d'avoir un message d'erreur qui mentionne d'en faire la sélection
J'ai ce script présentement mais je n'arrive pas à ingérer la section de cellule active.
Sub Impression()
Sheets("Lettre certificat manquant").Select
Dim cel As Range
For Each cel In Range("B28:B30")
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
For Each cel In Range("B28:B30")
cel.EntireRow.Hidden = False
Next
Sheets("Donnée").Select
End Sub
Merci à l'avance pour le coup de main
A voir également:
- Impression si cellule active
- Spouleur d'impression - Guide
- Excel cellule couleur si condition texte - Guide
- Impression livret a5 - Guide
- Proteger cellule excel - Guide
- Historique impression - Forum Windows 10
2 réponses
Bonjour,
Sub defimpression()
With Sheets("Lettre certificat manquant")
Set plage = .Range("B28:B30")
lig = plage.Cells.Find(what:="*", LookAt:=xlWhole).Row
.Rows(lig & ":" & lig).Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
End With
End Sub
