Macro : une colonne à transformer en minuscule sauf 1ère lettre
Résolu
Lencorev
-
lencorev -
lencorev -
Bonjour,
Toute une colonne de mon tableau est en majuscule, et je voudrais que seulement la première lettre soit en majuscule, en passant obligatoirement par une macro.
Mon code ne fonctionne que sur la première ligne, mais ne marche pas pour la colonne entière.
Je suis bloquée, est ce que vous auriez une solution ?
Merci d'avance :)
Toute une colonne de mon tableau est en majuscule, et je voudrais que seulement la première lettre soit en majuscule, en passant obligatoirement par une macro.
Mon code ne fonctionne que sur la première ligne, mais ne marche pas pour la colonne entière.
Sheets("Feuil3").Range("T5:T402").Select
ActiveCell.Value = StrConv(ActiveCell.Value, vbProperCase)
Je suis bloquée, est ce que vous auriez une solution ?
Merci d'avance :)
A voir également:
- Vba minuscule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
4 réponses
Bonjour,
Juste avec une boucle sur chaque cellule
Juste avec une boucle sur chaque cellule
Dim I As Long
For I = 5 To 402
Sheets("Feuil3").Range("T" & I).Value = StrConv(Sheets("Feuil3").Range("T" & I).Value, vbProperCase)
Next I
A quoi cela sert-il de poser 2 fois la même question?
https://forums.commentcamarche.net/forum/affich-32093203-transformer-une-colonne-en-minuscules-sauf-la-1ere-lettre#newanswer
https://forums.commentcamarche.net/forum/affich-32093203-transformer-une-colonne-en-minuscules-sauf-la-1ere-lettre#newanswer
Re,
Pourquoi avoir changer de pseudo ?
https://forums.commentcamarche.net/forum/affich-32092237-vba-copier-le-contenu-d-une-cellule-et-non-sa-formule#p32092963
D'ailleurs, tu aurais pu poser ce problème dès le départ, ca serait déjà terminé
Maquette avec d'autres rangées de cellules (pas envie d'aller me balader dans T...AU )
remarque:
Le texte au dpart est en majuscules: il faudrait dons utiliser 2 fois ou imbriquer strconv d'abord enminuscules (Vblowercase) puis la lettre en capitale(vbpropercase)
c'est pour cela qur j'ai pris l'option <ital>Application.Proper(LCase(Tampon(1, LIg)))
</ital>
Michel
Pourquoi avoir changer de pseudo ?
https://forums.commentcamarche.net/forum/affich-32092237-vba-copier-le-contenu-d-une-cellule-et-non-sa-formule#p32092963
D'ailleurs, tu aurais pu poser ce problème dès le départ, ca serait déjà terminé
Maquette avec d'autres rangées de cellules (pas envie d'aller me balader dans T...AU )
Option Explicit
'-------
Sub nom_propre()
Dim Nbre As Integere, Tampon, LIg As IntegerApplication.ScreenUpdating = False
With Sheets(2)
Nbre = .Range("B2:J2").Columns.Count
Tampon = .Range("B2:J2")
End With
With Sheets(3)
For LIg = 1 To Nbre
Tampon(1, LIg) = Application.Proper(LCase(Tampon(1, LIg)))
Next
.Range("B5").Resize(1, Nbre) = Tampon
End With
End Sub
remarque:
Le texte au dpart est en majuscules: il faudrait dons utiliser 2 fois ou imbriquer strconv d'abord enminuscules (Vblowercase) puis la lettre en capitale(vbpropercase)
c'est pour cela qur j'ai pris l'option <ital>Application.Proper(LCase(Tampon(1, LIg)))
</ital>
Michel
Merci pour vos réponses !
Je ne connais pas vraiment le fonctionnement des forums, et je n'arrivais pas à retrouver mon 1er post, j'ai cru qu'il n'avait pas était bien été édité..
Entre temps avec d'autres recherches, j'ai trouvé cette solution, et avec votre aide, tout marche très bien !
Maintenant, j'ai d'autres problèmes mais je vais essayer de les résoudre toute seule.
Merci encore !
Je ne connais pas vraiment le fonctionnement des forums, et je n'arrivais pas à retrouver mon 1er post, j'ai cru qu'il n'avait pas était bien été édité..
Entre temps avec d'autres recherches, j'ai trouvé cette solution, et avec votre aide, tout marche très bien !
Maintenant, j'ai d'autres problèmes mais je vais essayer de les résoudre toute seule.
Merci encore !