Simplification "codage"VBA

Bonjour

Est-il possible de simplifier (synthétiser) ces lignes de codes:

If Range("C12") = "R" Then
Range("I21") = "Retour chantier"
Else
If Range("C12") = "N" Then
Range("I21") = "Nouvelle Ref"
Else
Range("I21") = ("")
End If
End If

Merci d'avance

Nonno

Bonjour,

pas vraiment, si ce n'est que tu peux utiliser ElseIf :

    If Range("C12") = "R" Then
        Range("I21") = "Retour chantier"
    ElseIf Range("C12") = "N" Then
        Range("I21") = "Nouvelle Ref"
    Else
        Range("I21") = ("")
    End If

une autre écriture qui permet de regrouper des lignes :

    Select Case Range("C12")
        Case "R": Range("I21") = "Retour chantier"
        Case "N": Range("I21") = "Nouvelle Ref"
        Case Else: Range("I21") = ("")
    End Select

mais pourquoi faire ça en vba alors qu'une simple formule sur la feuille suffit et est plus efficace ?
Ca n'est justifié que si la feuille est crée à chaque fois.
eric

Merci Eriiic

Bonne soirée

Cordialement

Nonno