Changer texte

Bonjour

Je bataille depuis 3 heure pour changer du texte.

Dans une colonne j'ai la civilité des personnes comme ceci

Homme

Homme

Femme

Homme

Homme

Homme

Et je voudrais le changer comme ceci:

M,

M,

Mme

M,

M,

M,

Je vous remercie

Max

Bonjour

il te suffit de cliquer sur " ctrl et F " pour remplacer Homme par Mr

Bonjour Bruno

J'avais ctrl+F mais a chaque fois il me met un message d'erreur

"Nous n'avons pas trouvé ce que vous cherchez Veuillez cliquer sur Option pour approfondir

Je peu appuyer sur option et changer pour essayer mais sa ne donne rien?

Merci

Bonjour valmax, CB60,

C'est a cause des retours chariots que tu as dans tes colonnes, voici un code a mettre dans ta feuille.

Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim x As String
If Target.Count > 1 Then Exit Sub
x = Replace(Trim(Target), Chr(13), " ")
    If Trim(UCase(Trim(x))) = "HOMME" Then Target = "M"
    If Trim(UCase(Trim(x))) = "FEMME" Then Target = "Mme"
End Sub

Bonjour Florian

Nickel je te remercie

Bonne journée

Max

Bonjour,

J'ai testé avec le CTRL F Remplacer et aucune option cochée çà fonctionne de mon coté.

remarque en passant l'abréviation de Monsieur en français c'est M. pas M,