Impression si cellule active

Résolu/Fermé

juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 17 janv. 2019 à 22:06
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 18 janv. 2019 à 16:10

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

A voir également:

Impression si cellule active
Spouleur d'impression - Guide
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Impression ecran windows - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 janv. 2019 à 08:20

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

Réponse 2 / 2

juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 6
18 janv. 2019 à 14:08

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 janv. 2019 à 16:10

Re,
je ne comprend pas

Simple, en remplacement de votre code!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Discussions similaires

Excel si cellule contient texte alors...

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel formule : savoir si une cellule contient partie texte

Enlever le pass. Telecomm. Active

Si couleur, alors...

Discussions similaires

Newsletters