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.

c'est

Code:

1
2
3
if tacondition then 'alors
ta commande
end if

et tu as aussi

Code:

1
2
3
4
5
if tacondition then 'alors
ta commande
else 'sinon
ta commande
end if

Enfin avec autant de tests à réaliser une structure en Select...Case serait plus adaptée:

Code:

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

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/