nettoyage de cellules Résolu/Fermé

Question

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...

gbinforme · Answer

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

IEDfactory · Answer

Merci beaucoup ! Bonne semaine et bonne journée !

Nettoyage de cellules

2 réponses

Discussions similaires