Code VBA condition IF

Bonjour,

Je galère un peu sur un code pourtant simple :

Lors d'un clic sur mon bouton "importation" je souhaite effectué différentes actions selon la valeur d'une cellule, si H5 = TOTO afficher TOTO en H9, si H5 = TATA afficher TATA en H9 et si H5 = " " afficher une message box "renseigner la case"

J'ai des problèmes avec la syntaxe des : If ; Then ; Else ; End If ..

Je m'y perd un peu..

Je joins un fichier

Mon code :

Sub TEST()

If H5 = "TOTO" Then H9 = "TOTO"

    If H5 = "TATA" Then H9 = "TATA"

        If H5 = " " Then MsgBox " Renseingner la case! "

End Sub

Bonjour

avec un select cae :

Sub TEST()
Select Case [H5]
Case "TOTO": [H9] = "TOTO"
Case "TATA": [H9] = "TATA"
Case Else: MsgBox (" Renseigner la case!")
End Select
End Sub

Fred

Bonjour,

Je te retourne 2 solutions possibles pour faire ça:

Sub TEST()

If Range("H5") = "TOTO" Then
    Range("H9") = "TOTO"
ElseIf Range("H5") = "TATA" Then
    Range("H9") = "TATA"
ElseIf Range("H5") = " " Then
    MsgBox " Renseingner la case! "
End If

End Sub

Sub TEST2()

Select Case Range("H5")
Case "TOTO"
    Range("H9") = "TOTO"
Case "TATA"
    Range("H9") = "TATA"
Case " "
    MsgBox " Renseingner la case! "
End Select

End Sub