Conversion minuscule =>majuscule avec car$(*)

Commenter

Contenu du snippet

Cette macro sert juste a passer des minuscules aux majuscules dans une feuille excel.
Biensur, je pense quelle peut etre ameliorée (j'attends vos idées)
Soyez sympas, je debute.

Source / Exemple : 


Dim compteur As Integer
Dim fin As Integer
Dim car
Dim car2
Sub super_macro()

Do
For compteur = 1 To 26 Step 1
fin = 0
car = Chr$(96 + compteur)
car2 = Chr$(96 + compteur - 32)

 If compteur = 26 Then fin = 1
  
Selection.Replace What:=car, Replacement:=car2, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
        
Next compteur
Loop Until fin = 1
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.