XL 2019 Curseur dans cellule selectionner

  • Initiateur de la discussion Initiateur de la discussion farid
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

farid

XLDnaute Occasionnel
Bonsoir, lorsque je double clic sur une des cellules entre H10:H20 , l'userform 17 s'ouvre et je sélectionne l'horaire, sauf qu'après le choix , le curseur continue de clignoté sauf si je change de cellule, Est ce possible lorsque le choix horaire est fait , qu'il n'y a pas de curseur dans le cellule.
je vous met le fichier pour mieux comprendre ma demande.
par avance, merci
 

Pièces jointes

Solution
Bonsoir, lorsque je double clic sur une des cellules entre H10:H20 , l'userform 17 s'ouvre et je sélectionne l'horaire, sauf qu'après le choix , le curseur continue de clignoté sauf si je change de cellule, Est ce possible lorsque le choix horaire est fait , qu'il n'y a pas de curseur dans le cellule.
je vous met le fichier pour mieux comprendre ma demande.
par avance, merci
Bonjour,
Ajouter à la macro==> Cancel = True
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect([h10:h20], Target) Is Nothing And Target.Count = 1 Then
        Cancel = True
        UserForm17.Left = Target.Left + 130
        UserForm17.Top = Target.Top + 80 - Cells(ActiveWindow.ScrollRow, 1).Top...
Bonsoir, lorsque je double clic sur une des cellules entre H10:H20 , l'userform 17 s'ouvre et je sélectionne l'horaire, sauf qu'après le choix , le curseur continue de clignoté sauf si je change de cellule, Est ce possible lorsque le choix horaire est fait , qu'il n'y a pas de curseur dans le cellule.
je vous met le fichier pour mieux comprendre ma demande.
par avance, merci
Bonjour,
Ajouter à la macro==> Cancel = True
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect([h10:h20], Target) Is Nothing And Target.Count = 1 Then
        Cancel = True
        UserForm17.Left = Target.Left + 130
        UserForm17.Top = Target.Top + 80 - Cells(ActiveWindow.ScrollRow, 1).Top
        UserForm17.Show
    End If
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour