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.
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.
Bonjour,
Ici on met en majuscule la cellule F12
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$12" Then Target.Value = UCase(Target.Value) End Sub
Jérôme
Bonsoir JFontaine,
Merci pour ton aide. Est-ce que tu peux m'expliquer la construction de cette macro stp ?
- 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)
Jérôme
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Function Majus(Textesmodif As String) Majus = UCase(Textesmodif) End Function
Il y a plusieurs méthodes, c'est suivant le contexte.
Comment appliques tu cette fonction? Dans une cellule? dans le code?
Jérôme
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 ?
Si on part de ta fonction
Trim supprime a gauche et a droite
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Function Majus(Textesmodif As String) Majus = UCase(Trim(Textesmodif)) End Function
Jérôme
Merci ça fonctionne !
Si j'avais voulu supprimer tous les espaces quel aurait été le code ?
pour supprimer tous les espaces même ceux se trouvant dans le texte
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Function Majus(Textesmodif As String) Majus = Replace(UCase(Textesmodif)," ", "") End Function
Jérôme
Salut, tu liras avec intérêt ceci http://silkyroad.developpez.com/VBA/...nesCaracteres/ ainsi que http://silkyroad.developpez.com/Excel/FonctionsExcel/
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager