lancer userform quand clique cellule

S

sylsyl

Guest

• 24 Octobre 2003

• #2

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.

 

Vote positif 0 Vote négatif

S

stéphanie

Guest

• 24 Octobre 2003

• #3

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???

 

Vote positif 0 Vote négatif

M

MG

Guest

• 24 Octobre 2003

• #4

Salut Stéphanie

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

MG

 

Pièces jointes

• Planning_V3.zip

  14 KB · Affichages: 99
• Planning_V3.zip

  14 KB · Affichages: 108
• Planning_V3.zip

  14 KB · Affichages: 108

Vote positif 0 Vote négatif

S

stéphanie

Guest

• 24 Octobre 2003

• #5

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

 

Vote positif 0 Vote négatif

S

sylsyl

Guest

• 24 Octobre 2003

• #6

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.

 

Vote positif 0 Vote négatif