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 :

Appeler formule si dans une Macro


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Analyse système
    Inscrit en
    Novembre 2019
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Analyse système

    Informations forums :
    Inscription : Novembre 2019
    Messages : 9
    Par défaut Appeler formule si dans une Macro
    Bonjour à tous,
    Voici mon problème :
    J'aimerai appeler une formule si dans une macro. Je ne sais pas directement l'écrire car elle est assez complexe comme vous pouvez le voir ci-dessous:

    Code formule : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    =SI(CX2="";"";SI(CX2<=24,99;"[0-25]";
    SI(ET(CX2>=25;CX2<50);"[25-50]";
    SI(ET(CX2>=50;CX2<100);"[50-100]";
    SI(ET(CX2>=100;CX2<300);"[100-300]";
    SI(ET(CX2>=300;CX2<500);"[300-500]";
    SI(CX2>=500;"[500 et +]";"N/A")))))))

    Ici, la colonne CX se réfère à la colonne Quantité.
    J'aimerai créer une macro qui remplisse automatiquement la colonne suivante avec le résultat de la formule si.
    Je sais utiliser la syntaxe FOR et Next pour que la formule s'applique sur toutes les lignes mais je ne sais pas écrire la macro de base pour appeler la formule.

    Si quelqu'un peut m'aider ce serait avec plaisir

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Au lieu d'utiliser des fonctions SI(), utilise une structure Select Case, ce sera plus propre et plus simple.
    Lire ceci : https://docs.microsoft.com/fr-fr/off...case-statement

  3. #3
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 175
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 175
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    A titre indicatif, il est plus simple de remplacer efficacement tous les SI et les ET imbriqués dans la formule que tu as affichée par la fonction RECHERCHEV

    Il suffit de créer un tableau (pour l'exemple il est nommé T_Groupement) dans une feuille où tu places les paramètres comme le montre l'illustration.

    Nom : 200117 dvp Table Groupement.png
Affichages : 206
Taille : 6,9 Ko

    Et ensuite la formule ci-dessous renverra la valeur correspondante au regroupement de la valeur entrée en A2
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SI(A2;RECHERCHEV(A2;T_Groupement;2;VRAI);"")
    et en VBA, tu pourrais écrire la formule en une ligne

    Cette méthode est plus perenne et facilite la maintenance. En effet il suffit de modifier les valeurs dans le tableau pour voir les valeurs renvoyées par la fonction RECHERCHEV automatiquement modifiées

    A lire ce billet sur le sujet Comment remplacer des SI imbriqués par la fonction RECHERCHEV
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  4. #4
    Membre habitué
    Homme Profil pro
    Analyse système
    Inscrit en
    Novembre 2019
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Analyse système

    Informations forums :
    Inscription : Novembre 2019
    Messages : 9
    Par défaut
    Bonjour à vous deux,

    Merci beaucoup tout marche parfaitement.
    Je ne connaissais pas cette façon de remplacer les si avec une recherchev. Toujours un plaisir d'apprendre.

    Bonne journée et bon week-end

Discussions similaires

  1. [XL-2016] Modifier formule matriciel dans une macro VBA
    Par poytim dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 26/10/2018, 15h37
  2. Formule ESTVIDE dans une macro
    Par laurent1313 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 06/10/2016, 13h31
  3. [XL-2010] Formule Vlookup dans une macro
    Par Oorreelly dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 15/08/2012, 16h05
  4. [XL-2003] Formule excel dans une macro
    Par gangstarrr dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 15/03/2011, 16h41
  5. [XL-2003] problème formule #NOM? dans une macro
    Par VBA je te hais dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 02/09/2009, 15h43

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