Macro passage majuscules [Résolu]

[JonathanF]

Bonsoir tout le monde,
Est-ce que quelqu'un aurait les lignes de codes pour passer les caractères d'une cellule en majuscules ?

Merci d'avance.

[jfontaine]

Bonjour,

Ici on met en majuscule la cellule F12

Code :

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$12" Then Target.Value = UCase(Target.Value)
End Sub

[JonathanF]

Bonsoir JFontaine,

Merci pour ton aide. Est-ce que tu peux m'expliquer la construction de cette macro stp ?

[jfontaine]

- On utilise l’évènement Change pour capter une modification de cellule.
- Target correspond à la cellule modifiée
- On test si l'adresse de la cellule modifiée correspond à celle que l'on souhaite traitée.
- Si c'est le cas on met en majuscule (Ucase)

[JonathanF]

Merci pour ta réponse.
Pourquoi ne peut-on pas faire simplement comme ci-dessous ?
J'ai testé et ça fonctionne (Textesmodif) étant la cellule à modifier.

Code :

1
2
3
Function Majus(Textesmodif As String)
    Majus = UCase(Textesmodif)
End Function

[jfontaine]

Il y a plusieurs méthodes, c'est suivant le contexte.

Comment appliques tu cette fonction? Dans une cellule? dans le code?

[bbil]

Envoyé par JonathanF

Merci pour ta réponse.
Pourquoi ne peut-on pas faire simplement comme ci-dessous ?
J'ai testé et ça fonctionne (Textesmodif) étant la cellule à modifier.
....

ta question initiale manque de précision, tu ne dis pas quand tu veux que le passage en majuscule s'effectue, tu ne dis pas comment tu est remplie ta cellule .....

[JonathanF]

Oui c'est vrai la question était mal formulée mais j'ai réussi à obtenir ce que je voulais, merci.
Je dois créer une fonction qui passe l'ensemble des caractères en majuscule puis supprime les espaces de débuts et de fins de mots.
Je sais que Rtrim(String) supprime les espaces de droite et Ltrim(String) les espaces de gauche mais comment placer ça dans mes lignes de codes ?

[jfontaine]

Si on part de ta fonction

Code :

1
2
3
Function Majus(Textesmodif As String)
    Majus = UCase(Trim(Textesmodif))
End Function

Trim supprime a gauche et a droite

[JonathanF]

Merci ça fonctionne !
Si j'avais voulu supprimer tous les espaces quel aurait été le code ?

[jfontaine]

pour supprimer tous les espaces même ceux se trouvant dans le texte

Code :

1
2
3
Function Majus(Textesmodif As String)
    Majus = Replace(UCase(Textesmodif)," ", "")
End Function

[JonathanF]

Merci pour le coup de pouce !

[kiki29]

Salut, tu liras avec intérêt ceci http://silkyroad.developpez.com/VBA/...nesCaracteres/ ainsi que http://silkyroad.developpez.com/Excel/FonctionsExcel/