IF imbriqué

Bonjour,

J'ai ce bout de code ci-dessous mais j'ai un message d'erreur de compilation "erreur de compilation end if sans bloc if"

Je n'arrive pas à comprendre, pouvez vous m'aider svp

Dim C3 As Integer

Dim C4 As String

C3 = 5

C4 = "E"

If C3 = 5 Then C4 = "E"

If C3 = 7 Then C4 = "G"

If C3 = 9 Then C4 = "I"

If C3 = 11 Then C4 = "K"

End If

End If

End If

End If

bonjour,

pas sur de comprendre ton code

tu veux faire quoi ?

C3 et C4 sont bien des cellules ?

si oui essai de modifier par exemple comme ci dessous

If Range("C3") = "9" Then Range("C4") = "I"

C3 et C4 sont des variables , je souhaite faire un tableau de correspondance en fait j'ai réussi en mettant C4="E" sur la ligne de dessous

ok !

If C3 = 5 Then

C4 = "E"

If C3 = 7 Then

C4 = "G"

If C3 = 9 Then

C4 = "I"

If C3 = 11 Then

C4 = "K"

End If

End If

End If

End If

Bonsoir,

Enlève les 4 End If de 4 dernières lignes et teste.

Bonjour,

Une proposition.

Cdlt

Select Case [C3]
    Case 5
        [C4] = "E"
    Case 7
        [C4] = "G"
    Case 9
        [C4] = "I"
    Case 11
        [C4] = "K"
    Case Else
        '
End Select