Discussion :

[horusbk]

Bonjour,

J'ai créé un USF qui permet d'afficher depuis une feuille de calcul donnée, une plage de cellule précise. Mon USF se lance bien mais je ne vois pas la plage de cellule que j'ai renseignée dans mon code VBA. Je sais pas trop quoi modifier ou ce que j'aurais oublié dans mon code...

Voici mon fichier VBA : V1-USF_image-place-cellule.xlsm
Et le code correspondant de l'USF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm1_Initialize()
  With Worksheets("CODE")
    Set Plage = .Range("TEST")
  End With
  Plage.Copy
  Set Image1.Picture = PastePicture
End Sub

Cordialement,
Baptiste

[unparia]

Bonjour

1) L'évènement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub UserForm1_Initialize()

n'existe pas.
De quel chapeau le sors-tu donc ?

2) et plus loin, tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Image1.Picture = PastePicture

De quel autre chapeau sors-tu ce membre PastePicture ? Membre de quoi, d'ailleurs ?

Tu écris "au hasard" et "par instinct" ?

[horusbk]

Tu écris "au hasard" et "par instinct" ?

Plutôt par instinct, j'ai essayé de compiler plusieurs codes que j'ai trouvé sur internet et qui répondaient à mon objectif d'afficher sur un USF une plage de cellule.

[patricktoulon]

re
exemple simple sans api

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Activate()
    imgtemp = "C:\Users\" & Environ("username") & "\Desktop\monimage.jpg"
    With Sheets(1)
        Set plage = .Range("A1:d5")
        plage.CopyPicture
        .ChartObjects.Add(0, 0, plage.Width, plage.Height).Chart.Paste
        .ChartObjects(1).Chart.Export Filename:=imgtemp
        .Shapes(ActiveSheet.Shapes.Count).Delete
          End With
    Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
    Me.Image1.Picture = LoadPicture(imgtemp)
    Kill imgtemp
End Sub

[horusbk]

Bonjour patricktoulon,
ça marche parfaitement merci beaucoup