Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 exécuter dble clic (pas simple clic)

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 !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Me voici avec un nouveau souci pour lequel, malgré mes essais et recherches, je n'arrive pas à trouver la solution.
Dans notre fichier de travail, nous pouvons avoir à cliquer 1 ou double clic sur les cellules pour exécuter un code...
Dans le code "Feuil1" du classeur joint, j'ai deux codes :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("f10")) Is Nothing Then
    [f10] = "2 clics ok"
    [H10].Select
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("f10")) Is Nothing And R.Count = 1 Then
    [f10] = "1 clic pas bon"
    [H10].Select
    End If
End Sub

Mon souci est que :
Si je double clic dans ma cellule F10, le simple clic s'exécute en premier.
Je ne vois pas comment faire pour que le double clic soit exécuté et pas le simple clic ?


Auriez-vous la solution ?
Je joins un petit fichier.

Avec mes remerciements,
Je vous souhaite à toutes et à tous une très belle journée,
amicalement,
arthour973,
 

Pièces jointes

Dernière édition:
Bonjour arthour973
Une proposition.

De toutes façons, depuis 2007 il ne faut plus utiliser
VB:
 R.Count = 1
mais
Code:
 R.CountLarge = 1
Sinon en cas de clic sur la case à l'intersection des lignes et colonnes, le code va planter...

Cordialement
 

Pièces jointes

Bonjour Efgé,

Merci pour m'avoir répondu et pour le code qui fonctionne bien 🙂
Encore un code que je viens d'apprendre grâce à vous.

Mes sincères remerciements,
Amicalement,
arthour973,
 
- 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

Réponses
9
Affichages
279
Réponses
4
Affichages
249
Réponses
4
Affichages
260
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…