Sujet Précédent Sujet Suivant

Nettoyage de cellules

Résolu/Fermé
IEDfactory Messages postés 36 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 29 mars 2018 - 22 sept. 2017 à 11:49
IEDfactory Messages postés 36 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 29 mars 2018 - 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...
A voir également:

2 réponses

Réponse 1 / 2
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
22 sept. 2017 à 22:45
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
Réponse 2 / 2
IEDfactory Messages postés 36 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 29 mars 2018
25 sept. 2017 à 08:04
Merci beaucoup ! Bonne semaine et bonne journée !
0