XL 2019 Curseur dans cellule selectionner

farid

XLDnaute Occasionnel
Supporter XLD
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

  • Fiche vierge 2021.xlsm
    682.4 KB · Affichages: 11
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...

Jacky67

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
290 716
Messages
1 909 852
Membres
176 453
dernier inscrit
Nollan97
Haut Bas