Discussion :

[prog-amateur]

Bonjour,

J'ai aujourd'hui un Userform qui fonctionnait jusqu'à quelques jours. Le but est de sélectionner une image avec le bouton "Browse", puis un apreçu s'affiche, et enfin avec le bouton "Save", les images préchargés s'affichent dans la feuille 2.

J'ai changé tellement le code qu'aujourd'hui je n'arrive plus à sélectionner une image avec.

Je le code en question dont l'erreur suspecte est en rouge. Je sollicite votre aide.
Le debugger me dit "Method or data member not found" dès que je clique sur Browse. Il doit y avoir un problème de syntaxe (voire de librairie ? mais ça je ne pense pas)
Merci d'avance :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Browse1_Click()
BoutonImage 1
With Feuil2.Image1
  .Left = 300
  .Top = 10
  .Width = 500
  .Height = 300
  .Picture = LoadPicture(imgf(1))
  .PictureSizeMode = fmPictureSizeModeZoom
End With
End Sub

[parmi]

Bonjour,

Ça manque de détails et il n'y a rien en rouge...
Sur quelle ligne apparaît l'erreur ?
Est-ce que les noms utilisés sont toujours bons ?

BoutonImage 1
With Feuil2.Image1

Qu'est-ce que BoutonImage 1 ?
Est-ce que l'image se nomme bien Image1 ?

.Picture = LoadPicture(imgf(1))

Que vaut imgf(1) ?

[prog-amateur]

Merci pour ton retour.
J'ai mis à jour mon premier message avec en jaune ce qui est surligné en fluo sur l'éditeur vba, et en rouge ce qui est surligné par la souris comme étant la cause principale suspectée.

Et je joins aussi le fichier pour être plus clair, ça vaut mieux qu'un long discours.

[parmi]

Je pense que tu doives changer cette ligne

Code :

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

With Feuil2.Shapes("Image1")

[prog-amateur]

Merci, on progresse : la fenêtre pour ouvrir mon fichier s'active, et l'image se charge dans l'aperçu. En revanche, un code se génère juste après :

erreur 438 : propriété ou méthode non gerce par cet objet

Le débogueur me renvoie à la ligne

Code :

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

 .Picture = LoadPicture(imgf(1))

Qui est liée au Module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public img As Variant
Public imgf(1 To 2) As Variant
 
Sub BoutonImage(btn As Byte)
img = Application.GetOpenFilename("image(*.jpg),*.jpg")
If img = False Then Exit Sub
imgf(btn) = img
With UserFormCR.Controls("Image" & btn)
  .Picture = LoadPicture(img)
  .PictureSizeMode = fmPictureSizeModeZoom
End With
End Sub

J'ai tenté d'ajouter des Shapes un peu partout dans le module, sans succès.

[parmi]

Tu pourrais trouver des idées ICI

[prog-amateur]

Merci, j'ai tout essayé, j'y comprends rien ça ne marche pas alors qu'avant ça fonctionnait. Ca fait 1 mois que je cherche, ça me rend dingue.

[parmi]

Je viens de réessayer ton fichier et il fonctionne bien... plutôt étrange parce que j'avais aussi une erreur en l'essayant l'autre jour.
Suite à ton message que j'ai vu sur un autre site, j'ai réessayé pour voir s'il y avait une différence, mais non... ça fonctionne comme je pense qu'il devrait le faire (?!)

Essaie de faire une réparation d'Excel pour voir si ça réglerait le problème... Ou peut-être supprimer tes contrôles Image et en remettre des nouveaux...