Autres Mettre en majuscule la première lettre de chaque chaîne, sauf…

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

coline741

XLDnaute Junior
Bonsoir à Chacune & à Chacun.

Dans les exemples suivants j'aimerais que les lettres qui suivent un caractère non alphabétiqe restent en minuscule.​
La macro jointe au fichier d'exemple, concoctée il y a au moins deux décennies, m'a bien servie pour le français mais avec l'anglais… Aussi puis-je humblement demander aux Héros du VBA, aux Chantres de la macro-commande de (m'aider à) résoudre le problème.

donnée originale​
traitement avec la macro xl4 (c'est caca)​
résultat attendu​
I'm not so sureI'M Not So SureI'm Not So Sure
This guy's in love with youThis Guy'S In Love With YouThis Guy's In Love With You

D'avance Merci
 

Pièces jointes

Trier par date Trier par votes
coline741 à dit:
Bonsoir à Chacune & à Chacun.

Dans les exemples suivants j'aimerais que les lettres qui suivent un caractère non alphabétiqe restent en minuscule.​
La macro jointe au fichier d'exemple, concoctée il y a au moins deux décennies, m'a bien servie pour le français mais avec l'anglais… Aussi puis-je humblement demander aux Héros du VBA, aux Chantres de la macro-commande de (m'aider à) résoudre le problème.​
donnée originale​
traitement avec la macro xl4 (c'est caca)​
résultat attendu​
I'm not so sureI'M Not So SureI'm Not So Sure
This guy's in love with youThis Guy'S In Love With YouThis Guy's In Love With You

D'avance Merci
Cliquez pour agrandir...
Bonsoir,
en G4 pour le traitement des apostrophes
Code: 
=SUBSTITUE(SUBSTITUE(NOMPROPRE(SUBSTITUE(D4;"'";"azerty"));"azerty";"'");"Azerty";"'")
 

Pièces jointes

Vote positif 0 Vote négatif
coline741 à dit:
Merci Jackes,

Cette imbrication de fonctions répond bien à l'attente…mais Je traite plusieurs centaines de lignes quotidiennement, J'aurais préféré une macro.

Encore merci, en tout cas
Cliquez pour agrandir...
Hé Jackes

Grâce à ton idée, j'ai complété la macro comme ceci…et ça fonctionne. J'aimerais bien savoir ce que ça donne en VBA. Je vais changer d'ordi et me devoir me retrouver avec xls 2020. Il n'est pas sûr que les macros traditionnelles fonctionnent encore.

Merci, Man

Majuscule​
=SELECTION()​
=LIGNES(SELECTION())​
=POUR.CELLULE("cellulact";;FAUX)​
=FORMULE(SUBSTITUE(SUBSTITUE(NOMPROPRE(SUBSTITUE(cellulact;"'";"azerty"));"azerty";"'");"Azerty";"'"))​
=SELECTIONNER(DECALER(CELLULE.ACTIVE();1;0))​
=SUIVANT()​
=RETOUR()​
 
Vote positif 0 Vote négatif
chris à dit:
RE

En mettant la liste source sous forme de tableau structuré

Tu peux changer la dernière ligne du code en
ListObjects(1).DataBodyRange = Application.WorksheetFunction.Transpose(Textes1)
si tu veux changer directement la source
chris à dit:
RE

En mettant la liste source sous forme de tableau structuré

Tu peux changer la dernière ligne du code en
ListObjects(1).DataBodyRange = Application.WorksheetFunction.Transpose(Textes1)
si tu veux changer directement la source
Cliquez pour agrandir...
Merci mais la macro ne fonctionne pas sur le document joint
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
bonsoir
une petite fonction perso VBA utilisable en formule
VB: 
Function properX(valeur As String)
Dim T, I&
T = Split(Replace(Replace(valeur, "'", " ' "), "-", " - "), " ")
For I = 1 To UBound(T)
If Not " '- " Like "*" & T(I - 1) & "*" Then T(I) = Application.Proper(T(I))
Next
properX = Replace(Replace(Join(T), " ' ", "'"), " - ", "-")
End Function

la formule de la premiere cellule
=properx(D4)
à étendre à souhait
😉
 
Vote positif 0 Vote négatif
job75 à dit:
Bonsoir à tous,

Quelle idée de vouloir utiliser des macros Excel 4.0, obsolètes depuis 25 ans ?

Et je ne comprend pas pourquoi il faut obtenir des résultats non cohérents dans ces 2 cas :

- Rhythm-a-ning

- Take The A-Train

A+
Cliquez pour agrandir...
Parceque j'utilise Excel depuis 40 ans.
job75 à dit:
Bonsoir à tous,

Quelle idée de vouloir utiliser des macros Excel 4.0, obsolètes depuis 25 ans ?

Et je ne comprend pas pourquoi il faut obtenir des résultats non cohérents dans ces 2 cas :

- Rhythm-a-ning

- Take The A-Train

A+
Cliquez pour agrandir...
patricktoulon à dit:
bonsoir
une petite fonction perso VBA utilisable en formule
VB: 
Function properX(valeur As String)
Dim T, I&
T = Split(Replace(Replace(valeur, "'", " ' "), "-", " - "), " ")
For I = 1 To UBound(T)
If Not " '- " Like "*" & T(I - 1) & "*" Then T(I) = Application.Proper(T(I))
Next
properX = Replace(Replace(Join(T), " ' ", "'"), " - ", "-")
End Function

la formule de la premiere cellule
=properx(D4)
à étendre à souhait
😉
Cliquez pour agrandir...
Merci pour cette fonction qui fonctionne à souhait. Je vais m'en inspirer pour remplacer ma vieille macro
 
Vote positif 0 Vote négatif
bonjour
tu peux passer par worksheetfunction à la place de application si tu veux
VB: 
Function properX(valeur As String)
Dim T, I&
T = Split(Replace(Replace(valeur, "'", " ' "), "-", " - "), " ")
For I = 1 To UBound(T)
If Not " '- " Like "*" & T(I - 1) & "*" Then T(I) = WorksheetFunction.Proper(T(I))
Next
properX = Replace(Replace(Join(T), " ' ", "'"), " - ", "-")
End Function
ou bien encore par evaluate
VB: 
Function properX(valeur As String)
Dim T, I&
T = Split(Replace(Replace(valeur, "'", " ' "), "-", " - "), " ")
For I = 1 To UBound(T)
If Not " '- " Like "*" & T(I - 1) & "*" Then T(I) = Evaluate("=PROPER(""" & T(I) & """)")
Next
properX = Replace(Replace(Join(T), " ' ", "'"), " - ", "-")
End Function
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour