[RESOLU] plusieurs if consecutifs

[loiclass]

Bonjour,

J'ai un petit soucis avec une partie de code.
Je cherche à faire un test sur la valeur d'une cellule.
Si 1<x<9 alors on affiche 0001<x<0009
Si 10<x<99 alors on affiche 0010<x<0099
Si 100<x<999 alors on affiche 0100<x<0999
...

Avec mon code si dessous ça fonctionne pour les 2 premiers if , mais pas pour les suivants.

Dim num As String

num = "0"


If Sheets("Feuil1").Range("B3") <= 9 Then

num = "000" & Sheets("Feuil1").Range("B3")

MsgBox (num)

Else

If 10 <= Sheets("Feuil1").Range("B3") <= 99 Then

num = "00" & Sheets("Feuil1").Range("B3")

MsgBox (num)

Else

If 100 <= Sheets("Feuil1").Range("B3") <= 999 Then

num = "0" & Sheets("Feuil1").Range("B3")

MsgBox (num)

Else

If Sheets("Feuil1").Range("B3") >= 1000 Then

num = Sheets("Feuil1").Range("B3")

MsgBox (num)

End If

End If

End If

End If




ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\Mes documents\Test" & num & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False




End Sub

Est ce que quelqu'un saurait m'aider?

 

[Yaloo]

Re : plusieurs if consecutifs

Bonsoir loiclass,

Il faut mettre quelque chose du genre :

If 10 <= Sheets("Feuil1").Range("B3") and Sheets("Feuil1").Range("B3") <= 99 Then

A+

Martial

 

[loiclass]

Re : plusieurs if consecutifs

Merci Martial.

ça fonctionne correctement.

 

[tototiti2008]

Re : [RESOLU] plusieurs if consecutifs

Bonsoir loiclass, Bonsoir Yaloo,

essaye ça pour voir

msgbox format(Sheets("Feuil1").Range("B3").value, "0000")