pave directionnel bloqué apres macro Résolu

Question

Bonjour, 

Voilà mon problème : 
J'ai créé un userform qui s'ouvre quand je double clique sur la cellule et il m'affiche une image correspondant à la référence de la cellule.
La raison pour laquelle j'utilise se code est que toutes mes images sont stockées sur une feuille du classeur. (je ne peux pas les mettre dans un fichier à part pour aller les chercher...).
Le code fonctionne très bien mais le seul souci qui arrive après exécution de la macro : le blocage du pavé directionnel. impossible de l'utiliser pour se déplacer d'une cellule à l'autre...

Private Sub UserForm_Initialize()Dim ff  Me.Caption = ActiveCell.ValueSet ff = Sheets("PHOTO")Set s = ff.Shapes(CStr(ActiveCell.Value))s.CopyPictureff.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Pasteff.ChartObjects(1).Chart.Export Filename:="monimage.jpg"ff.Shapes(ff.Shapes.Count).DeleteMe.img.PictureSizeMode = fmPictureSizeModeZoomMe.img.Picture = LoadPicture("monimage.jpg")Kill "monimage.jpg"End Sub
Une idée.....??? parce que là je rame.....
Merci 


Configuration: Windows 7 / Firefox 39.0

cs_Le Pivert · Answer

Bonjour,

question bête:

As- tu mis la propriété ShowModal à False de ton UserForm?

boomer11 · Answer

Bonjour,

Merci pour votre intérêt à la question.

Le Userform n'a pas la propriété ShowModal à False.
J'ai essayé les 2 cas, le problème reste le même.
C'est bizarre ... ne serait ce pas lié à la création d'un objet Chart ?
J'ai testé quand j'enlève le code, le Userform s'ouvre correctement (bien sur sans l'image), quand je le ferme, le pavé directionnel est toujours opérationnel. Je remet le code et là, ça ne fonctionne plus ???

cs_Le Pivert · Answer

Voir ceci pour pouvoir travailler sur une feuille quand l'UserForm est présente:

 https://silkyroad.developpez.com/VBA/UserForm/#LIII-A-2

cs_Le Pivert · Answer

Poster ici, je vois ce que ça donne chez moi:

https://www.cjoint.com/

cs_Le Pivert · Answer

Le pave te sert à naviguer dans le combo pour faire défiler les images (haut et bas).
Si tu veux naviguer sur ta feuille, il faut cliquer sur le TextBox2 avant et cliquer sur ta feuille ensuite:

Affichage images internes dans un formulaire
TexBox2


Voilà

cs_Le Pivert · Answer

Il faut cliquer ici pour rétablir

Sinon il changer le code!!!!!

cs_Le Pivert · Answer

Rectifier le code :

Dim f
Private Sub UserForm_Activate()
 Me.ComboBox1.ListIndex = 0 'affiche image à l'ouverture
End Sub
Private Sub UserForm_Initialize()
  Set f = Sheets("photos")
  For Each s In f.Shapes
    Me.ComboBox1.AddItem s.Name
  Next
End Sub
Private Sub ComboBox1_Change()
  Set s = f.Shapes(CStr(Me.ComboBox1))
  s.CopyPicture
  f.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
  f.Shapes(f.Shapes.Count).Delete
  Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
  Me.Image1.Picture = LoadPicture("monimage.jpg")
  Kill "monimage.jpg"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveSheet.Shapes("Text Box 2").Select 'selection pour rétablir pavé
End Sub

boomer11 · Answer

OK bien vue ... je viens de comprendre.
Sinon le code a changé car je m'en suis servi pour l'adapter sans le choix avec la combo. Du coup, mon code affiche l'image référencé dans la cellule directement. 
Comment retrouver le pavé sans cliqué sur une autre image dans ce cas?
C'est normal ??
Et GRAND merci :)

Pave directionnel bloqué apres macro

8 réponses

Discussions similaires

Newsletters