Re: Choisir la destination Dble click |
Titre du sujet : Re: Choisir la destination Dble click par myDearFriend! le 05/01/2023 13:38:24 Bonjour tactic6, le Forum,
Tout dépend de comment tu souhaites présenter cette option à l'utilisateur... J'imagine que le mieux serait de présenter un petit Userform avec le choix de feuille destination à prendre en compte pour cette copie de valeur...
Cela dit, j'ai fait au plus simple et au plus court, et tu peux sans doute utiliser quelque chose comme ça (voir pièce jointe) : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim Rep As Integer Cancel = True If Target.Column = 1 Then 'double click dans la 1ère colonne Rep = MsgBox("DESTINATION du Code Client ?" _ & vbLf & vbLf & "- OUI = feuille 'SAISIE' (par défaut)" _ & vbLf & "- NON = feuille 'PAGE2'", vbYesNoCancel + vbQuestion, "www.mDF-XLpages.com") If Rep = vbCancel Then Exit Sub With Sheets(Choose(Rep - 5, "SAISIE", "PAGE2")) .Cells(12, 3) = Target .Select End With MsgBox "Code Client transferé !" End If End Sub Bien cordialement, |
Forums