IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Faire la somme automatique dans un formulaire


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Août 2010
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : Août 2010
    Messages : 33
    Par défaut Faire la somme automatique dans un formulaire
    Salut tout le monde
    Je suis débutant en VBA Excel , mais j'essaie de me débrouiller un peu.
    Après un grand effort, j'ai pu créer un formulaire où j'ai mis des zones de texte dans les quelles je veux mettre des montants.
    Mais malheureusement, Je tente désespérément de faire apparaitre dans ce formulaire la somme automatique de ces montants. (comme la fonction somme dans Excel)
    J'espère trouver de l'aide
    je vous remercie infiniment

  2. #2
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Juillet 2009
    Messages
    1 794
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 86
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 1 794
    Par défaut
    Bonjour,

    Voyez dans ces cours sur les UserForm si vous ne trouvez pas une aide pour résoudre votre problème.
    http://excel.developpez.com/cours/?page=prog#userform

  3. #3
    Membre averti
    Inscrit en
    Août 2010
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : Août 2010
    Messages : 33
    Par défaut
    Salut rjamin
    Je vous remercie pour ta réponse, mais je n'ai pas trouvé ce que je veux.
    je voudrais faire apparaitre dans le formulaire une zone de texte dans laquelle sera afficher la somme des autres zones de textes.
    Et merci encore

  4. #4
    Membre confirmé
    Homme Profil pro
    ELECTROTECHNICIEN
    Inscrit en
    Mars 2010
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ELECTROTECHNICIEN
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2010
    Messages : 61
    Par défaut
    Salut josef-68,

    Il faut que tu trouves la condition qui va déclencher la formule.

    Si tu remplis Textbox1 et Textbox2 pour avoir une somme dans Textbox3.
    A chaque changement de textbox1 ou textbox2 tu demandes à faire le calcul

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub TextBox1_Change()
    TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
    End Sub
     
    Private Sub TextBox2_Change()
    TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
    End Sub
    Amuses toi bien avec le VBA !
    Bonne soirée

  5. #5
    Membre averti
    Inscrit en
    Août 2010
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : Août 2010
    Messages : 33
    Par défaut
    Cher chyanon
    mille merci de vouloir m'aider; mais veux-tu me dire où je dois mettre ce code s.v.p (Je l'ai mis dans un module mais ça na rien donner)
    N.B: J'ai 40 montants dans des zones de texte à additionner.
    merci à vous

  6. #6
    Membre confirmé
    Homme Profil pro
    ELECTROTECHNICIEN
    Inscrit en
    Mars 2010
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ELECTROTECHNICIEN
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2010
    Messages : 61
    Par défaut
    Pour faire un essai, tu peux créer un userform avec 3 textbox (1,2 et 3)
    (Insertion=>Userform)

    Tu double-cliques sur le userform et tu colle le code.
    Chaque fois que tu taperas un chiffre dans la textbox 1 ou 2 la somme se fera dans la textbox 3

    Petit exemple à décortiquer
    http://www.developpez.net/forums/att...1&d=1287523161

  7. #7
    Invité de passage
    Femme Profil pro
    Assistante de projets
    Inscrit en
    Août 2018
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Manche (Basse Normandie)

    Informations professionnelles :
    Activité : Assistante de projets

    Informations forums :
    Inscription : Août 2018
    Messages : 1
    Par défaut Je déterre le sujet ....
    Bonjour,

    Je me suis permise de prendre ton code, car il semble bien correspondre à mon besoin.
    Je souhaite que dans mon formulaire, dans un "textbox", il y ait la somme d'autres textbox.
    Le problème est que lorsque j’exécute la macro il y a l'erreur 13 "incompatibilité de type" qui apparait.
    Pourrais-tu m'éclairer ? Savoir ce qui pourrait bloquer ?
    Faudrait il changer le format de mes "textbox" ? Comment ?

    Merci à toi pour ta lumière !

    Bonne journée

    1. Private Sub ctrl17_Change() ctrl37.Value = Val(ctrl23.Value) + Val(ctrl10.Value) + Val(ctrl17.Value) + (ctrl20.Value) + Val(ctrl29.Value) End Sub


    Citation Envoyé par chyanon Voir le message
    Salut josef-68,

    Il faut que tu trouves la condition qui va déclencher la formule.

    Si tu remplis Textbox1 et Textbox2 pour avoir une somme dans Textbox3.
    A chaque changement de textbox1 ou textbox2 tu demandes à faire le calcul

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub TextBox1_Change()
    TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
    End Sub
     
    Private Sub TextBox2_Change()
    TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
    End Sub
    Amuses toi bien avec le VBA !
    Bonne soirée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 25/10/2006, 18h06
  2. calculs automatiques dans un formulaire dynamique
    Par renaud26 dans le forum Général JavaScript
    Réponses: 34
    Dernier message: 13/07/2006, 18h13
  3. Réponses: 7
    Dernier message: 11/07/2006, 17h34
  4. Affichage automatique dans un formulaire
    Par Caroclic dans le forum Access
    Réponses: 1
    Dernier message: 19/09/2005, 16h35
  5. [VB6] Ne pas faire de retour automatique dans un RichTextBox
    Par Arthaniel dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 20/01/2005, 03h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo