Discussion :

[thierrybatlle]

Bonsoir,
j'ai dans un formulaire des zones de texte je souhaite de façon automatique, c'est à dire à chaque fois que je saisie une valeur, qu'un champ de texte total (par exemple) se mette à jour automatiquement.
Ce sont des zones texte indépendant

Que dois faire ?
zone_texte_total = zone_texte1 + zone_texte2
ou
zone_texte_total.value = zone_texte1.value + zone_texte2.value
ou
zone_texte_total.text = zone_texte1.text + zone_texte2.text

Merci pour toutes vos réponses

[Faw]

Bonjour,
La 1 et la 2 c'est la même chose.
Après ça doit dépendre des événements.

Sur l'événement Change des zone de texte j'utiliserais .Text
C'est surtout le .Text de la zone ou tu es en train de saisir qui compte
ici. En effet à ce moment, l'autre zone est Mise à jour et donc son
.Text est égal à son .Value (cf l'aide sur text).

Sur Après Màj, plutôt .Value...
Utilise aussi Nz

Code :

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

zone_texte_total = Nz(zone_texte1.text, 0) + Nz(zone_texte2.text, 0)

Bon courage.

[thierrybatlle]

Bonjour,

Je fais exactement ce que tu m'as dit mais maintenant il m'indique comme erreur :
Erreur d'exécution '2185':
impossible de faire référence à une propriété ou de la définir pour un controle si ce dernier n'est pas activé.

Merci

[Faw]

Salut, effectivement il va falloir jouer avec les focus. Sur événement
Change ça donnerait ceci

Code :

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

1
2
3
4
5
6
Private Sub zone_texte1_Change()
Me.ZoneTotal.SetFocus
Me.ZoneTotal = Nz(Me.zone_texte1, 0) + Nz(Me.zone_texte2, 0)
Me.zone_texte1.SetFocus
Me.zone_texte1.SelStart = Me.zone_texte1.SelLength + 1
End Sub

à refaire pour zone_texte2_Change.

Il y a peut-être + simple à faire.