pb avec un si

[audrey]

bonjour le forum

j'ai un problème tout bête.

j'envoie une valeur en string dans la case B37. j'aimerais que si cette valeur est "inactif" la case prenne la valeur 2 si c'est "actif"la valeur 1 sinon la valeur 3.
le problème est que c'est tjs le sinon qui est pris en compte

If Sheets("saisie").Range("B37").Value = "inactif" Then
sheets("saisie").range(B37").value=2
Else
If Sheets("saisie").Range("B37").Value = "actif" Then
Sheets("saisie").Range("B37").Value = 1
Else
Sheets("saisie").Range("B37").Value = 3
End If
End If

merci d'avance

 

[@Christophe@]

Re

Envoi ton fichier sur mon mail si tu veux et je jette un coup d'oeil

@Christophe@

 

[audrey]

je vous remercie tous pour ces solutions ça y est ça marche,

bonne journée

 

[@Christophe@]

Re

Explique nous au moins ou étais le problème??

@Christophe@

 

[audrey]

je sais pas trop en faite, voilà ce que j'ai tapé:

Select Case LCase(Trim(Worksheets("saisie").Range("B37")))
Case "inactif"
Worksheets("saisie").Range("B37") = 2
Case "actif"
Worksheets("saisie").Range("B37") = 1
Case Else
Worksheets("saisie").Range("B37") = 3
End Select

@+