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

[PatLac]

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.

 

[sylvanu]

Bonjour Patlac,
A tester :

Sub Rectangle1_Cliquer()
    UserForm1.TextBox1 = Format(Sheets("Feuil2").Range("D2"), "# 000.00€")
    UserForm1.Show
End Sub

 

[PatLac]

Bonjour Sylvanu,
Nickel sur tous les points.
Merci beaucoup et bonne fin de journée.

 

[PatLac]

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 ?

 

[sylvanu]

Bonsoir,
Testez cette PJ avec :

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.

 

[PatLac]

... Parfait !
Que dire de plus, sinon merci une nouvelle fois.

 

[PatLac]

Bonjour, Je reviens (une nouvelle fois) vers vous.
J'aurais besoin de créer un PDF de la "feuil2" (toujours cachée) et de l'enregistrer sur C:/TOTO.
Vous avez une idée ?
D'avance merci.

 

[sylvanu]

Bonjour,
Idem dans sa structure que la macro d'impression :

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.

 

[PatLac]

Nickel, merci.
J'ai rajouter ça au bout, comme indiqué :

& "_le_" & Format(Now(), "DD-MM-YYYY HH MM SS")

ha suis un fou ....