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 :

Existe-t-il un If..Else abrégé ? [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti Avatar de Kentarosan
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2017
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Mai 2017
    Messages : 37
    Par défaut Existe-t-il un If..Else abrégé ?
    Bien le bonjour!

    En tapant du code ce matin, je me suis demandé s'il y avait moyen d'écrire une condition if...else de manière abrégée?
    J'ai déjà vu ça de loin dans d'autres langages comme Java, mais je ne me souviens pas du nom que ça porte ni de la syntaxe exacte...

    En gros, je voudrais transformer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If condition1 = True Then
        variable1 = variable2 * 2
    Else
        variable1 = 0
    End If
    En quelque chose comme
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    variable1 = (condition1?variable2 * 2; 0)
    Encore une fois, j'avais vu qu'il existait quelque chose du genre, mais que de loin, donc mon exemple est peut-être totalement faux..

    Merci par avance de vos suggestions!

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 682
    Par défaut
    Salut,

    oui, c'est la fonction IIf()

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    variable1 = IIf(condition1,variable2 * 2, 0)
    Attention, les deux parties true et false sont calculees avant attribution, donc pas de possibilite de faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    i=0
    '...
    a= iif(i=0,1,1/i)
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Migrer les applications VBA Access et VBA Excel vers la Power Platform
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re
    des solution il y a
    pour une condition simple if machin=truc then ... else chose=machin le double iif fait tres bien l'affaire
    maintenant si tu a un if...elseif....elseif...elseif...end if c'est a dire plusieurs conditions
    tu a deux fonctions bien pratiques dont une que j'utilise tres souvent
    c'est "switch" ou "choose"
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    A=25
    titi=switch(A=25,10,A=33,48,A=56,36)' et tu peux mettre autant de condition que tu veux
    msgbox titi
    titi=switch(condtition1 , resultat1 , condtition2, resultat2, condtition3 , resultat3 , condtition4 , resultat4)
    et c'est pareil pour choose
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  4. #4
    Membre averti Avatar de Kentarosan
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2017
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Mai 2017
    Messages : 37
    Par défaut
    Parfait, merci beaucoup pour vos solutions!

    IIf convient parfaitement pour ce que j'ai à faire là tout de suite, mais switch et choose me seront en effet très utiles dans le futur. Je connaissais Select Case mais comme If..ElseIf, ça prend beaucoup de lignes pour pas forcément grand chose.

    Merci encore, à plus!

  5. #5
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 682
    Par défaut
    Attention, ca prend des lignes, mais fondamentalement ca sera plus rapide a l'execution egalement
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Migrer les applications VBA Access et VBA Excel vers la Power Platform
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  6. #6
    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 168
    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 168
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Comme Jean-Philippe que je salue, j'aurais eu tendance à te proposer la fonction IIf.
    Cependant dans ton cas précis, cette solution est également possible
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    variable1 = variable2 * (Abs(condition1) * 2)
    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

  7. #7
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re
    bien vu Philippe

    j'ajouterais quand meme a propos du switch c'est que l'on peut s'en sevir comme double ou triple etc... "iif"

    en effet rien ne t'empêche de mettre des conditions 1,2,3,4 etc... qui n'ont rien avoir l'une de l'autre en les plaçant intelligemment par ordre de priorité
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

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

Discussions similaires

  1. [Batch] Je comprends pas.. If exist Else
    Par giganrv dans le forum Scripts/Batch
    Réponses: 3
    Dernier message: 17/02/2014, 10h58
  2. "condition d'existence" d'une référence ? (if, else et macro ?)
    Par sarmin dans le forum Programmation (La)TeX avancée
    Réponses: 1
    Dernier message: 10/05/2010, 21h39
  3. existe t-il un else du elsif en Perl?
    Par lobiman dans le forum Langage
    Réponses: 19
    Dernier message: 15/12/2006, 02h59
  4. Existe t'il un composant permettant de jouer un son wav?
    Par scorpiwolf dans le forum C++Builder
    Réponses: 5
    Dernier message: 20/06/2002, 14h10
  5. Existe-t-il un langage de prog "virtuel" en Français
    Par HRS dans le forum Langages de programmation
    Réponses: 4
    Dernier message: 10/06/2002, 18h11

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