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 :

code alerte avec marge d'erreur d'un nombre [Toutes versions]


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Homme Profil pro
    jeanlucmartin
    Inscrit en
    Avril 2009
    Messages
    101
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Creuse (Limousin)

    Informations professionnelles :
    Activité : jeanlucmartin

    Informations forums :
    Inscription : Avril 2009
    Messages : 101
    Points : 53
    Points
    53
    Par défaut code alerte avec marge d'erreur d'un nombre
    Bonjour le forum

    Je cherche un code qui par rapport à un résultat donné ex : 100 (afficher dans unTextbox)

    me calculerait une marge d'erreur de + ou - 5% et au delà de cette marge me créerait une alerte

    code à intégrer dans mon userform

    merci de votre aide

  2. #2
    Membre expérimenté Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 34
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Points : 1 512
    Points
    1 512
    Par défaut
    bonjour croky23 le forum comme cela sans plus d'infos pas simple j ai fait quand meme un exemple a adapter
    on peut utiliser aussi CBDL a la place de VAL
    exemple 4 textbox dans textbox4 valeur 100
    textbox3=textbox1+textbox2
    je rentre des valeurs dans les 2 premiers textboxs

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub TextBox1_AfterUpdate()
    TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub TextBox2_AfterUpdate()
    TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub TextBox3_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
    If Val(TextBox3.Value) > Val(TextBox4.Value) / 100 * 105 Then MsgBox "aa"
    If Val(TextBox3.Value) < Val(TextBox4.Value) / 100 * 95 Then MsgBox "bb"
    End If
    End Sub

  3. #3
    Membre du Club
    Homme Profil pro
    jeanlucmartin
    Inscrit en
    Avril 2009
    Messages
    101
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Creuse (Limousin)

    Informations professionnelles :
    Activité : jeanlucmartin

    Informations forums :
    Inscription : Avril 2009
    Messages : 101
    Points : 53
    Points
    53
    Par défaut
    merci beaucoup c'est exactement ce que je voulais

    bonne journée

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

Discussions similaires

  1. Comparaison de listes avec marge d'erreurs
    Par Tlams dans le forum Général Python
    Réponses: 2
    Dernier message: 03/08/2013, 13h25
  2. quel code écrire en cas d'erreur avec "worksheetfunction.vlookup"
    Par lerouxjm dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 19/12/2007, 18h38
  3. Réponses: 1
    Dernier message: 23/07/2007, 14h45
  4. comparer 2 tableau de int avec marge d erreur
    Par jerome86600 dans le forum Algorithmes et structures de données
    Réponses: 8
    Dernier message: 17/07/2006, 15h31
  5. comparer 2 tableau de int avec marge d erreur
    Par jerome86600 dans le forum Visual C++
    Réponses: 0
    Dernier message: 14/07/2006, 14h02

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