Dblclic sur cellule userform s'ouvre

mohidou71 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
mohidou71 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -
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

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

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

Regardez sur votre demande precedente
0
mohidou71 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
mohidou71 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
un grand merci a vous et merci encore pour votre aide précieuse

Merci
0