Problème condition ne se vérifiant pas

[akyare]

Bonjour,

Après m'être creusé la tête pendant quelques heures, j'ai décidé de faire appel à vous...

Pour le bout de code suivant:

Fact = InputBox("Entrez le numéro Facture")
Sheets("base").Activate
For Each item In Range(Range("Q2"), Range("Q2").End(xlDown))
i = item.Row
If item.Value = Fact Then
Sheets("Calcul").Range("A" & j).Value = Range("I" & i).Value
Sheets("Calcul").Range("B" & j).Value = "100.291600.2" & Range("N" & i).Value
Sheets("Calcul").Range("C" & j).Value = "100.218350.2" & Range("N" & i).Value
Sheets("Calcul").Range("D" & j).Value = Range("P" & i).Value & ".615200"
Sheets("Calcul").Range("E" & j).Value = Range("P" & i).Value & ".625120"
Sheets("Calcul").Range("F" & j).Value = Range("C" & i).Value
Sheets("Calcul").Range("G" & j).Value = Range("B" & i).Value
Sheets("Calcul").Range("H" & j).Value = Range("Q" & i).Value
Sheets("Calcul").Range("I" & j).Value = Range("K" & i).Value
j = j + 1
End If
Next item


Mon problème est que lorsque Fact est du texte tout marche bien, mais si Fact est un nombre alors la condition if ne se vérifie jamais ...

Est-ce quelqu'un pourrait m'expliquer pour quelle raison ?

Merci

 

[Cousinhub]

Re : Problème condition ne se vérifiant pas

Bonjour,

peut-être avec ce code :

Fact = Val(InputBox("Entrez le numéro Facture"))

 

[mécano41]

Re : Problème condition ne se vérifiant pas

Bonjour,

Si dans la colonne Q tu as : soit du texte ("MT1254"), soit un nombre sous forme de texte ("1546") , soit un nombre (1546), le test fonctionne :

Sub essai()
Dim Fact As String
Dim Item As Range

Fact = InputBox("Entrez le numéro Facture")
Sheets("base").Activate
For Each Item In Range(Range("Q2"), Range("Q2").End(xlDown))
i = Item.Row
If CStr(Item.Value) = Fact Then
'
'
'etc...
'
'
j = j + 1
End If
Next Item

End Sub

Cordialement

 

[akyare]

Re : Problème condition ne se vérifiant pas

Merci à vous 2 pour la rapidité de votre réponse.

Avec Cstr(), mon problème a été résolu