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

jeromeN95

XLDnaute Impliqué

• 1 Septembre 2013

• #31

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.....

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Septembre 2013

• #32

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.....

@+ 😎

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 1 Septembre 2013

• #33

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 :

HTML:

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 !

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 2 Septembre 2013

• #34

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 !

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 3 Septembre 2013

• #35

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.

@+ 😎

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 6 Septembre 2013

• #36

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...

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 6 Septembre 2013

• #37

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 ?

@+ 😎

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 7 Septembre 2013

• #38

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.

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 12 Septembre 2013

• #39

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.

 

Vote positif 0 Vote négatif