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 :

que des entiers [XL-2013]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut que des entiers
    bonjour
    j'ai plein de formules de ce type comment je peux avoir que des entiers dans le résultat svp
    ou es qui es possible par apport un tableau 20 colonnes 200 lignes de modifier les résultats ,en entier
    encore une question es qui y a différent entier ,je pense inférieur ou supérieur

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    For i = 10 To 18
     Range("J40").Offset(0, i - 10).Value = (Cells(39, i) + Cells(20, 10)) / Cells(56, i)
    Next i
    je viens essayer int mais je n'ai pas le resultat escompter pouvez vous m'aider le 1 mai ?
    merci
    et bon 1 mai à tous
    cordialement

  2. #2
    Membre émérite
    Homme Profil pro
    Programmeur analyste
    Inscrit en
    Février 2009
    Messages
    546
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Canada

    Informations professionnelles :
    Activité : Programmeur analyste
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 546
    Par défaut
    Bonjour,
    avec Round

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    For i = 10 To 18
     Range("J40").Offset(0, i - 10).Value =Round( (Cells(39, i) + Cells(20, 10)) / Cells(56, i),0)
    Next i

  3. #3
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut
    Citation Envoyé par gnain Voir le message
    Bonjour,
    avec Round

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    For i = 10 To 18
     Range("J40").Offset(0, i - 10).Value =Round( (Cells(39, i) + Cells(20, 10)) / Cells(56, i),0)
    Next i
    merci mais toujours des virgules ? ihihihhi bizard

  4. #4
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    relie le dernier message de joe .. tu as encore un problème de parenthèses..

  5. #5
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut
    Citation Envoyé par bbil Voir le message
    relie le dernier message de joe .. tu as encore un problème de parenthèses..
    j'ai mis ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Int (Cells(39, i) + Cells(20, 10) / Cells(56, i))
    je remercie tout le monde

  6. #6
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Bonjour,

    Citation Envoyé par pilounet54 Voir le message
    ...
    je viens essayer int mais je n'ai pas le resultat escompter pouvez vous m'aider le 1 mai ?
    ..
    Cela semble bien la solution , comment l'utilise tu ? et pourquoi donc le résultat ne te conviens pas ?

  7. #7
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut
    Citation Envoyé par bbil Voir le message
    Bonjour,



    Cela semble bien la solution , comment l'utilise tu ? et pourquoi donc le résultat ne te conviens pas ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    For i = 10 To 18
     Range("J40").Offset(0, i - 10).Value = int (Cells(39, i) + Cells(20, 10)) / Cells(56, i)
    Next i
    voila comment je l'ai mis
    je pensais en le mettant comme cela cela allais convenir et le même resultat 1.12

  8. #8
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    si on décompose ta ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    int (Cells(39, i) + Cells(20, 10)) / Cells(56, i)
    tu prend la valeur entière d'une partie :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    int (Cells(39, i) + Cells(20, 10))
    et ensuite tu le divises par Cells(56,i) ... donc si cette valeur n'est pas un diviseur entier de la partie juste au dessus .... ton résultat n'est pas un entier


    si tu veux tronquer le résultat (sans faire d'arrondi) pour avoir un résultat entier, c'est tout le calcul qu'il faut mettre dans ton Int()

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Int (Cells(39, i) + Cells(20, 10) / Cells(56, i))

  9. #9
    Membre très actif Avatar de pilounet54
    Homme Profil pro
    retraité
    Inscrit en
    Février 2008
    Messages
    489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 489
    Par défaut
    Citation Envoyé par joe.levrai Voir le message
    Bonjour,

    si on décompose ta ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    int (Cells(39, i) + Cells(20, 10)) / Cells(56, i)
    tu prend la valeur entière d'une partie :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    int (Cells(39, i) + Cells(20, 10))
    et ensuite tu le divises par Cells(56,i) ... donc si cette valeur n'est pas un diviseur entier de la partie juste au dessus .... ton résultat n'est pas un entier


    si tu veux tronquer le résultat (sans faire d'arrondi) pour avoir un résultat entier, c'est tout le calcul qu'il faut mettre dans ton Int()

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Int (Cells(39, i) + Cells(20, 10) / Cells(56, i))
    merci cela me convient parfaitement merci bonne journée

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

Discussions similaires

  1. Forcer un textbox à accepter que des entier
    Par loubna_drime dans le forum Services Web
    Réponses: 1
    Dernier message: 09/05/2009, 23h58
  2. Accepter que des entiers dans une textbox
    Par jffaber dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 30/05/2008, 12h11
  3. Réponses: 4
    Dernier message: 25/09/2007, 12h59
  4. Introduire que des entiers
    Par touf213 dans le forum C++Builder
    Réponses: 1
    Dernier message: 04/07/2007, 19h35
  5. Réponses: 1
    Dernier message: 18/04/2007, 13h39

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