Signaler

Nettoyage de cellules [Résolu]

Posez votre question IEDfactory 35Messages postés lundi 12 décembre 2016Date d'inscription 25 septembre 2017 Dernière intervention - Dernière réponse le 25 sept. 2017 à 08:04 par IEDfactory
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...
Utile
+0
plus moins
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
Donnez votre avis
Utile
+0
plus moins
Merci beaucoup ! Bonne semaine et bonne journée !
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !