comment transformer un champs texte en case à cocher

**olivier777** · 22/01/2009, 14h45

Bonjour à tous

Je suis en train de réaliser un formulaire qui regroupe des pièces avec une périodicité d'entretien. Ces périodicitées sont représentées par un signe "+" et sont en zone texte. Je souhaiterai remplacer ces "+" par des cases à cocher.
Si le "+" est présent, la case est cochée, sinon la case est décochée.

Merci pour votre réponse

Olivier

**vlksoft** · 22/01/2009, 15h02

Bonjour monsieur,

voici la manoeuvre que vous pouvez faire.

mettez une case à coher sur le formulaire et mettez le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 if me.CaseACocher= vbchecked then
texte1.text="+"
else
texte1.text=""
end if

Où:
CaseACocher=Nom de la case à cocher
texte1=Nom de la zone de texte devant avoir le signe +
bye

**olivier777** · 22/01/2009, 17h44

merci pour la réponse mais j'ai oublié de préciser que le formulaire contient des enregistrements provenant d'un fichier excel qui a été importé.

D'autre part, le code que vous me citez, je dois le mettre dans la procédure évenementielle "Après MAJ" ?

Merci pour votre réponse

Olivier

**olivier777** · 22/01/2009, 19h54

Bonsoir,

Je veux cocher la case en fonction de la valeur d'un champ. J'ai fait le code suivant sur "après MAJ", mais cela ne marche pas. Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Cocher117_AfterUpdate()
 If Me.IE1 = "+" Then
 Me.Cocher117.Visible = True
End If

**vlksoft** · 23/01/2009, 08h42

Par votre réponse, je cois voir que c'est vous voulez agir sur l'affichage ou non d'un contrôle. Cependant de la manière dont votre problème est exposé, il s'agit bien de la propriété text où il faut agir. Alors, si tel est votre problème, recopiez ma procédure sur l'évenement click et prenez les noms des controles , réactualisez les et dites quoi.

bye