Dblclic sur cellule userform s'ouvre
mohidou71
Messages postés
14
Statut
Membre
-
mohidou71 Messages postés 14 Statut Membre -
mohidou71 Messages postés 14 Statut Membre -
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
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
A voir également:
- Dblclic sur cellule userform s'ouvre
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Comment ouvrir un fichier epub sur pc - Guide
- Excel cellule choix multiple - Guide
2 réponses
Re,
Faudrait avoir un peu de patience!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Regardez sur votre demande precedente
Faudrait avoir un peu de patience!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Regardez sur votre demande precedente
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
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
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
