Nettoyage de cellules [Résolu]

IEDfactory 35 Messages postés lundi 12 décembre 2016Date d'inscription 25 septembre 2017 Dernière intervention - 22 sept. 2017 à 11:49 - Dernière réponse : IEDfactory 35 Messages postés lundi 12 décembre 2016Date d'inscription 25 septembre 2017 Dernière intervention
- 25 sept. 2017 à 08:04
Bonjour à tous et merci d'avance pour votre éventuel retour.

Je sui nul de chez nul en macro et j'ai un besoin récurrent qui, je pense, peut être résolu par une macro.
J'ai des fichiers avec des cellules qui contiennent à droite et à gauche des informations d'une suite de caractère qui est "-->".
Je voudrais faire une macro qui demande de supprimer à droite et juste derrière le "-->" tout ce qui existe.

Je pense que cela doit être facile pour des pros comme vous ! Pour moi c'est simplement infaisable !

Merci de votre aide...

Bien cordialement.

Je peux vous communiquez un fichier d'exemple...
Afficher la suite 

2 réponses

Répondre au sujet
gbinforme 14452 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 18 décembre 2017 Dernière intervention - 22 sept. 2017 à 22:45
0
Utile
Bonjour,

Voici une macro qui devrait réaliser ce que tu veux faire :
Public Sub Supr_droite()
Dim cel As Range, pos As Integer
Application.ScreenUpdating = False
For Each cel In ActiveSheet.UsedRange.Cells
    pos = InStr(cel, "-->")
    If pos > 0 Then cel.Value = Left(cel.Value, pos + 3)
Next cel
Application.ScreenUpdating = True
End Sub
Commenter la réponse de gbinforme
IEDfactory 35 Messages postés lundi 12 décembre 2016Date d'inscription 25 septembre 2017 Dernière intervention - 25 sept. 2017 à 08:04
0
Utile
Merci beaucoup ! Bonne semaine et bonne journée !
Commenter la réponse de IEDfactory