Macro pour majuscules/Minuscules et Minuscules/Majuscules

[Ouin-Ouin]

Bonsoir à tous,

Passer une bonne journée?

J'ai une petite demande ( elle est petite pour vous les as ) je cherche le code de macro pour faire:

rte de Neuchâtel
Rte de Neuchâtel
RTE DE NEUCHATEL
rte de neuchatel

ceci est une adresse que je voudrai pouvoir par l'intermédiaire d'une macro convertir en:

Rte De Neuchâtel ( en miniscule avec chaque première lettre d'un mot en majuscule)
ou
RTE DE NEUCHATEL (toute l'adresse en majuscule)

l'adresse peut contenir jusqu'à 6 mots et avoir des chiffres

en vous remerciant de votre aide et peut être @plus
bonne appétit et bonne soirée à tous

Ouin-Ouin

 

[Eric C]

Bonjour le forum
Bonjour Ouin-Ouin

A développer car là cela se fait lors de la frappe (enfin après l'activation de la touche Enter)

Private Sub Worksheet_Change ( .....
Target.Value = Application.Proper (Target.Value)
End Sub

Private Sub Worksheet_Change ( .....
Target = UCase (Target)
End Sub

@ + Eric C

 

[Ouin-Ouin]

re et merci eric de ta réponse

sorry pas tout à fait bien exprimé
ce n'est pas à la frappe

le malheur c'est que c'est déjà saisi (200 adresses n'importe comment)
merci@plus

 

[Eric C]

Re le forum
Re bosoir Ouin-Ouin

Bon scuzi, j'avais regardé vite fait
Code pour ton bouton 1er lettre des mots en maj
Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Range("A1:A10")
cell = Evaluate("PROPER(""" + cell + """)")
Next cell
End Sub

Code pour tous les nots en maj
Private Sub CommandButton1_Click()
Dim Cell As Range
For Each Cell In Range("A1:A10")
Cell = UCase(Cell)
Next
End Sub

Ton range est à adapter

@ + Eric C

 

[Ouin-Ouin]

oups merci beaucoup eric
je cherche juste ou je dois préciser que cette macro doit avoir lieu dans la feuille qui s'intitule:AnnexeII

un tout tout tout grand merci tu m'enlève une sacré épine

@ouin-ouin

 

[Ouin-Ouin]

OKOKOKOKOK

Merci beaucoup c'est réglé

@plus
Ouin-Ouin