Nettoyage de cellules
Résolu
IEDfactory
Messages postés
36
Statut
Membre
-
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...
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:
- Nettoyage de cellules
- Nettoyage pc lent - Guide
- Nettoyage de disque - Guide
- Nettoyage mac - Guide
- Nettoyage - Guide
- Nettoyage pc gratuit - Guide
2 réponses
Bonjour,
Voici une macro qui devrait réaliser ce que tu veux faire :
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
