Lancer un UserForm via Doubleclic dans la cellule
Résolu
Koalacid
Messages postés
70
Date d'inscription
Statut
Membre
Dernière intervention
-
Arkana0 Messages postés 6365 Date d'inscription Statut Modérateur Dernière intervention -
Arkana0 Messages postés 6365 Date d'inscription Statut Modérateur Dernière intervention -
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:
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
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
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Lancer une application au démarrage windows 10 - Guide
- Partager des photos via un lien - Guide
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à....
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 Subou ne me permettre d'accéder à la modification de la cellule... Explication de ce que vous voulez faire