transformation en majuscule

[Hugues]

Bonjour Le Forum,

Je souhaiterais transformer une chaine de caractéres située en colonne A à l'intérieur d'une boucle et mettre le résultat en colonne B.
J'ai tapé comme code le suivant :

Sub MAJUSCULE()
For a = 1 To 20
Range("B" & a) = upper.Range("A" & a)
Next a
End Sub

Je n'arrive pas à trouver l'erreur.
Pouvez vous m'aider ?

Merci par avance,

HUGUES

 

[Cousinhub]

Re : transformation en majuscule

bonsoir,
avec ceci, peut-être?

Sub majuscule()
For i = 1 To [A65000].End(xlUp).Row
    Cells(i, 2).Value = UCase(Cells(i, 1).Value)
Next i
End Sub

 

[Hugues]

Re : transformation en majuscule

Merci à toi ça fonctionne impec.