XL 2019 Curseur dans cellule selectionner

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

  • Fiche vierge 2021.xlsm
    682.4 KB · Affichages: 12
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
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024