Discussion :

[retraite83]

Bonjour

je me lance dans les "Userform" et j'ai un soucis

J'ai créé mon UserForm1 et codé le chargement par "UserForm1.show"

Lorsque je code "UserForm1.show" dans un module standard cela marche très bien

Je voudrai déclencher le UserForm sur un double-clic , lorsque je code dans le code de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub

la Userform s'affiche bien mais le problème est que je ne peux pas rentrer de texte dans la "TexteBox" et le bouton de commande est lui aussi comme protégé, je ne peux pas cliquer dessus

Surement très simple mais ça fait 2 jours que je cherche dans tous les sens...

merci de vos pistes

[Philippe Tulliez]

Bonjour,
C'est très curieux ce que vous expliquez car je ne vois pas de problème d'utilisation d'un UserForm invoqué depuis une procédure événementielle d'un module feuille.
Par acquit de conscience, j'ai tout de même fait un test et je confirme.

En revanche n'oubliez pas d'ajouter l'instruction Cancel = True pour éviter d'entrer en édition dans la cellule où vous avez fait le double clic

Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  UserForm1.Show
  Cancel = True
End Sub

[Franc]

Salut, bizarre, chez moi ça ne pose aucun problème.
Essaie UserForm1.Show 1 ou 0 pour voir si ça change quelque chose.
Je vois que Philippe à déjà répondu, je pense qu'il tient la solution

[retraite83]

Après plusieurs essais dans les 2 sens je confirme:

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cancel = True

J'ai accès au texte et le bouton fonctionne

sans cette ligne tout est bloqué lors de l'affichage

Merci