PB avec Ucase dans mon code

[kolivier]

Re bonjour le forum

S'il vous plait, j'ai le code suivant qui rappel des données externe (autre classeur excel) vers mon UserF.
Mais je voudrais que les informations meme saisies initialement en minuscule apparaissent en majuscule dans les cellules de l'USER.

PB, je ne parvient pas a mettre cette fonction proporement dans mon code.

Merci beaucoup
-------
Workbooks.Open ('c:\\fichier.xls')
Dim classeurDestination As Workbook
Dim feuilleDestination As Worksheet
Set classeurDestination = Workbooks('fichier.xls')
Set feuilleDestination = classeurDestination.Worksheets('DEMANDES')
Dim Plg As Variant, I As Integer, L As Integer
Dim nom

nom = Array('Ident', etc..................)

With ListBox2
For I = à To .ListCount - 1
If .Selected(I) = True Then
L = I + 3
Exit For
End If
Next I
End With
With Worksheets('DEMANDES')
Plg = .Range('B' & L & ':BO' & L)
End With
For I = 1 To UBound(Plg, 2)
Controls(nom(I - 1)) = Plg(1, I)
Next I
classeurDestination.Close
MsgBox ('DOSSIER TROUVE')
End Sub
-----------------

 

[CBernardT]

Bonjour Kolivier et le forum,

Essayes avec ce code :

For I = 1 To UBound(Plg, 2)
Controls(nom(I - 1)) = UCase(Plg(1, I))
Next I

Cordialement

Bernard

 

[kolivier]

Merci beaucoup CBernardT, ce la fonctionne parfaitement.

Je souhaite au forum ainsi qu'a toi une excellente fin d'aprés midi et encore merci