UCase marche pas !

[Zarkoff]

Bonjour,

J'ai dû faire une erreur quelque part :

Scan_sheet_name = "Détail"
row_number = Sheets(Scan_sheet_name).UsedRange.Rows.Count
For a = 2 To row_number Step 1
var = WorksheetFunction.Proper(UCase(Left(Sheets(Scan_sheet_name).Cells(a, 2), 2)))
.../...

Le résultat donne "Fr", moi je veux que ca donne "FR"

Merci !

 

[Zarkoff]

Cher Zarkoff,

Il suffit de faire :

var = Ucase(WorksheetFunction.Proper(Left(Sheets(Scan_sheet_name).Cells(a, 2), 2)))

et ca marche, ;-)

bon j'ai trouvé tout seul !