Ouverture userform par cellule

[MASSJIPE]

Bonjour à tous
Je voudrai ouvrir mon userform (Qualité) avec la cellule K1 par clic
j'ai trouvé un code mais ca fonctionne pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$k$1" Then Qualité.Show
End Sub
Merci

 

[Compte Supprimé 979]

Re : Ouverture userform par cellule

Bonjour Massjipe,

Tu ne peux le faire que par un clique droit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Address = "$K$1" Then
    Cancel = True
    Qualité.Show
  End If
End Sub

ou un double clique dans la cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Address = "$K$1" Then
    Cancel = True
    Qualité.Show
  End If
End Sub

Un seul clique, ça n'existe pas en VBA (dommage ... je sais ...)

Meilleurs voeux pour cette nouvelle année

 

[MASSJIPE]

Re : Ouverture userform par cellule

Bnojour Bruno
Je prend les deux
Merci et bonne année

 

[MASSJIPE]

Re : Ouverture userform par cellule

et dans une cellule quelconque par clic droit

 

[Compte Supprimé 979]

Re : Ouverture userform par cellule

Re,

Il suffit d'enlever le test :

[B]If Target.Address = "$K$1" Then

et

"End If"

[/B]

A+

 

[MASSJIPE]

Re : Ouverture userform par cellule

Encore merci

 

[pierrejean]

Re : Ouverture userform par cellule

bonjour MASSJIPE

Salut Bruno

Il me semble qu'avec un K majuscule le premier essai de MASSJIPE devrait fonctionner

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$K$1" Then
  UserForm1.Show
End If
End Sub

en supposant bien sur que la selection change !!

 

[MASSJIPE]

Re : Ouverture userform par cellule

Bonjour Pierre Jean
Oui c'est vrai ça fonctionne avec le K sans faire un double clic
Merci à tout deux

 

[Compte Supprimé 979]

Re : Ouverture userform par cellule

Re,

Mon cher Pierre bien le bonjour ainsi qu'à Dany 😉

J'ai juste pris la demande au pied de la lettre

Je voudrai ouvrir mon userform (Qualité) avec la cellule K1 par clic

Donc en se déplaçant avec les flèches du clavier, ça fonctionne également, mais pour moi ça ne répond plus à la demande 😀

Oui, je sais, je suis tatillon .... pauvre Fanny 😛😉😀