Autres [XL2007] Vba afficher une plages Cellules en image ou pop up

[kif]

Bonjour la Team

Voici ma problématique SVP :

Sur mon onglet "RAM" j'ai besoin d'afficher ponctuellement le contenu de la plage de cellules B48:J59 de l'onglet "MRR"

je pensais à un MsgBox mais il me semble qu'il est limiter à 11 caractères !

du coup peux être avez vous un code svp pour afficher juste un image de cette plage dans un form ou autre un peu du style Popup avec un bouton pour le décharger quand plus besoin, sur l'onglet "RAM"

fichier joint

Merci d'avance de votre support

Salutations

 

[youky(BJ)]

Bonjour Kif,
Soit utiliser l'appareil photo dispo faut l'ajouter dans les menus
Ou par vba
Bruno

'adapter C10:E12 et Feuil1 est le codename de l'onglet
Feuil1.Range("C10:E12").CopyPicture xlScreen, xlBitmap
Feuil1.Paste Destination:=Feuil1.Range("A1")

 

[kif]

Bonjour Youky

oui par VBA mais idealement incorporer l'image ou le printScreen dans un UserForm non ?

 

[youky(BJ)]

Voici la suite donc,
Adapter la plage le nom des onglet et nom userform
Bruno

'adapter C10:E12 et Feuil1 est le codename de l'onglet
chemin = ThisWorkbook.Path & "\"
fichier = "AAAImage"
Feuil1.Range("C10:E12").CopyPicture xlScreen, xlBitmap
Feuil1.Paste Destination:=Feuil1.Range("A1")
Set Img = Feuil1.Shapes(Selection.Name)
Set ch = Feuil1.ChartObjects.Add(100, 30, 400, 170)
Feuil1.ChartObjects(1).Activate
ActiveChart.Paste
ActiveChart.Export chemin & fichier & ".gif", "GIF"
ch.Delete
Img.Delete
UserForm1.Image1.Picture = LoadPicture(chemin & fichier & ".GIF")
Kill chemin & fichier & ".GIF"
UserForm1.Show

 

[kif]

J'ai une erreur 1004 ?

Private Sub CommandButton1_Click()

'adapter C10:E12 et Feuil1 est le codename de l'onglet
Chemin = ThisWorkbook.Path & "\"
Fichier = "AAAImage"
Sheets("MRR").Range("B48:J59").CopyPicture xlScreen, xlBitmap
Sheets("MRR").Paste Destination:=Sheets("MRR").Range("A84")
Set Img = Sheets("MRR").Shapes(Selection.Name)
Set ch = Sheets("MRR").ChartObjects.Add(100, 30, 400, 170)
Sheets("MRR").ChartObjects(1).Activate
ActiveChart.Paste
ActiveChart.Export Chemin & Fichier & ".gif", "GIF"
ch.Delete
Img.Delete
UserForm1.Image1.Picture = LoadPicture(Chemin & Fichier & ".GIF")
Kill Chemin & Fichier & ".GIF"
UserForm1.Show

End Sub

 

[youky(BJ)]

Mets un point d'arrêt sur la 1ere ligne lance la macro et avance ensuite avec F8
On verras ou se situe l'erreur.
Vérifie si tu as bien UserForm1.Image1.Picture
Bruno

 

[kif]

deja ici => Sheets("MRR").Range("B48:J59").CopyPicture xlScreen, xlBitmap

 

[kif]

Peux tu svp le compiler directement dans le fichier que j'ai joint ?

merci d'avance

 

[kif]

du coup il faut rajouter la secetion de l'onglet "RAM" car c'est depuis celui ci que le UserForm doit apparaitre

 

[youky(BJ)]

Pas de fichier peut être trop volumineux
Bruno

 

[kif]

?

fait 100K

 

[youky(BJ)]

Voici le fichier
J'ai mis un userform
Bruno

 

[kif]

Cool merci beaucoup ca fonctionne

Ps: il y a as t'il un moyen de figer la position du USF au démarrage ?

J'ai un double ecran et j'ai la feuille en Ecran 1 et le USF en écran 2 ???

 

[youky(BJ)]

Tu double-click en projet sur userform1 et affiche les propriétés
StartUpPosition = mets Manuel ou autres
En manuel il se mets en haut à gauche
Si besoin de le placer à un endroit précis
copie se code (click droit de souris sur userform en projet)
afficher le code et colle ce code en modifiant les 100
Private Sub UserForm_Initialize()
Me.Top = 100
Me.Left = 100
End Sub

 

[kif]

Nickel


Ps: si je veux aagrandir l'image dans le usf ?

j'ai modifier les propriétés widht et height mais rien ne se passe