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.

 

[jeromeN95]

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

Oui, mais j'ai compris ce probleme.
Là, c'est un probleme de suppression de l'image dans la cellule ou la selection de cette cellule...
Je retourne la formule dans tout les sens et pas de solution.
Si je supprime la ligne :

For Each sh In ActiveSheet.Shapes
' If Not Intersect(sh.TopLeftCell, ActiveCell) Is Nothing Then sh.Delete 'on efface l'image de la cellule active_
' If sh.TopLeftCell.Address = ActiveCell.Address Then
' sh.Delete
' End If
Next sh 'si elle existe.....

Alors, je n'ai plus de problème de code. Mais l'image qui été présente n'ai pas supprimer....

 

[xhudi69]

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

Bonjour jeromeN95, le Forum,

Par contre si tu laisses les lignes de code actives et que tu fais ThisWorkbook.Save à chaque fin de procédure, tout rentre dans l'ordre 😕

Je continue de chercher.....

@+ 😎

 

[jeromeN95]

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

Re,
C'est vraiment incomprehensible mais c'est ici qu'est l'erreur :

Sub ChoixClick(p, nom)
Dim sh As Shape
Dim f As Worksheet
    nom = Me("label" & p).Caption 
'On Error Resume Next
    For Each sh In ActiveSheet.Shapes
        If Not Intersect(sh.TopLeftCell, ActiveCell) Is Nothing Then sh.Delete 'on efface l'image de la cellule active_
 '       If sh.TopLeftCell.Address = ActiveCell.Address Then
            sh.Delete
        End If
    Next sh                                                                    'si elle existe.....
    
    Set f = Sheets("Pycto")
    f.Shapes(nom).Copy 'on vat copier l'image correspondante dans la feuille "Pycto".....
        ActiveSheet.Paste
        Selection.ShapeRange.Left = ActiveCell.Left + 3 'on recadre l'image dans la cellule active.....
        Selection.ShapeRange.Top = ActiveCell.Top + 5
        Selection.ShapeRange.Height = ActiveCell.Height - 7
  
Unload Me
Cells(1, 1).Select
ThisWorkbook.Save
End Sub

Surprenant, lorsque j'effectue la procedure dans une cellule où il n'y a pas d'image à selectionner (et donc à supprimer), je n'ai pas d'erreur d'execution !

 

[jeromeN95]

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

Toujours rien trouver !
Je cherche sur internet des lignes de codes semblables mais c'est pas facile !

 

[xhudi69]

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

Bonjour jeromeN95, le Forum,

Quelque chose m'echappe aussi, essaies de rajouter ThisWorkbook.save à la fin de la procédure et là çà fonctionne 😕😕
Donc quelque chose reste en suspens, il manque une instruction.

@+ 😎

 

[jeromeN95]

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

Bonjour, pas de réponses? J'ai refait le code complet dans un nouveau fichier et toujours le même problème...

 

[xhudi69]

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

Bonsoir jeromeN95, le Forum,

Désolé pour le retard, débordé cette semaine, je viens de m'y remettre.
As-tu essayé le test dans mon post #35 ?

@+ 😎

 

[jeromeN95]

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

Bonjour, oui oui, comme dans le code du post 33. En bas j'ai rajouter "ThisWorkbook.save" mais idem...
merci à toi.

 

[jeromeN95]

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

Bonsoir à tous,
Même à tête reposer, je tourne en rond avec se code :!

Une petite aide serait la bienvenue pour finaliser se projet SVP , ne serrait-ce qu'une indication.

SVP.