Discussion :

[NeverKevin]

Bonjour,

Ma question est dans le titre, peut-on faire un if dans un if ? Je m'explique, Je dois tester si une case est vide, pour cela j'utilise donc le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (IsEmpty(Cells(4, 4).Value)) Then ...

Donc si la case est vide je dois vérifier certaines conditions afin de choisir quel calcul exécuter.

Cependant, si elle remplie, je dois utiliser cette donnée pour effectuer mes conditions suivantes.

J'aimerai donc faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If conditions = true then
    If condition = 1 Then ...
    ElseIf condition = 2 Then ...
    Else ...
 
 
Else If conditions = false then
    If condition = ..

Mais en vba je ne sais pas si cela est possible, et si c'est possible je voudrais donc savoir quelle syntaxe prendre.

Merci de votre aide.

[Jarvis13]

Bonjour,
Il n'y a aucun problème à imbriquer des conditions en VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
If(macondition)then
    ...
    If(masecondecondition)then
         ...
   End if
End if

[Menhir]

Il y a quelque chose que tu oublie dans ton code : les End If.
A partir du moment où tu utilises des "Else", ils sont obligatoires.

Rajoute-les et tu comprendras pourquoi tes syntaxes ne peuvent pas s'imbriquer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
If conditions = true then
    If condition = 1 Then
         ...
    ElseIf condition = 2 Then 
         ...
    Else
         ...
    End if
 
Else If conditions = false then
    If condition = .. then
 
End If

On ne peut se passer des "End If" que si on utilise "If" seul (sans "Else") et qu'il ne déclenche qu'un commande mise sur la même ligne.

[defluc]

D'ailleurs, tu as toi-même écrit un code correct. Il ne manque que les End If.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If conditions = True Then
  If Condition = 1 Then
    ElseIf Condition = 2 Then
 
    Else
 
  End If
 
  ElseIf conditions = False Then
 
    If Condition = 3 Then
 
  End If
End If