Bonjour,

J'ai un programme ou je dois inserer un code avec plus de 7 conditions.
Or lorsque j'utilise la formule Si, cela me limite à 7 conditions au maximum.
Pour une meilleur visibilité, j'ai copié seulement le code qui nous interesse :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim d As Integer ' la lettre c symbolise la variable de la derniere ligne de la colonne "code liaison"
    d = Range("d" & Range("d65536").End(xlUp).Row).Row 'adaptation de la formule pour recuperer le N° de la dernière ligne de la colonne C
 
Range("B6").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[2]=""63C-1167"",R1C3=""arrivee""),""clermont ferrand"",IF(AND(RC[2]=""63C-1167"",R1C3=""depart""),""erstein""," _
& "IF(AND(RC[2]=""67C-2841"",R1C3=""arrivee""),""erstein"",IF(AND(RC[2]=""67C-2841"",R1C3=""depart""),""cavaillon""," _
& "IF(AND(RC[2]=""67C-1163"",R1C3=""arrivee""),""erstein"",IF(AND(RC[2]=""67C-1163"",R1C3=""depart""),""clermont ferrand""," _
& "IF(RC[1]=""national"",VLOOKUP(RC[2],'P:\Commun\Transport Securité\Docs Madjid\[matrice.xls]matrice hermes'!R1C1:R800C3,3,0),"""")))))))"
 
    'RC[2]= colonne code liaison
 
    Range("B6").Copy
    d = Range("d" & Range("d65536").End(xlUp).Row).Row 'adaptation de la formule pour recuperer le N° de la dernière cellule de la colonne code liaison
    Range("B7:B" & d - 1).Select 'selection de la zone de copie
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Et voici le code que j'essaie de créer mais qui ne fonctionne pas du tout

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim cell As Range
Dim note As Range
Dim valeur As Range
Dim cellule As Range
Dim d As Integer ' la lettre c symbolise la variable de la derniere ligne de la colonne "code liaison"
d = Range("d" & Range("d65536").End(xlUp).Row).Row 'adaptation de la formule pour recuperer le N° de la dernière ligne de la colonne D
 
Set cell = Range("D6")
Set note = Range("C1")
Set valeur = Range("B6")
Set cellule = Range("C6")
 
 
 
If cell = "63C-1167" And note = "arrivee" Then valeur = "clermont ferrand"
If cell = "63C-1167" And note = "depart" Then valeur = "erstein"
If cell = "67C-2841" And note = "arrivee" Then valeur = "erstein"
If cell = "67C-2841" And note = "depart" Then valeur = "cavaillon"
If cell = "67C-1163" And note = "arrivee" Then valeur = "erstein"
If cell = "67C-1163" And note = "depart" Then valeur = "clermont ferrand"
If cell = "55C-1284" And note = "arrivee" Then valeur = "bar le duc"
If cell = "55C-1284" And note = "depart" Then valeur = "cavaillon"
If cell = "84C-1255" And note = "arrivee" Then valeur = "cavaillon"
If cell = "84C-1255" And note = "depart" Then valeur = "bar le duc"
If cellule = "national" Then VLOOKUP(RC[2]),'P:\Commun\Transport Securité\Docs Madjid\[matrice.xls]matrice hermes'!R1C1:R800C3,3,0)
 
 
Range("B6").Copy
    d = Range("d" & Range("d65536").End(xlUp).Row).Row 'adaptation de la formule pour recuperer le N° de la dernière cellule de la colonne code liaison
    Range("B7:B" & d - 1).Select 'selection de la zone de copie
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Une aide serait le bien venu

merci