XL 2019 Texte dans Excel

J

JHA

XLDnaute Barbatruc

• 5 Août 2023

• #2

Bonjour à tous,

Avec Power Query, pas de soucis pour mettre des majuscules.
ou tu ajoutes une colonne puis tu utilises la fonction nompropre()

JHA

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Août 2023

• #3

Bonjour
Ça, dans le module de l'objet Worksheet de la feuille :

VB:

Worksheet_Change(ByVal Target As Range)
   If VarType(Target.Value) = vbString Then Target.Value _
      = WorksheetFunction.Proper(Target.Value)
   End Sub

 

Vote positif 0 Vote négatif

B

bpautal

XLDnaute Nouveau

• 5 Août 2023

• #4

Bonjour et merci à Tous de vos réponses.
Mais je suis un neophyte en la matière. Alors soyez gentils, expliquez moi en détail.
Je ne connais pas du tout "Power Query".
Et il semble qu'il y ai une erreur de syntaxe dans le code de Danreb: ou c'est moi qui ne comprend pas la procédure.
Bien amicalement,
BP

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 5 Août 2023

• #5

Bonjour à tous,

Avec un fichier exemple tu aurais eu une réponse plus précise.

JHA

 

Pièces jointes

• Classeur bpautal.xlsx

  17.1 KB · Affichages: 2
• Classeur bpautal.xlsm

  22.1 KB · Affichages: 2

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Août 2023

• #6

Oups. J'ai fait sauter le début à la copie …

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   If VarType(Target.Value) = vbString Then Target.Value _
      = WorksheetFunction.Proper(Target.Value)
   End Sub

 

Vote positif 0 Vote négatif

B

bpautal

XLDnaute Nouveau

• 5 Août 2023

• #7

Merci à Tous,
J'ai retenu le code de Dranreb. Ca fonctionne parfaitement. Mais juste une petite chose : je programme depuis toujours ou presque en Windev c'est-à-dire en français. Je suis donc totalement ignare en code anglais.
Alors peux-tu m'expliquer en français le process ?
Merci d'avance et merci aussi à JHA même si je n'ai rien compris à la démo.
Bien amicalement,
BP

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Août 2023

• #8

Bonjour

evenement privé (cellule change)de la feuille dans le quel se trouve le code

VB:

Private Sub Worksheet_Change(ByVal Target As Range)

si le vb type de la target(cellule) est du texte alors targetvalue _
= la valeur de target en nompropre avec la fonction proper de excel

Code:

If VarType(Target.Value) = vbString Then Target.Value _
= WorksheetFunction.Proper(Target.Value)

fin de sub event change

Code:

end sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Août 2023

• #9

Bonjour

Dranreb à dit:

Oups. J'ai fait sauter le début à la copie …

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   If VarType(Target.Value) = vbString Then Target.Value _
      = WorksheetFunction.Proper(Target.Value)
   End Sub

Cliquez pour agrandir...

Il faudrait utiliser les Application.EnableEvents = False/True.

En effet chez moi le code boucle et se répète 47 fois avant de s'arrêter

C'est classique avec une Worksheet_Change.

A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Août 2023

• #10

Mes excuses pour avoir oublié les Application.EnableEvents = False/True

 

Vote positif 0 Vote négatif