Bonjour,
Tout est dans le titre :
Dans la colonne D, comment supprimer les 2 derniers caractères des seules cellules finissant par ", " (virgule espace) ?
un code exemple, tu sélectionnes les cellules à traiter, tu lances la macro.
Bien cordialement, @+
VB:
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
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.
un code exemple, tu sélectionnes les cellules à traiter, tu lances la macro.
Bien cordialement, @+
VB:
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