Dblclic sur cellule userform s'ouvre

Bonsoir a tous
et bravo pour ce forum

ma question est:

Est-il possible que quand je clic par ex sur les cellule A1 à A4 d'ouvrir une userform.
Jai un classeur excel avec une feuille et jaimerai que quand je clic sur la cellule A1 ou A2 ... ou A4 que ma userform1 souvre.

Merci a tous

2 réponses

  1. Bonjour

    j'ai essayé sa marche nikel mais quelle ligne de code rajoutée pour récupérer l'information d'une autre feuille.
    j'ai essayé je n'y arrive pas, excusé moi mais je suis débutant dans le VBA.

    merci d'avance
    1. Re,

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
          If Target.Count > 1 Then Exit Sub
          If Not Application.Intersect(Target, Range("A1:A4")) Is Nothing Then
              Cancel = True
              With Worksheets("feuil2")        'mettre le nom de la feuille
                  'recherche
                  Nb = Application.CountIf(.Range("I1:I4"), Target)
                  If Nb > 0 Then
                      lig = 1
                      lig = .Columns("I").Find(Target, .Cells(lig, "I"), , xlWhole).Row
                      UserForm1.Label1.Caption = .Cells(lig, "J")
                      UserForm1.Show
                  Else
                      MsgBox "Desole, n'exite pas dans table !!!!!"
                  End If
              End With
          End If
      End Sub
      
    2. @f894009Bonjour
      un grand merci a vous et merci encore pour votre aide précieuse

      Merci
  2. Re,

    Faudrait avoir un peu de patience!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    Regardez sur votre demande precedente