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 :

Macro changer valeur d'une cellule contenant un calcul [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 32
    Par défaut Macro changer valeur d'une cellule contenant un calcul
    Bonjour,

    j'ai un souci pour changer la valeur d'une cellule.
    J'ai des macros qui calculent plusieurs données.

    Dans mon programme, il y a un calcul du nombre de client par organe (colonne AB).
    Je veux changer ses valeurs et attribuer la valeur 100 si le nombre de clients (colonne I) est superieur à 500 et le nombre de client par organe est inférieur à 100.

    Je pensais trouver une solution mais celle ci ne marche pas.
    Pouvez vous m'aider pour trouver une solution

    Merci

  2. #2
    Inactif  
    Homme Profil pro
    Inscrit en
    Septembre 2012
    Messages
    1 733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2012
    Messages : 1 733
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim i as long
    For i = 3 to Sheets("OMT").range("A3").end(xldown).row
    If Sheets("OMT").cells(i,9)>500 and Sheets("OMT").cells(i,28)<100 then
    Sheets("OMT").cells(i,28)=100
    end if
    next i
    Je m'étais trompé sur le nom du sheet..

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 32
    Par défaut
    Bonjour,
    lorsque j'insère ce code cela ne foctionne pas
    cdt

  4. #4
    Inactif  
    Homme Profil pro
    Inscrit en
    Septembre 2012
    Messages
    1 733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2012
    Messages : 1 733
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim i as long
    For i = 3 to Sheets("OMT").range("A3").end(xldown).row
    If cdbl(Sheets("OMT").cells(i,9))>500 and cdbl(Sheets("OMT").cells(i,28))<100 then
    Sheets("OMT").cells(i,28)=100
    end if
    next i
    Sinon mets dans ta colonne AB cette formule

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =si(et(I3>500;AB3<100);100;I3/Z3)

  5. #5
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 32
    Par défaut
    lorsque je calcule cette nouvelle valeur,j'ai un msg d'erreur référence circulaire.
    comment je peux résoudre ce problème?
    cdt

  6. #6
    Inactif  
    Homme Profil pro
    Inscrit en
    Septembre 2012
    Messages
    1 733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2012
    Messages : 1 733
    Par défaut
    En appliquant le calcul itératif, sur excel 2007
    http://office.microsoft.com/fr-be/ex...010054149.aspx

    Fichier / Le rond excel coin supérieur gauche / Options / Formules / Model de calcul / Cocher : Activer le calcul iteratif

    Nombre d'itérations 100
    Ecart max 0,001

  7. #7
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 32
    Par défaut
    très bien ça marche
    je vous remercie

  8. #8
    Inactif  
    Homme Profil pro
    Inscrit en
    Septembre 2012
    Messages
    1 733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2012
    Messages : 1 733
    Par défaut
    Que représentent ces données ? Un suivi GPS de livreurs ?

  9. #9
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 32
    Par défaut
    Oui c'est une suivi GPS.
    Cela fait 1 mois que travaille sur vba auparavant je ne programmais pas du tout.
    Je me suis focalisé sur le code et je n'ai pas pensé a changer la formule.
    Lorsque je suis bloqué je demmande à des personnes à côté de moi mais aujourd'hui je suis tout seul.

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

Discussions similaires

  1. [XL-2010] Calcul d'une cellule contenant un calcul : =10+45+89
    Par dolu007 dans le forum Excel
    Réponses: 6
    Dernier message: 05/03/2014, 17h21
  2. Adresse d'une cellule contenant la plus grande valeur
    Par ouskel'n'or dans le forum Excel
    Réponses: 8
    Dernier message: 30/11/2012, 18h45
  3. Réponses: 5
    Dernier message: 23/03/2011, 09h54
  4. lancer une macro en fonction de la valeur d'une cellule
    Par arkorrigan dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 11/06/2008, 18h18
  5. Charger Macro apres changement de valeur d'une cellule
    Par jackfred dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 04/07/2007, 15h51

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