XL 2016 VBA double click

JBARBE

XLDnaute Barbatruc

• 24 Mai 2020

• #2

Bonjour à tous,
Peut-être ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Bonne journée !

 

Vote positif 0 Vote négatif

H

hub72

XLDnaute Nouveau

• 24 Mai 2020

• #3

Je voudrais garder la selection change pour ouvrir mes fichiers PDF, c'est pourquoi je souhaite un double click pour ouvrir mon formulaire de modification.

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 24 Mai 2020

• #4

Bonjour
Et quel code as-tu écrit ?
L'instruction Cancel = true a pour seule vocation d'inhiber le menu normalement affiché par cet évènement.
Elle ne t'affranchit pas de l'instruction nécessaire d'affichage de ton Userform.

 

Vote positif 0 Vote négatif

H

hub72

XLDnaute Nouveau

• 24 Mai 2020

• #5

J'ai écrit ceci, mais le double click fonctionne que sur une ligne et moi je voudrais que cela se produise si je vais sur n'importe quelle ligne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'On enclenche l'ouverture d'un formulaire uniquement sur la zone de sélection
If Not Intersect(Target, Range("$A$10:$BF$5000")) Is Nothing And Range("A" & Target.Row).Value <> Empty Then
'On récupère le numéro de ligne de la sélection active
Feuil4.Range("AG2").Value = Target.Row
'On enclenche l'ouverture d'un formulaire de modification
UserFormDEmodification.Show
End If
End Sub

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 24 Mai 2020

• #6

Re,
Cela s'apparente à une usine à gaz !
Peut-être il y a un moyen de faire plus simple !
Bonne journée !

 

Vote positif 0 Vote négatif

H

hub72

XLDnaute Nouveau

• 24 Mai 2020

• #7

Merci ! J'ai réussi 🙂 Très bonne journée à toi et merci encore pour ton aide précieuse !

 

Vote positif 0 Vote négatif

H

hub72

XLDnaute Nouveau

• 24 Mai 2020

• #8

Oui une usine à gaz.... Mais je me suis mise à la VBA depuis moins de 10 jours et j'ai pas mal galéré pour faire mon fichier.... J'aurais préféré faire ma base sur access mais ma boite n'a pas access. Alors je me suis lancée sur VBA. ET je galère, je tatonne...

 

Vote positif 0 Vote négatif

M

modus57

XLDnaute Occasionnel

• 24 Mai 2020

• #9

Bonjour,

Tout simplement :

VB:

    'Double clic sur une ligne de la feuille pour affiche le formulaire lié
    Cancel = True
    If Not Intersect(Target, [Tableau2]) Is Nothing And Target.Count = 1 Then
        UserFormDEmodification.Show
    End If

 

Vote positif 0 Vote négatif

H

hub72

XLDnaute Nouveau

• 24 Mai 2020

• #10

Merci beaucoup !!
Très bon week end !

 

Vote positif 0 Vote négatif