[Résolu] Macro qui met lettres en majuscule

[klorane]

Bonjour à tous,

J'ai des références dans une colonne "B" qui sont en minuscules avec un mélange de majuscules.

ex : Rf7812 rn T

ya t'il une macro qui pourrait de B1 à B65000 modifier toute mes reférences en les métant en majuscule

ex : Rf7812rnT -> RF712 RN T

et si une autre pouvait supprimer les espaces le top!

RF712 RN T->RF712RNT

Merci
Klorane

 

[Robert]

Re : Macro qui met lettres en majuscule

Bonjour Klorane, bonjour le forum,

Essai comme ça :

Sub Macro1()
Dim o As Object 'déclare la variable o (Onglet)
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)

Set o = Sheets("Feuil1") 'définit l'onglet o (à adapter à ton cas)
dl = o.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 2 (=B)
Set pl = o.Range("B1:B" & dl) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    cel.Value = UCase(Replace(cel.Value, " ", "")) 'converti les minuscules en majuscules et supprime les espaces
Next cel 'prochaine cellule de la boucle
End Sub

 

[klorane]

Re : Macro qui met lettres en majuscule

Super Robert!!...même les espaces...Merci chef^^

Bonne après midi et encore merci.

Klorane

 

[Hervé]

Re : [Résolu] Macro qui met lettres en majuscule

salut klorane
salut l'ami robert

la version formule de la proposition de robert

=MAJUSCULE(SUBSTITUE(A1;" ";""))

salut

ps: intervention juste pour le plaisir de une fois dans ma vie proposer une formule et de saluer robert