XL 2013 Insérer le contenu d'une cellule dans un Userform.

  • Initiateur de la discussion Initiateur de la discussion PatLac
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

PatLac

XLDnaute Occasionnel
Bonjour à tous,
Je cherche à insérer le contenu d'une cellule qui se trouve en feuil2 (masquée), dans un Userform.
Quelqu'un a une idée ?
D'avance Merci.
😉
 

Pièces jointes

Je reviens vers vous, j'aurais encore besoin de vos lumières:
Dans l'exemple ci-joint je voudrais imprimer la "feuil2" toujours masquée.
Pour ce faire, il faudrait qu'elle s'ouvre (la Feuil2) à la commande, qu'elle s'imprime, et que dans la foulée elle se re-masque.
Vous pouvez m'aider ?
😉
 

Pièces jointes

Bonsoir,
Testez cette PJ avec :
VB:
Sub Rectangle1_Cliquer()
Application.ScreenUpdating = False
With Sheets("Feuil2")
    .Visible = -1
    .Select
    Range("a1:k20").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$k$20"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    .Visible = 0
End With
Sheets("Feuil1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
On fige l'écran, on rend visible Feuil2 qu'on ne voit pas car l'écran est figé.
On imprime et on masque Feuil2.
 

Pièces jointes

Bonjour,
Idem dans sa structure que la macro d'impression :
VB:
Sub EnregPDF()
Chemin = "C:\Users\PC_PAPA\Desktop\XLD\"    ' Modifier le chemin
NomFichier = "EssaiEnPDF.pdf"               ' Modifier le nom du chemin, ou le construire ( avec la date par ex )
Application.ScreenUpdating = False
With Sheets("Feuil2")
    .Visible = -1
    .Select
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    .Visible = 0
End With
Sheets("Feuil1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Penser à modifier Chemin et NomFichier.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
Réponses
118
Affichages
2 K
  • Question Question
XL 2019 User Form
Réponses
9
Affichages
317
Retour