Bonjour a tous
Audrey, Voila plusieur possibilité:
<b>Possibilité 1:</b>
Sub Audrey()
Select Case LCase(Trim(Sheets("saisie").Range("B37").Value))
Case Is = "inactif"
Sheets("saisie").Range("B37").Value = 2
Case Is = "actif"
Sheets("saisie").Range("B37").Value = 1
Case Else
Sheets("saisie").Range("B37").Value = 3
End Select
End Sub
<b>Possibilité 2:</b>
Dans ta feuille "Saisie" tu mets une macro evenementielle qui corrige ton entré en B37:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$37" Then Exit Sub
Target.Value = LCase(Trim(Target))
End Sub
Cela supprimera automatiquement les espaces et mettra le tous en minuscule:
Le reste de ton code sera le suivant alors:
Sub Audrey()
Select Case Sheets("saisie").Range("B37").Value
Case Is = "inactif"
Sheets("saisie").Range("B37").Value = 2
Case Is = "actif"
Sheets("saisie").Range("B37").Value = 1
Case Else
Sheets("saisie").Range("B37").Value = 3
End Select
End Sub
Voila
@Christophe@