Microsoft 365 Code ne fonctionne pas en double clic

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche

Grace à l'excellent code de laurent950 et aux intervenants que je remercie, j'ai retenu son code qui fonctionne parfaitement bien au simple clic.

Et vlan .... dans mon fichier de travail, je dois l'utiliser en double clic et je n'arrive pas à trouver comment le faire fonctionner.

Le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'DisplayAlerts = False
If Not Application.Intersect(Target, Range("f6:f15")) Is Nothing Then
Laurent
End If
'[a1].Select
End Sub

Private Sub Combo1_Change()
    Dim WS As Worksheet
    Set WS = ActiveSheet
   Dim ctrl As OLEObject
   For Each ctrl In WS.OLEObjects
      If ctrl.progID = "Forms.ComboBox.1" Then
            If ctrl.Name = "Combo1" Then
            ' Valeur dans la combobox
            ' Copie dans la cellule active
                ActiveCell.Offset(0, 8) = ctrl.Object.Text
                ActiveCell.Offset(0, 9) = "=VALUE(RIGHT(RC[-1],3)&RIGHT(RC[-9],9))"
                ActiveCell.value = ActiveCell.Offset(0, 9).value
                ActiveCell.Offset(0, 8).ClearContents
                ActiveCell.Offset(0, 9).ClearContents
            ' Supprime la combobox
               ctrl.Delete
            End If
      End If
   Next
[a1].Select
End Sub

le "Private Sub Combo1_Change()" Ne s'exécute pas en double clic, ce qui me semble normal.
Je n'arrive pas à modifier pour que ça fonctionne.
Sauriez-vous ?
Un grand merci par avance.
Je joins le fichier test et je continue à chercher ...
lionel

 

[cp4]

Bonjour @Usine à gaz ,

J'ai testé sur mon vieux Dell, Win7 6bits, Excel 2010 32bits, tout semble fonctionner correctement.
Le simple clic ne fonctionne pas sur cette feuille (normal) mais le double clic fonctionne.
à moins que je n'ai pas fait la bonne manip.

Bon vote!

 

[bof]

Bonjour,
Moi je dirai qu'il faut rajouter
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

au début de la macro...

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

A+

 

[Dranreb]

Bonjour.
Il manque Cancel = True avant l'appel à Laurent

 

[Usine à gaz]

Bjr cp4
Merci pour ton test.
Bon sang, je n'y comprends rien car chez moi ça ne fonctionne pas Grrrr !!!

Bjr bof Merci à toi aussi d'être là
"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" et tu le mets où ? puisqu'il qu'il est déjà en début de code.
lionel

 

[Usine à gaz]

Bonjour.
Il manque Cancel = True avant l'appel à laurent

Bonjour Dranreb
Merci à toi : nickel c'est ce qui manquait.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("f6:f15")) Is Nothing Then
Cancel = True
Laurent
End If
End Sub

Je te remercie
lionel

 

[cp4]

Bonjour Dranreb
Merci à toi : nickel c'est ce qui manquait.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("f6:f15")) Is Nothing Then
Cancel = True
Laurent
End If
End Sub

Je te remercie
lionel

Tu es sous quels Windows et excel?
Là, je ne comprends pas pourquoi chez moi ça fonctionne sans le Cancel=true.
Merci.

 

[Dranreb]

En fait le 1er effet marche, mais après, le choix dans la ComboBox n'est plus suivi d'effet parce que la cellule a été mise en édition.

 

[Usine à gaz]

lol j'ai pourtant sélectionné en postant :

 

[Usine à gaz]

En fait le 1er effet marche, mais après, le choix dans la ComboBox n'est plus suivi d'effet parce que la cellule a été mise en édition.

Encore merci à toi et je ne m'en lasse pas :

lol ... un grand merci