Usine à gaz
XLDnaute Barbatruc
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 :
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
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 :
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 SubJe 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
Dernière édition: