SI imbriqués

Le SI permet de faire le choix entre deux possibilités, dans le cas ou vous avez trois voir plus de possibilités, il vous faut ajouter des SI dans votre premier SI.

C'est ce qu'on appelle des SI imbriqués.

1
If condition1 Then
2
 action1
3
Else
4
 If condition2 Then
5
  action2
6
 Else
7
  action3
8
 End If
9
End If

Dans notre exemple, si condition1 est vraie on réalise action1 sinon on vérifie condition2 pour réaliser action2 ou action3.

ExempleEn fonction de la valeur de la cellule active, change sa couleur de fond.

1
Sub siCelluleColors()
2
 If ActiveCell.value < 10  Then
3
  ActiveCell.interior.color = RGB(255,0,0)
4
 Else
5
  If ActiveCell.value < 15 Then
6
   ActiveCell.interior.color = RGB(0,255,0)
7
  Else
8
   ActiveCell.interior.color = RGB(0,0,255)
9
  End If
10
 End If
11
End Sub

ComplémentÉcriture condensée

On peut réduire cette écriture :

1
If condition1 Then
2
 action1
3
ElseIf condition2 Then
4
 action2
5
Else
6
 action3
7
End If

Exemple :

1
Sub siCelluleColors()
2
 If ActiveCell.value < 10  Then
3
  ActiveCell.interior.color = RGB(255,0,0)
4
 ElseIf ActiveCell.value < 15 Then
5
  ActiveCell.interior.color = RGB(0,255,0)
6
 Else
7
  ActiveCell.interior.color = RGB(0,0,255)
8
 End If
9
End Sub