Impression si cellule active Résolu/Fermé

Question

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

f894009 · Answer

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

juer31 · Answer

je ne comprend pas le lien de ce que tu m'indique et ni ou l'insérer

Impression si cellule active

2 réponses

Discussions similaires