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 :

If Else End If [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
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2010
    Messages : 21
    Par défaut If Else End If
    Bonjour tout le monde!

    Je fais appel à vous car j'ai quelques soucis avec le If Else End If... Je peine à trouver une solution, et je débute aujourd'hui ;-)

    Je souhaiterai faire un test et en fonction de ce test plusieurs opération :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    If Range("B" & counter).Value <> "" Then index = counter
    MsgBox counter
    MsgBox index
    Pour le moment je teste un peu les choses. Mon langage de programmation habituel c'est Java, ce qui donnerait:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    if(a == 2){
    b=2;
    c=5;
    }
    On a pas besoin de mettre un else. Je souhaiterai savoir si c'est possible de faire ça en VB. Et surtout comment.

    Merci d'avance pour vos réponses
    Salutations

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2010
    Messages : 21
    Par défaut
    Je n'avais pas saisi la subtilité de la chose.

    Il faut que toutes les opérations à effectuer soient sur la même ligne et séparée par des ":"

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    If Range("B" & counter).Value <> "" Then Index = counter: MsgBox counter: MsgBox Index
    Ou toute en dessous:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If Range("B" & counter).Value <> "" Then
        index = counter
        MsgBox counter
        MsgBox index
        End If

  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 176
    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 176
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Je ne connais pas le Java et donc partir d'un code Java pour le traduire en VBA n'est peut-être pas la meilleure façon d'y arriver.
    Ce serait peux-être un avantage que tu expliques en français quel test tu souhaites faire, que faut-il faire si le test est vrai et que faut-il faire s'il est faux.
    Pour IF Then Else mais il y a d'autres structures décisionnelles, la syntaxe est :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    IF <Comparaison logique> Then <...Instruction...>. [Else] <...Instruction...>
    Ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    IF <Comparaison logique> Then
         <...Instruction...>
      [Else]
        <...Instruction...>
    End if
    Il y a aussi l'instruction IIF dont la syntaxe est similaire à la fonction IF d'excel.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    IIf(Comparaison logique, Valeur Si Vrai, Valeur si Faux)
    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 averti
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Octobre 2010
    Messages : 21
    Par défaut
    Bonjour!

    Merci bien pour vos réponses! Je suis navrée de vous répondre avec autant de retard, j'ai été passablement débordée...

    C'est tout bon grâce à votre aide j'ai réussi

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

Discussions similaires

  1. Réponses: 8
    Dernier message: 27/02/2016, 09h31
  2. Un problème avec Do/Loop et If/else/end If
    Par blaiso dans le forum Général VBA
    Réponses: 3
    Dernier message: 26/09/2011, 09h02
  3. [XL-2003] Prblème avec les if , else end if
    Par doudou8mc dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 09/11/2009, 12h10
  4. Equivalent "Select Case when then else end" sur Paradoxe
    Par Seuh.m dans le forum Bases de données
    Réponses: 4
    Dernier message: 29/06/2006, 08h23

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