lancer userform quand clique cellule

[stéphanie]

Bonjour,

Je souhaite savoir comment lancer un userform lorsque l'utilisateur clique sur une cellule,
par ex: A1 --> userform1
B2 --> userform2
C7--->userformX

J'ai lu le message similaire dans le forum, mais le code ne marche pas...

merci

 

[sylsyl]

Salut stephanie,

essai avec ca :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Select Case Target.Address
Case "$A$1"
UserForm1.Show
Case "$A$2"
UserForm2.Show
End Select
End Sub

dans le code de "ThisWorkbook", c'est bien sur a adapter a ton cas...

A++, Sylsyl.

 

[stéphanie]

Je dois coller cette formule dans this workbook, mais sa marche pas...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Select Case Target.Address
Case "$b$1"
A_Choix_asp_env.Show
Case "$b$2"
suppr.Show
End Select
End Sub

Je dois modifier qqch???

 

[MG]

Salut Stéphanie

un petit fichier en exemple avec les 3 procédures donner par @+Thierry sur le forum

MG

 

[stéphanie]

Sa marche!!!!

tu es un GENI!!!

merci

j'avais une autre question un peu plus haut dans le forum sur une formule qui s'efface... tu peux y jeter un coup d'oeuil?

merci

 

[sylsyl]

Re,
content pour toi Stephanie.

Par contre je ne comprend pas pourquoi ca marche pas car j'ai fait un test avant de te repondre et ca fonctionnait tres bien...

A++, Sylsyl.