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

Bonjour,
non, c'est la cellule IMG19 d'excel.

Je ne souhaite pas utimiser d'autres noms.
Les codes VBA sont déjà fait et fonctionnel...
xhudi69 à réussit à renomer plusieurs objets mais comment.....

 

[Pierrot93]

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

Re,

non, c'est la cellule IMG19 d'excel.

pas sous 2003 alors... pourquoi avoir pré-fixé la discussion XL2003 dans ce cas.... préférable d'indiquer la version exacte que l'on utilise.....

 

[jeromeN95]

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

Re,
j'avais commencer en 2003 pour finir, c'est du 2007.

On peux pas modifier le nom sous 2007?

 

[Pierrot93]

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

Re,

aucune idée.. perso je ne renomme jamais des objets comme des références de cellules.... évite bien des erreurs....

 

[xhudi69]

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

Bonjour jeromeN95, le Forum,
Bonjour Pierrot93 🙂

Je n'arrive pas à télécharger le fichier au bureau, je vois cela ce soir et te le renvoie avec la macro corrigée.

@+ 😎

 

[jeromeN95]

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

oki, cool merci.

 

[xhudi69]

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

Bonsoir jeromeN95, Pierrot93 🙂 ,le Forum,

En lien ton fichier remanié à plusieurs niveaux.

Dans l'évennement "Private Sub UserForm_Initialize()"
Dans la routine "Sub affiche()"
Dans l'évennement "Private Sub Image1_Click()"

Les macros sont commentées et les variables ajustées pour que les images suivent le Scroll (avant au retour du curseur il manquait une image)

Tu peux voir ici l'intérêt de travailler avec des Shapes plutôt qu'avec un répertoire d'images.

Ton 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

Ah ok, je voit c'est super, je comprend mieux maintenant.
Un grand merci.

Je vous souhaite une bonne soirée.

 

[jeromeN95]

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

étrange, car moi, si j'ouvre le fichier et que je modifie les éléments "Quoi", "Fréquence", "produit", ... avant les pyctgrammes "double clik", alors ça bug.
Par contre, si j'ouvre le fichier, que le double clik directement, la fonction s'execute normalement.

Et c'est comme cela qu'il faut qu'il fonctionne.

J'ai modifier l'ordre comme tu l'indique mais c'est pareil...

 

[xhudi69]

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

Bonsoir jeromeN95, le Forum,

Trop tard pour ce soir, je vois ce que je peux faire.

@+ 😎

 

[jeromeN95]

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

Bonjour,
toujours le même bug.
C'est pas bien, j'arrive plus a avancer et je ne comprend pas pourquoi !

 

[xhudi69]

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

Bonsoir jeromeN95, le Forum,

En Lien ton fichier remanié au niveau de:
Dans le WorkBook évennement Change des feuilles en fin de procédure "Application.CutCopyMode = False" supprimé
Dans l'UserForm ShowModal à False de sorte que tu peux sélectionner une cellule et lui affecter une image sans quitter celui-ci.
Redimenssionnement des images par rapport aux cellules réceptrices.

Quelques lignes de code remises au propre.
Maintenant je ne suis pas arrivé à bugger le fichier.

Si cela te convient et désolé du retard (trop de travail)

FICHIER

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

@+ 😎

 

[xhudi69]

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

Bonjour jeromeN95, le Forum

En lien ton fichier remanié.

FICHIER

@+ 😎

 

[jeromeN95]

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

Bonjour,
merci énormément mais la validation s'en va s'en arrêt.
Je ne retrouve plus la ligne qui fait sa!
2 jours que je cherche... J'aimerais bien un petit coup de main stp ;

C'est dans l'UserForm !

Sub ChoixClick(p, nom)
Dim sh As Shape
Dim f As Worksheet
    nom = Me("label" & p).Caption 'on mémorise le nom de l'image dans la variable nom qui se trouve dans le Label.....
    For Each sh In ActiveSheet.Shapes
On Error Resume Next 
        If Not Intersect(sh.TopLeftCell, ActiveCell) Is Nothing Then sh.Delete 'on efface l'image de la cellule active_
    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 'on recadre l'image dans la cellule active.....
        Selection.ShapeRange.Top = ActiveCell.Top
        Selection.ShapeRange.Left = ActiveCell.Left + 7
        Selection.ShapeRange.Top = ActiveCell.Top + 8
Unload Me
Cells(1, 1).Select
End Sub

Dés que je rajoute : "On Error Resume Next ", il ne me met plus les validations.
Si je ne le met pas, ça fonctionne jusqu'a la selection dans l'userform et aprés ça bug à la ligne : " If Not Intersect(sh.TopLeftCell, ActiveCell) Is Nothing Then sh.Delete"

 

[xhudi69]

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

Bonjour jeromeN95, le Forum,

J'ai aussi l'impression qu'il y a un décalage dans les listes déroulantes des colonnes "B" & "C" cela ne correspond pas à l'affichage après insertion de la ligne.

@+ 😎