OVH Cloud OVH Cloud

Une coche verte

2 réponses
Avatar
Philippe
Bonjour à tous,
Dans un formulaire en mode continue je posséde un champ "B" lorsque je
clique sur celui-ci je voudrai que la lettre "a" en police Marlett s'incrive
ou si celle-ci y est déja qu'elle s'éfface.

Vous pouvez m'aider sur la composition du code VBA ?
Sur clique ou et sur le passage avec les fléche haut et bas du clavier.
Merci d'avance.

Le code dans Excel à traduire dans Access 2003.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A5:A21")) Is Nothing Then
Target.Font.Name = "marlett"
If Target = vbNullString Then
Target = "a"
Else
Target = vbNullString
End If
End If
End Sub

2 réponses

Avatar
3stone
Salut,

"Philippe"
| Dans un formulaire en mode continue je posséde un champ "B" lorsque je
| clique sur celui-ci je voudrai que la lettre "a" en police Marlett s'incrive
| ou si celle-ci y est déja qu'elle s'éfface.
|
| Vous pouvez m'aider sur la composition du code VBA ?
| Sur clique ou et sur le passage avec les fléche haut et bas du clavier.
| Merci d'avance.
|
| Le code dans Excel à traduire dans Access 2003.

sans intérêt ;-)


Dans l'objet tu parle d'une "coche verte" et dans le message d'un "A" ?

Si ta zone de texte se nomme "txtZdT" tu mest dans l'évenement "Sur entrée"

txtZdT = IIf(IsNull(txtZdT), "A", Null)

La couleur et Fonte se fixe dans les propiétés, onglet Format de la zone de texte.


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Avatar
Philippe
Oui une coche verte, car avec la police "Marlett" un "a" devient une coche.
Tu as une solution ?
Merci d'avance


Salut,

"Philippe"
| Dans un formulaire en mode continue je posséde un champ "B" lorsque je
| clique sur celui-ci je voudrai que la lettre "a" en police Marlett s'incrive
| ou si celle-ci y est déja qu'elle s'éfface.
|
| Vous pouvez m'aider sur la composition du code VBA ?
| Sur clique ou et sur le passage avec les fléche haut et bas du clavier.
| Merci d'avance.
|
| Le code dans Excel à traduire dans Access 2003.

sans intérêt ;-)


Dans l'objet tu parle d'une "coche verte" et dans le message d'un "A" ?

Si ta zone de texte se nomme "txtZdT" tu mest dans l'évenement "Sur entrée"

txtZdT = IIf(IsNull(txtZdT), "A", Null)

La couleur et Fonte se fixe dans les propiétés, onglet Format de la zone de texte.


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/