Rapport de message :*
 

Re: Choisir la destination Dble click

Titre du sujet : Re: Choisir la destination Dble click
par tactic6 le 07/01/2023 10:09:37

Bonjour

J'essaie de remplacer la MsgBox par un Userform mais j'obtiens une erreur 1004 et ne comprend vraiment pas pourquoi

Voici les codes si quelqu'un a le temps d'y jeter un oeil merci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'recherche de la cellule dans la colonne A
If Target.Column = 1 Then


    UserForm1.Show
    Dim cellule As String
    cellule = Target.Address

End If

End Sub

'boutons Userform

Private Sub CommandButton1_Click()
    Sheets("SAISIE").Range("C12").Value = Sheets("Client").Range(cellule).Value
    Unload Me

End Sub

Private Sub CommandButton2_Click()
    Sheets("PAGE2").Range("C12").Value = Sheets("Client").Range(cellule).Value
    Unload Me

End Sub