Microsoft 365 supprimer 2 derniers caractères des cellules finissant par (virgule espace)

[Aphrodyte]

Bonjour,
Tout est dans le titre :
Dans la colonne D, comment supprimer les 2 derniers caractères des seules cellules finissant par ", " (virgule espace) ?

 

[Bernard_XLD]

Bonjour Aphrodyte, le forum

En formule ou en macro ?

Bien cordialement, @+

 

[Aphrodyte]

Bonjour Aphrodyte, le forum

En formule ou en macro ?

Bien cordialement, @+

Bonjour Yeahou,

Plutôt macro, si possible.
En fait, c'est en complément d'une autre demande d'aujourd'hui à 12h57 dont je n'ai pas encore la réponse (concernant le même fichier).
Je pensais arriver toute seule à supprimer ces 2 caractères qui gênent et dont je n'avais pas parlés dans ma demande initiale.

Merci d'avance,

A+

 

[Bernard_XLD]

Re,

un code exemple, tu sélectionnes les cellules à traiter, tu lances la macro.

Bien cordialement, @+

Sub SupVirguleEspace()
Dim Cel_en_Cours As Range
For Each Cel_en_Cours In Selection
    If Right(Cel_en_Cours.Value, 2) = ", " Then Cel_en_Cours.Value = Left(Cel_en_Cours.Value, Len(Cel_en_Cours.Value) - 2)
Next Cel_en_Cours
End Sub

 

[Aphrodyte]

Super génial : c'est nickel.
Merci beaucoup et bonne soirée à vous.
Cordialement.