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)]

voici l'image plus grande
A toi de voir mes rectifs que voila
ce que j'ai changé
en vba
Set ch = Sheets("MRR").ChartObjects.Add(0, 0, 900, 300)

taille de image1 en user
top=0
left=0
height=256
Width=564
PictureSizeMode=0

pour l'userform
Height=285
Width=576

 

[mapomme]

Bonjour @kif , @youky(BJ) ,

Ma p'tite version. Tout le code est dans le module associé à la feuille"RAM".
Un clique sur le bouton alternativement affiche ou efface l'image de la plage :

Private Sub CommandButton1_Click()
Dim nom$
   On Error Resume Next
   nom = Me.Shapes("ImgAuxil").Name
   If nom <> "" Then Me.Shapes("ImgAuxil").Delete: Exit Sub
   Sheets("MRR").Range("B48:M59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
   Me.Paste
   Selection.Name = "ImgAuxil"
   Me.Shapes("ImgAuxil").Top = ActiveCell.Offset(1).Top
   Me.Shapes("ImgAuxil").Left = ActiveCell.Offset(, 1).Left
   Application.CutCopyMode = False
End Sub

 

[kif]

Ca y est j'ai modifier tt est rentré dans l'ordre

 

[kif]

Bonjour Ma pomme

super ce code hyper rapide

PS: peux tu rajouter svp 2 variables pour la dim de l'image et sa position sur l'ecran ?

Merci d'avance

 

[mapomme]

Re,

: peux tu rajouter svp 2 variables pour la dim de l'image et sa position sur l'ecran ?

Voici le nouveau code :

Private Sub CommandButton1_Click()
Const Taille = 85    'pourcentage de réduction 50 => 50 % de la taille initiale)
Const Gauche = 20    'position à partir de la gauche
Const Haut = 40      'position à partir du haut
Dim nom$
   On Error Resume Next
   nom = Me.Shapes("ImgAuxil").Name
   If nom <> "" Then Me.Shapes("ImgAuxil").Delete: Exit Sub
   Sheets("MRR").Range("B48:M59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
   Me.Paste
   Selection.Name = "ImgAuxil"
   Me.Shapes("ImgAuxil").Top = Haut
   Me.Shapes("ImgAuxil").Left = Gauche
   Me.Shapes("ImgAuxil").Width = Me.Shapes("ImgAuxil").Width / 100# * Taille
   Me.Shapes("ImgAuxil").Height = Me.Shapes("ImgAuxil").Height / 100# * Taille
   Application.CutCopyMode = False
End Sub

 

[kif]

voila

j'ai fait ca

Dim nom$
On Error Resume Next
nom = Me.Shapes("ImgAuxil").Name
If nom <> "" Then Me.Shapes("ImgAuxil").Delete: Exit Sub
Sheets("MRR").Range("B48:M59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Me.Paste
Selection.Name = "ImgAuxil"
Me.Shapes("ImgAuxil").Top = ActiveCell.Offset(1).Top
Me.Shapes("ImgAuxil").Left = ActiveCell.Offset(, 1).Left
Me.Shapes("ImgAuxil").Top = 100
Me.Shapes("ImgAuxil").Left = 100
Me.Shapes("ImgAuxil").heigth = 400
Me.Shapes("ImgAuxil").Width = 500
Application.CutCopyMode = False

 

[kif]

j'avais pas vu ta répondu e mm temps !


Cool merci beaucoup

salutations

 

[kif]

Tite question et il possible de mettre un PNG en tant que image du bouton
A part un JPG je n'arrive pas à remplacer l'image du bouton ?

 

[kif]

voici l'image du bouton

 

[mapomme]

Re,

Tite question et il possible de mettre un PNG en tant que image du bouton
A part un JPG je n'arrive pas à remplacer l'image du bouton ?

• On n'utilise plus de commandbutton
• Par le menu Insertion, on insère l'image ".png".
• Via un clique-droit sur l'image insérée, on affecte la macro (de type public) qui se trouve dans le module de la feuille "RAM"

 

[kif]

Nickel je teste

Par contre je suis bloqué car je ne peux pas mettre de xlsm (que du XLS)
de plus j'ai des target interception dans mon code d'origine ce qui je pense va etre en conflit avec cette macro de type public....

 

[mapomme]

Re,

Sans un fichier représentatif, difficile de te répondre. Mais si tu as pu faire fonctionner la solution de @youky(BJ), c'est que ton fichier accepte les macros donc devrait accepter aussi les miennes (me semble-t-il).

 

[kif]

j'ai contourné en inserant une image et en affectant un jpg en fond d'image via mles propriétés

je pense que c'est mon format PNG qui n'est pas compatible