Patronyme

[Edouard]

Bonsoir le forum

Je voudrais modifier une macro mais je ne sais pas faire!

Merci à celui qui pourra me dépanner

 

[Ronan]

Bonjour,

Voici le code à insérer dans le module Worksheet - Change de la feuille concernée (CAD : dans ton exemple "Feuil1")

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


A chaque changement dans la feuille Feuil1, le programme transforme le contenu de la cellule modifiée avec la formule mettant en majuscule la première lettre du mot saisi. (Proper)

@+

Ronan

 

[Edouard]

Merci Ronan c'est exactement ce qu'il me faut .

Est possible par le meme protocole de transformer la colonne NOM en majuscule ?

 

[Michel_M]

Bonjour Edouard & Ronan

pour transformer un string en majuscule, emploie la fonction Ucase

si A1 contient "toto"

tavariable=Ucase(range("A1")) est affectée de la valeur TOTO

A+
Michel

 

[Edouard]

Michel et Ronan bonjour

Je suis peut être exigent, mais comme je ne connais rien en VBA, pouvez vous me faire la correction dans le fichier zipé, je me débrouillerai toujours pour l’adapter à mon application.
La colonne A doit se transformer en Prénom
La colonne B doit se transformer en PRENON
Après action de la touche TAB ou ENTREE

D’avance merci .

 

[Michel_M]

Re

Ci joint proposition: quand tu valides colonne A tu as la forme Nom propre (proper) et si tu valides en colonnes B tu as la forme "lettres capitales"

A+
Michel

 

[Ronan]

Bonjour,

Ou alors, comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
'Si la cellule est vide on quitte le programme
If Target.Value = Empty Then Exit Sub
'Si la cellule est dans la colonne 1
If Target.Column = 1 Then
'1ère lettre du mot en majuscule
Target.Value = Application.Proper(Target.Value)
'Si la cellule est dans la colonne 2
ElseIf Target.Column = 2 Then
'Mot entier en majuscule
Target.Value = UCase(Target.Value)
End If
End Sub


@+

Ronan

 

[Edouard]

Merci Michel et Ronan Ca marche
la solution de Ronan correspond plus à mon besoin