Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3)
Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1 et 2
et que la réponse s'affiche dans le text box 3.
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
Geo
Bonjour
[ Ce message a été déposé sur le groupe de discussion public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour
Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3) Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1 et 2 et que la réponse s'affiche dans le text box 3.
Merci de votre aide
C'est un formulaire ? Dans ce cas je ne suis pas trop certain, mais vous devriez pouvoir faire qqch. comme : textbox3.value = val(textbox1.value) + val(textbox2.value)
reste à savoir où mettre ce code, et pour un formulaire je ne sais pas.
Le problème de ce forum est qu'il est dans le couloir des condamnés à mort et on se sait pas quand aura lieu son exécution. Il y a donc peu de personnes qui le fréquentent encore.
-- A+
Bonjour
[ Ce message a été déposé sur le groupe de discussion public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Bonjour
Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3)
Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1 et 2
et que la réponse s'affiche dans le text box 3.
Merci de votre aide
C'est un formulaire ?
Dans ce cas je ne suis pas trop certain, mais vous devriez pouvoir
faire qqch. comme :
textbox3.value = val(textbox1.value) + val(textbox2.value)
reste à savoir où mettre ce code, et pour un formulaire je ne sais pas.
Le problème de ce forum est qu'il est dans le couloir des condamnés à
mort et on se sait pas quand aura lieu son exécution.
Il y a donc peu de personnes qui le fréquentent encore.
[ Ce message a été déposé sur le groupe de discussion public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour
Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3) Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1 et 2 et que la réponse s'affiche dans le text box 3.
Merci de votre aide
C'est un formulaire ? Dans ce cas je ne suis pas trop certain, mais vous devriez pouvoir faire qqch. comme : textbox3.value = val(textbox1.value) + val(textbox2.value)
reste à savoir où mettre ce code, et pour un formulaire je ne sais pas.
Le problème de ce forum est qu'il est dans le couloir des condamnés à mort et on se sait pas quand aura lieu son exécution. Il y a donc peu de personnes qui le fréquentent encore.
-- A+
Modeste
Bonsour® "GeoF37" a écrit
Le problème de ce forum est qu'il est dans le couloir des condamnés à mort et on se sait pas quand aura lieu son exécution. Il y a donc peu de personnes qui le fréquentent encore.
oui mais du beau monde quand même ... ;o)))
Bonsour® "GeoF37" a écrit
Le problème de ce forum est qu'il est dans le couloir des condamnés à mort
et on se sait pas quand aura lieu son exécution.
Il y a donc peu de personnes qui le fréquentent encore.
Le problème de ce forum est qu'il est dans le couloir des condamnés à mort et on se sait pas quand aura lieu son exécution. Il y a donc peu de personnes qui le fréquentent encore.
Textbox2 et Textbox3 reçoit la saisie des nombres à additionner
En mode création, lorsque tu double-cliques sur un des textbox, tu te retrouves directement dans le module où tu dois copier ceci :
'----------------------------------- Private Sub TextBox2_LostFocus() TextBox2 = Replace(TextBox2, ".", ",") MaSomme End Sub '----------------------------------- Private Sub TextBox3_LostFocus() TextBox3 = Replace(TextBox3, ".", ",") MaSomme End Sub '----------------------------------- Sub MaSomme() Dim X As Double, Sh As Variant On Error Resume Next For Each Sh In Array(Me.TextBox2, Me.TextBox3) If Not IsError(CDbl(Sh)) Then X = X + CDbl(Sh) Else Err.Clear End If Next Me.TextBox1 = X TextBox1 = Replace(TextBox1, ".", ",") End Sub '-----------------------------------
"Louis" a écrit dans le message de groupe de discussion :
Bonjour
Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3) Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1 et 2 et que la réponse s'affiche dans le text box 3.
Merci de votre aide
Bonjour Louis,
3 Contrôles émanant de la barre d'outils Contrôle
Textbox1 reçoit la somme
Textbox2 et Textbox3 reçoit la saisie des nombres à additionner
En mode création, lorsque tu double-cliques sur un des textbox,
tu te retrouves directement dans le module où tu dois copier ceci :
'-----------------------------------
Private Sub TextBox2_LostFocus()
TextBox2 = Replace(TextBox2, ".", ",")
MaSomme
End Sub
'-----------------------------------
Private Sub TextBox3_LostFocus()
TextBox3 = Replace(TextBox3, ".", ",")
MaSomme
End Sub
'-----------------------------------
Sub MaSomme()
Dim X As Double, Sh As Variant
On Error Resume Next
For Each Sh In Array(Me.TextBox2, Me.TextBox3)
If Not IsError(CDbl(Sh)) Then
X = X + CDbl(Sh)
Else
Err.Clear
End If
Next
Me.TextBox1 = X
TextBox1 = Replace(TextBox1, ".", ",")
End Sub
'-----------------------------------
"Louis" <Louis@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
2ADE3083-E164-4135-9335-C15D14C2B483@microsoft.com...
Bonjour
Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3)
Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1 et 2
et que la réponse s'affiche dans le text box 3.
Textbox2 et Textbox3 reçoit la saisie des nombres à additionner
En mode création, lorsque tu double-cliques sur un des textbox, tu te retrouves directement dans le module où tu dois copier ceci :
'----------------------------------- Private Sub TextBox2_LostFocus() TextBox2 = Replace(TextBox2, ".", ",") MaSomme End Sub '----------------------------------- Private Sub TextBox3_LostFocus() TextBox3 = Replace(TextBox3, ".", ",") MaSomme End Sub '----------------------------------- Sub MaSomme() Dim X As Double, Sh As Variant On Error Resume Next For Each Sh In Array(Me.TextBox2, Me.TextBox3) If Not IsError(CDbl(Sh)) Then X = X + CDbl(Sh) Else Err.Clear End If Next Me.TextBox1 = X TextBox1 = Replace(TextBox1, ".", ",") End Sub '-----------------------------------
"Louis" a écrit dans le message de groupe de discussion :
Bonjour
Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3) Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1 et 2 et que la réponse s'affiche dans le text box 3.
C'est toujours le même type de question piège. Formulaire Word, ActiveX ou UserForm ?? Les trois contiennent des champs texte mais avec des accès différents !
[ Ce message a été déposé sur le groupe de discussion public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour
Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3) Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1 et 2 et que la réponse s'affiche dans le text box 3. Merci de votre aide
C'est un formulaire ? Dans ce cas je ne suis pas trop certain, mais vous devriez pouvoir faire qqch. comme : textbox3.value = val(textbox1.value) + val(textbox2.value)
reste à savoir où mettre ce code, et pour un formulaire je ne sais pas.
Le problème de ce forum est qu'il est dans le couloir des condamnés à mort et on se sait pas quand aura lieu son exécution. Il y a donc peu de personnes qui le fréquentent encore.
C'est toujours le même type de question piège.
Formulaire Word, ActiveX ou UserForm ??
Les trois contiennent des champs texte mais avec des accès différents !
--
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.1bc37da63f84bdf9.41568@sans.pub...
Bonjour
[ Ce message a été déposé sur le groupe de discussion public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour
Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3)
Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1
et 2 et que la réponse s'affiche dans le text box 3.
Merci de votre aide
C'est un formulaire ?
Dans ce cas je ne suis pas trop certain, mais vous devriez pouvoir faire
qqch. comme :
textbox3.value = val(textbox1.value) + val(textbox2.value)
reste à savoir où mettre ce code, et pour un formulaire je ne sais pas.
Le problème de ce forum est qu'il est dans le couloir des condamnés à mort
et on se sait pas quand aura lieu son exécution.
Il y a donc peu de personnes qui le fréquentent encore.
C'est toujours le même type de question piège. Formulaire Word, ActiveX ou UserForm ?? Les trois contiennent des champs texte mais avec des accès différents !
[ Ce message a été déposé sur le groupe de discussion public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour
Dans mon documetn word j'ai 3 textbox (textbox1 textbox2 textbox 3) Est ce que quelqu'un a déja fait une macro qui additionne les textbox 1 et 2 et que la réponse s'affiche dans le text box 3. Merci de votre aide
C'est un formulaire ? Dans ce cas je ne suis pas trop certain, mais vous devriez pouvoir faire qqch. comme : textbox3.value = val(textbox1.value) + val(textbox2.value)
reste à savoir où mettre ce code, et pour un formulaire je ne sais pas.
Le problème de ce forum est qu'il est dans le couloir des condamnés à mort et on se sait pas quand aura lieu son exécution. Il y a donc peu de personnes qui le fréquentent encore.