OVH Cloud OVH Cloud

Userform en cliquant sur une cellule et demomisange

1 réponse
Avatar
LeSurCitaire
Bonjour =E0 tous,

1)
J ai trouve dans ce sujet
http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/6=
a7cbde6622a2e3b/3c4c67ee829523d7?q=3Dactiver+un+userform+en+cliquant+sur+un=
e+cellule&rnum=3D2&hl=3Dfr#3c4c67ee829523d7"
ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target =3D [$A$3] Then Inscription.Show
End Sub
Mais j'aimerai avoir une plage plutot qu'une seule cellule
est ce possible et si oui comment

2)
J'ai trouv=E9 sur l'excelent site http://www.excelabo.net
un classeur nomm=E9 demomisange qui me convient pas tout a fait car
j'aimerai que ce code se mette =E0 jour( les references de cellule)
cahque fois que je clic sur la cellule. C'est a dire que si je clic sur
A3 alors ce code se met a jpur avec A3, B3...M3 et quand je clic sur
A20 par exemple alors mise a jour du code avec A20, B20...M20
Private Sub CmdValider_Click()
Sheets("Inscription").Select
Range("A3") =3D Section.Value
Range("B3") =3D EtlNom.Value
Range("C3") =3D EtLPrenom.Value
Range("D3") =3D Format(EtLDate.Value, "mm/dd/yyyy")
Range("E3") =3D RdNom.Value
Range("F3") =3D RdPrenom.Value
Range("G3") =3D Format(RdDate.Value, "mm/dd/yyyy")
Range("H3") =3D PmNom.Value
Range("I3") =3D PmPrenom.Value
Range("J3") =3D Format(PmDate.Value, "mm/dd/yyyy")
Range("K3") =3D HaNom.Value
Range("L3") =3D HaPrenom.Value
Range("M3") =3D Format(HaDate.Value, "mm/dd/yyyy")

ActiveWindow.WindowState =3D xlNormal

Unload Inscription
'unload d=E9charge le userform. Au prochain appel, il sera
'r=E9initialis=E9, en passant par userform_initialize()...
'ceci permet de prendre en compte les modif apport=E9es lors de la
saisie

End Sub





d

1 réponse

Avatar
LeSurcitaire
Bonjour à tous,

1)
J ai trouve dans ce sujet
http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/6a7cbde6622a2e3b/3c4c67ee829
523d7?q¬tiver+un+userform+en+cliquant+sur+une+cellule&rnum=2&hl=fr#3c4c67ee829523d7"

ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = [$A$3] Then Inscription.Show
End Sub
Mais j'aimerai avoir une plage plutot qu'une seule cellule
est ce possible et si oui comment


J'ai trouve tout seul comme un grand ( non un petit encore :-?)

Private Sub Worksheet_SelectionChange(ByVal Saisie As Range)
If Intersect(Saisie, [B3:M53]) Is Nothing Then Inscription.Show
End Sub

Mais je vous rassure je n'ai pas encore trouve pour ma deuxieme
question :'( , et je veux bien une piste

--
LeSurcitaire