Erreur d'execution d'une Userform lors d'un double click

[jeromeN95]

Bonjour à tous,
J'ai un problème d'exécution de ma macro.
Le code est :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
    Select Case .Column
        Case 9, 10 To 13
             With UserForm1
            .Top = 150: .Left = 50: .Show
        End With
    End Select
End With
Cancel = True
End Sub

Mais lorsque je double click, j'ai une erreur 481, image incorrect.

Vous voyer quelque chose d’incorrect vous?

Je vous met le fichier ici car il fait un poil plus de 976 Ko.
Merci.

 

[Grand Chaman Excel]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonsoir,
Le fichier n'est pas joint...
J'ai testé le code avec un Userform vide et ça fonctionne sur mon PC.
Il faudrait voir le vrai fichier avec le Userform pour comprendre d'où vient le problème.
Est-ce que le userform contient des contrôles images?

 

[xhudi69]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour jeromeN95
Bonjour Grand Chaman Excel 🙂 , le Forum,

N'y-a-t-il pas un autre évennement dans le "Worksheet_BeforeDoubleClick" ou dans le "Change" ou autre ?
l'enchainement des évennements pourrait provoquer ce genre de "bugg"

mais comme le dit si justement notre ami Grand Chaman Excel, un fichier édulcoré et anonymisé serait le bienvenue 😛

@+ 😎

 

[jeromeN95]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour,
oup's, c'est le manque de sommeil certainement.
Voici : Free - Envoyez vos documents
Merci.

 

[xhudi69]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour jeromeN95, le Forum,

En PJ un essais sur ton UserForm, à adapter à ton besoin.

Je n'ai pas vu "Image4" sur l'UserForm ?

@+ 😎

 

[jeromeN95]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour,
je te remercie de ta réactivité.
Une chose que je ne comprend pas.
J'ai ouvert ton fichier et il fonctionne (il m'affiche l'userform lorsque je double clique).
J'ai copier le code contenu dans "feuil 1" de ton fichier vers le mien, et ça ne fonctionne pas sur le mien.

J'ai donc continuer jusqu'a avoir copier tout, même le modul, dans TwithWorkBook, bref, partout et ca ne fonctionne toujours pas.
J'ai exactement tout les codes identiques !

Une idée du pourquoi?

 

[xhudi69]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour jeromeN95, le Forum,

La feuille est un extrait, as-tu copié le Module "modPastePicture" 🙄 car:

Je ne vais pas chercher dans un répertoire Image car j'ai les Shapes en feuille "Pycto" disponibles et renommés "IMG1.....IMG24" pour les afficher sur l'UserForm, c'est plus pratique.

EN PJ l'extrait de ton fichier remanié avec les images défilantes avec le Scroll.
Tout cela à adapter bien sûr 😉

@+ 😎

 

[xhudi69]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour jeromeN95, le Forum,

En PJ l'extrait de ton fichier remanié dans l'évennement UserForm Initialise

Private Sub UserForm_Initialize()
  début = 1
  n = 10
  Me.ScrollBar1.Min = 1
  Me.ScrollBar1.Max = Sheets("Pycto").Shapes.Count - n 
  affiche
End Sub

De cette manière tu arrives à la fin de ton Scroll avec la dernière image.

@+ 😎

 

[jeromeN95]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour,OK
J'ai modifier les noms de mes images "IMG X" et adapter le code en conséquence.
Merci.
Donc j'Userform s'affiche maintenant.
Mais lorsque je selectionne l'image, celle ci n'est pas inserer, et j'ai une erreur sur la ligne en rouge :

 If Not Intersect(s.TopLeftCell, ActiveCell) Is Nothing Then s.Delete

Sub ChoixClick(p, nom)
  For i = 1 To n
    Me("Image" & i).BorderStyle = 0
  Next i
  Me("Image" & p).BorderStyle = 1
  If ActiveCell.Column = 9 Or 10 Then
    ActiveCell.Offset(, -1) = nom
    For Each s In ActiveSheet.Shapes
 If Not Intersect(s.TopLeftCell, ActiveCell) Is Nothing Then s.Delete
    Next s
    Set f = Sheets("Pycto")
    lig = [Pycto].Find(nom, LookAt:=xlWhole).Row
    col = [Pycto].Column + 1
    For Each s In f.Shapes
          If s.TopLeftCell.Address = Cells(lig, col).Address Then
            s.Copy
            ActiveSheet.Paste
            Selection.ShapeRange.Left = ActiveCell.Left + 20
            Selection.ShapeRange.Top = ActiveCell.Top + 8
          End If
    Next s
  End If
Unload Me
Cells(i, 1).Select
End Sub

 

[xhudi69]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour jerome95, le Forum,

Si je comprends bien tu veux (en clickant sur l'mage) la copier dans la cellule active ? isn't it.

@+ 😎

 

[jeromeN95]

Re : Erreur d'execution d'une Userform lors d'un double click

Je souhaite inserer l'image dans la cellule où on double clique (bien sur effacer celle présente s'il y en à une).

 

[xhudi69]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour jeromeN95, le Forum,

En lien ton fichier en entier avec la copie du Shape dans la cellule active après Click dans l'image, à toi de poursuivre la macro pour le redimenssionnement et la suite......

J'ai aussi réaménagé les Labels pour pouvoir y mémoriser les noms des Shapes.

FICHIER

Le fichier restera en ligne tant qu'il y aura au moins un téléchargement sur une période de 30 jours

@+ 😎

 

[jeromeN95]

Re : Erreur d'execution d'une Userform lors d'un double click

oki, cool, je te remercie.

 

[jeromeN95]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour,
humm, un truck à la c** :

Quand je souhaite modifier le nom d'un objet (pyctograme) afin de mettre par exemple IMG19 à la place de IMG 19.
Excel me renvoi à la cellule du même nom.
Comment faire pour lui attribuer stp?

 

[Pierrot93]

Re : Erreur d'execution d'une Userform lors d'un double click

Bonjour,

Excel me renvoi à la cellule du même nom.

sous 2003 tu as nommé une cellule de cette façon ?? préférable d'utiliser des noms différents....

bonne journée
@+