Microsoft 365 Code ne fonctionne pas en double clic

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche :)
1649579520790.gif


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 :
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 :)
 

Pièces jointes

  • inputBox_ModifTel4.xlsm
    51.7 KB · Affichages: 10
Dernière édition:

cp4

XLDnaute Barbatruc
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.
DoubleClic.gif


Bon vote!
 

bof

XLDnaute Occasionnel
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...
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
A+
 

cp4

XLDnaute Barbatruc
Bonjour Dranreb :)
Merci à toi : nickel c'est ce qui manquait.
VB:
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.
 

Discussions similaires

Réponses
2
Affichages
108
Réponses
1
Affichages
204

Statistiques des forums

Discussions
311 709
Messages
2 081 769
Membres
101 816
dernier inscrit
Jfrcs