XL 2010 nompropre vba

matoupitou

XLDnaute Occasionnel
bonjour

peut-être que qq1 peut m'aider
j'aimerai créer un bouton dans ma barre d'outils qui me permettrait de passer au format 1ère lettre en maj de chaque mot et sinon minuscule ; écrasant les anciens texte et figeant les nouvelles valeurs
je sais que la fonction nompropre permet cela ; en enregistrant une macro je n'arrive pas à écrire que cela fonctionne pour n'importe quelle cellule. parfois ça efface

en pj un exemple avec mon texte VBA

par avance merci pour votre aide
 

Pièces jointes

  • nompropre.xlsm
    14.3 KB · Affichages: 12

youky(BJ)

XLDnaute Barbatruc
Bonjour à tous
Moi aussi j'ai eu la MAJ et me suis retrouvé avec Courrier en Anglais
Pour ceux que cela intéresse au lieu de désinstaller voici une simple manip
expliquée ici


Ouvrir Miscrosoft Store
Regarder à droite et cliquer sur la flèche à droite de votre avatar
Toutes les MAJ en attentes sont là
Selectionner Courrier et en 30 secondes le tour est joué
Bruno
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

=>patricktoulon
Vous avez déjà oublié ce que vous faisiez le 11/04/2019 à 21h18?
Vous trituriez du string mais dans l'autre monde dévolu à Excel (entre autres thèmes) ;)
Donc, en reprenant la formule que j'ai lu là-bas, je me suis reparti m'amuser dans VBA ;), et j'ai commis la chose ci-dessous.

VB:
Sub test__Abc()
Conversion 1 'Nom Propre
End Sub
Sub test___abc()
Conversion 2 'minuscule
End Sub
Sub test____ABC()
Conversion 3 'MAJUSCULE
End Sub
Private Sub Conversion(Optional Casse As Long = 1)
Dim vCasse$, c As Range
vCasse = Choose(Casse, "PROPER", "LOWER", "UPPER")
For Each c In Selection.Areas
c.Value = Evaluate("IF(ISTEXT(" & c.Address & ")," & vCasse & "(" & c.Address & "),REPT(" & c.Address & ",1))")
Next
End Sub
 

patricktoulon

XLDnaute Barbatruc
re
Bonsoir Staple1600
non j'ai pas oublié
juste pour le sport je veux réussir avec des areas non contiguës sans boucle ce qui n'a pas été envisagé dans la discussion de l'autre monde
mais je le répète c'est juste pour le sports et l'exercice de style
toutes les propositions qui ont été faites sur cette question sont valables selon le besoins

ps tu a oublié "TRIM" aussi qui est possible avec cette formule vois ma proposition dans les pages précédente
 

Discussions similaires

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088