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:

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 Accro
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ésolu(e)
Microsoft 365 Code VBA
Réponses
7
Affichages
295
Réponses
12
Affichages
300
Réponses
2
Affichages
488