Userform en cliquant sur une cellule et demomisange
1 réponse
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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