none
Utilisation de la fonction BeforeDoubleClick sur une surface PRO 3 RRS feed

  • Question

  • Bonjour, 

    Je souhaite utiliser la fonction BeforeDoubleClick sur une surface PRO 3. Sur un ordinateur, la fonction fonctionne très bien mais sur la tablette, il ne se passe rien. Il faut brancher une souris en externe ou le pavé tactile du type cover pour qu'il se passe quelque chose.

    Voici le code si jamais à modifier, merci infiniment à celui qui trouvera. En gros, si l'utilisateur clique sur certaines cellules, un formulaire va s'afficher. 


    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim selection1 As Range, selection2 As Range
        Set selection1 = Union(Range("F7:F24"), Range("F35:F50"), Range("F60:F74"), Range("F76:F77"), Range("F85:F95"), Range("F97:F99"), Range("F101:F102"), Range("F111:F126"), Range("F137:F151"), Range("F160:F162"), Range("F165:F170"))
        Set selection2 = Union(Range("F25"), Range("F51"), Range("F127"), Range("F152"))

        If Not Intersect(Target, selection1) Is Nothing Then
            If Target.Value <> Empty Then

                Target.Value = Empty

                ActiveCell.Offset(0, -1).ClearContents
                ActiveCell.Offset(0, -2).ClearContents
                ActiveCell.Offset(0, -3).ClearContents


                Exit Sub

            End If

            If Target.Value = Empty Then

                UserForm2.Show

            End If

        End If

        If Not Intersect(Target, selection2) Is Nothing Then
            If Target.Value <> Empty Then

                Target.Value = Empty

                ActiveCell.Offset(0, -1).ClearContents
                ActiveCell.Offset(0, -2).ClearContents
                ActiveCell.Offset(0, -3).ClearContents


                Exit Sub

            End If

            If Target.Value = Empty Then

                UserForm9.Show

            End If

        End If

    End Sub

    mercredi 22 août 2018 13:43

Toutes les réponses

  • Bonjour,

    Qu'est-ce qu'il y a comme périphérique pouvant générer un événement de double clic, si il n'y a ni souris ni pavé tactile de branché ?

    jeudi 23 août 2018 04:09
  • Bonjour, aucun périphérique n'est branché. En fait, la fonction n'est pas reconnue par l'écran tactile.. Je ne sais pas si je peux modifier les fonctionnalités "tablette" pour pouvoir gérer le double clic..
    jeudi 23 août 2018 05:58
  • Bonjour,

    À ce qu'il me semble, cette question relève davantage de la notice de la machine, que véritablement de compétences VBA.

    jeudi 23 août 2018 07:16