Discussion :

[Invité]

Bonjour

Lors du passage sur cette instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
if ListEvts.IndexOf(''+Feuille.Cells.Item[row, 4].Value+';'+
                        QuotedStr(Feuille.Cells.Item[row, 5].Value)+';'+
                        Feuille.Cells.Item[row, 6].Value+';'+
                        Feuille.Cells.Item[row, 7].Value+';'+
                        Feuille.Cells.Item[row, 8].Value
                        ) = -1 then

J'obtient le message mentionné dans le sujet de la discussion

Feuille.Cells.Item[row, 6].Value semble poser problème
ce variant est la chaine '30'

Quelqu'un aurait une idée ?

Merci

[MelkInarian]

Essaie peut-être avec VarToStr(Feuille.Cells.Item[row, 6].Value)

[Invité]

Merci

Ca marche

Mais je comprend pas la logique

Apparement il faut forcer en chaine les variants du type '6469' qui sont des déjà chaines !?!