Nettoyage de cellules

Résolu
IEDfactory Messages postés 36 Statut Membre -  
IEDfactory Messages postés 36 Statut Membre -
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...

2 réponses

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
    
    0
  2. IEDfactory Messages postés 36 Statut Membre
     
    Merci beaucoup ! Bonne semaine et bonne journée !
    0