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 :

Convertir une fonction SI en language VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Septembre 2011
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Togo

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Finance

    Informations forums :
    Inscription : Septembre 2011
    Messages : 1
    Par défaut Convertir une fonction SI en language VBA
    Bonjour j'aimerais bien que vous m'aider à convertir cette fonction "si" en mode VBA :

    la voilà :


    =SI(C:C="AB";"TN0003400058"
    ;SI(C:C="ADWYA";"TN0007250012"
    ;SI(C:C="AL";"TN0002300358"
    ;SI(C:C="ALKIM";"TN0003800703"
    ;SI(C:C="ARTES";"TN0007300015"
    ;SI(C:C="ASSAD";"TN0007140015"
    ;SI(C:C="AST";"TN0003000452"
    ;SI(C:C="ATB";"TN0003600350"
    ;SI(C:C="ATL";"TN0004700100"
    ;SI(C:C="BH";"TN0001900604"
    ;SI(C:C="BIAT";"TN0001800457"
    ;SI(C:C="BNA";"TN0003100609"
    ;SI(C:C="BT";"TN0002200053"
    ;SI(C:C="BTE";"TN0001300557"
    ;SI(C:C="CC";"TN0007400013"
    ;SI(C:C="CIL";"TN0004200853"
    ;SI(C:C="GIF";"TN0007130016"
    ;SI(C:C="ICF";"TN0003200755"
    ;SI(C:C="LSTR";"TN0006650014"
    ;SI(C:C="MAG";"TN0006440010"
    ;SI(C:C="MGR";"TN0006580013"
    ;SI(C:C="ML";"TN0006720049"
    ;SI(C:C="MNP";"TN0001000108"
    ;SI(C:C="NAKL";"TN0007410012"
    ;SI(C:C="PGH";"TN0005700018"
    ;SI(C:C="PLTU";"TN0002500650"
    ;SI(C:C="SALIM";"TN0006550016"
    ;SI(C:C="SCB";"TN0007350010"
    ;SI(C:C="SERVI";"TN0007340011"
    ;SI(C:C="SFBT";"TN0001100254"
    ;SI(C:C="SIAME";"TN0006590012"
    ;SI(C:C="SIMPA";"TN0004000055"
    ;SI(C:C="SIPHA";"TN0006670012"
    ;SI(C:C="SITS";"TN0007180011"
    ;SI(C:C="SOKNA";"TN0007210016"
    ;SI(C:C="SOMOC";"TN0006780019"
    ;SI(C:C="SOPAT";"TN0007290018"
    ;SI(C:C="SOTET";"TN0006530018"
    ;SI(C:C="SOTUV";"TN0006560015"
    ;SI(C:C="SPDIT";"TN0001400704"
    ;SI(C:C="STAR";"TN0006060016"
    ;SI(C:C="STB";"TN0002600955"
    ;SI(C:C="STEQ";"TN0006640015"
    ;SI(C:C="STIP";"TN0005030010"
    ;SI(C:C="STPIL";"TN0006660013"
    ;SI(C:C="TAIR";"TN0001200401"
    ;SI(C:C="TLNET";"TN0007440019"
    ;SI(C:C="TINV";"TN0004100202"
    ;SI(C:C="TJARI";"TN0001600154"
    ;SI(C:C="TJL";"TN0006610018"
    ;SI(C:C="TLAIT";"TN0003300902"
    ;SI(C:C="TLS";"TN0002100907"
    ;SI(C:C="TPR";"TN0007270010"
    ;SI(C:C="TRE";"TN0007380017"
    ;SI(C:C="UBCI";"TN0002400505"
    ;SI(C:C="UIB";"TN0003900107"
    ;SI(C:C="WIFAK";"TN0007200017")))))))))))))))))))))))))))))))))))))))))))))))))))))))))


    Merci.

  2. #2
    Membre éclairé
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Octobre 2010
    Messages
    240
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aisne (Picardie)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2010
    Messages : 240
    Par défaut
    c'est

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    if tacondition then 'alors
    ta commande
    end if
    et tu as aussi

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    if tacondition then 'alors
    ta commande
    else 'sinon
    ta commande
    end if

  3. #3
    Membre expérimenté
    Profil pro
    Inscrit en
    Novembre 2008
    Messages
    207
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2008
    Messages : 207
    Par défaut
    Enfin avec autant de tests à réaliser une structure en Select...Case serait plus adaptée:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Select Case C.Text
     
        Case "AB"
            [action]
     
        Case "ADWYA"
            [action]
     
        Case [...]
     
        Case Else
            [action]
     
    End Select

  4. #4
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 163
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 163
    Billets dans le blog
    2
    Par défaut
    Bonjour à tous,

    une autre possibilité, sans VBA :
    Crée un tableau avec les valeurs AB, ADWYA, AL... en première colonne
    et les valeurs correspondantes en 2ème colonne
    Ta fonction pourra alors se résumer à une fonction RECHERCHEV

    Un très bon tuto sur le sujet : http://fauconnier.developpez.com/tut...el/recherchev/

Discussions similaires

  1. Convertir une fonction sur VBA
    Par maymou27 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 28/06/2012, 12h18
  2. Modification d'une application sous Excel language Vba
    Par Mézeau Emilien dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 18/04/2008, 09h13
  3. Convertir une fonction matlab
    Par hm1ch dans le forum MATLAB
    Réponses: 10
    Dernier message: 05/12/2007, 16h57
  4. [intfilt] Convertir une fonction MATLAB en language C
    Par sandball22 dans le forum MATLAB
    Réponses: 10
    Dernier message: 10/04/2007, 16h06
  5. convertir une fonction en predicat
    Par seb9999 dans le forum C++
    Réponses: 2
    Dernier message: 19/10/2006, 20h06

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