Lancer un UserForm via Doubleclic dans la cellule

Résolu/Fermé

Koalacid Messages postés 70 Date d'inscription vendredi 5 septembre 2014 Statut Membre Dernière intervention 8 mars 2016 - 24 févr. 2016 à 10:49
Arkana0 Messages postés 4393 Date d'inscription mercredi 11 février 2009 Statut Modérateur Dernière intervention 20 mars 2023 - 24 févr. 2016 à 13:41

Bonjour,

J'ai un problème assez étrange je dirais.

J'ai dans un classeur A un userform pour lequel il suffit de double-cliquer dans la cellule pour l'afficher.

Dans mon classeur B, je souhaite avoir la même chose.

Alors je copie colle le code suivant:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 ' Double Click Event To Launch The Userform
 
 Dim rep As Boolean
 Cancel = False
 If Not Intersect(Target, Range("H6:H30")) Is Nothing And UserForm1.Visible = False Then
 UserForm1.Show
 End If
 Cancel = True
 End Sub


Option Explicit

Mais ca ne fonctionne pas. A savoir que mis à part la plage H6:H30 tout est identique.

J'ai essayé de comparer dans tous les sens ce qui changeait entre les deux classeurs..... Absolument rien.

Est-ce que vous avez une idée de l'erreur?

Ou est-ce que vous avez un code pour le doubleclick qui fonctionne?

Sincèrement,

Koalacid

A voir également:

Lancer un UserForm via Doubleclic dans la cellule
Aller à la ligne dans une cellule excel - Guide
Communication impossible via ssl ps4 ✓ - Forum Google Chrome
Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
Verrouiller cellule excel - Guide
Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Arkana0 Messages postés 4393 Date d'inscription mercredi 11 février 2009 Statut Modérateur Dernière intervention 20 mars 2023 192
24 févr. 2016 à 11:30

Boujour,

As-tu bien recopié ce code sur la feuille concernée et non pas dans un module ?

Koalacid Messages postés 70 Date d'inscription vendredi 5 septembre 2014 Statut Membre Dernière intervention 8 mars 2016 2
24 févr. 2016 à 12:05

J'ai copié le code de l'userform, c'est-à-dire que quand j'ai double-ciqué sur le userform pour rentrer le code de fonctionnel, j'ai à un moment rentrer cette partie de code.

En tout cas elle n'est pas dans un module. Mais cependant quand j'ai essayé de recopier ce code sur la feuille concernée, alors les cellules se sont bloquées sans que le double clic ne lance l'userform ou ne me permettre d'accéder à la modification de la cellule...

Je me tape la tête contre le mur là....

f894009 Messages postés 16906 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 mars 2023 1 680 > Koalacid Messages postés 70 Date d'inscription vendredi 5 septembre 2014 Statut Membre Dernière intervention 8 mars 2016
24 févr. 2016 à 13:36

Bonjour a vius deux,

Koalacid:
Je me tape la tête contre le mur là.... et ca vous fait du bien......??????

VBA de la feuille:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 ' Double Click Event To Launch The Userform
 
    Dim rep As Boolean
    If Not Intersect(Target, Range("H6:H30")) Is Nothing And UserForm1.Visible = False Then
        Cancel = True
        UserForm1.Show
    End If
 End Sub

ou ne me permettre d'accéder à la modification de la cellule... Explication de ce que vous voulez faire

Arkana0 Messages postés 4393 Date d'inscription mercredi 11 février 2009 Statut Modérateur Dernière intervention 20 mars 2023 192 > Koalacid Messages postés 70 Date d'inscription vendredi 5 septembre 2014 Statut Membre Dernière intervention 8 mars 2016
24 févr. 2016 à 13:41

Comment est défini Userform1 ? C'est peut-être là que le problème se pose ?

Newsletters