Transfert de données par double clic sur la feuille de son choix

[tactic6]

Bonjour à tous
Je cherche un code qui pourrait par double clic m'ouvrir un userform dans lequel j'ai 2 boutons qui correspondent chacun à une feuille ("ENTREE") et à une feuille ("SORTIE")

Actuellement je n'utilise qu'une feuille ("ENTREE") avec ce code en double clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long
Cancel = True
If Target.Column = 1 Then 'double click dans la 1er colonne
    With Sheets("ENTREE")
        .CellS(12, 3) = Target
    End With
    MsgBox "Saisie transferée !"
    Worksheets("ENTREE").Select
End If
End Sub

Comment faire pour avoir le choix entre la feuille ("ENTREE") et la feuille ("SORTIE")

Merci pour votre aide

 

[Jack2]

Re : Transfert de données par double clic sur la feuille de son choix

Bonjour tactic6,

Un truc tout simple (je ne sais pas si ça te convient ou si j'ai bien compris)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim Rep As Long
Cancel = True
If Target.Column <> 1 Then Exit Sub
Rep = MsgBox("Feuille ENTREE taper OUI" & Chr(10) & Chr(10) _
               & "Feuille SORTIE taper NON", vbYesNo, "Choix")
If Rep = vbOK Then
With Sheets("ENTREE")
    .Cells(12, 3) = Target.Value
    .Select
End With
Else
With Sheets("SORTIE")
    .Cells(12, 3) = Target.Value
    .Select
End With
End If
End Sub

Autrement, renvoyer un UserForm

If Target.Column <> 1 Then Exit Sub
Userform.Show

A+ Jack2

 

[tactic6]

Re : Transfert de données par double clic sur la feuille de son choix

Merci de ton aide avec le premier code marche nickel comme je veux
Juste remplacer vbOK par vbYes