Dans mon fichier ci-joint, je voudrai remplacer certain libellé par un autre.
Exemple :
Tous les libellés (en rouge) « CIONS REM N XXXXXXXXXXXXXXXXXXX » sera remplacé par
« COM REMISE EFFETS ».
Quelles la meilleure méthode pour effectuer cette tâche ?
J’avais pensé à mettre une macro qui me permet dans un 1er temps de supprimer les caractères de droite et ne garder « CIONS REM N » et dans un 2nd temps, remplacer ce libellé par «« COM REMISE EFFETS ».
Le problème, c’est que je ne sais pas l’appliquer à l’ensemble du fichier.
Voici ma macro :
En vous remerciant par avance de votre aide.
Exemple :
Tous les libellés (en rouge) « CIONS REM N XXXXXXXXXXXXXXXXXXX » sera remplacé par
« COM REMISE EFFETS ».
Quelles la meilleure méthode pour effectuer cette tâche ?
J’avais pensé à mettre une macro qui me permet dans un 1er temps de supprimer les caractères de droite et ne garder « CIONS REM N » et dans un 2nd temps, remplacer ce libellé par «« COM REMISE EFFETS ».
Le problème, c’est que je ne sais pas l’appliquer à l’ensemble du fichier.
Voici ma macro :
Code:
Sub test()
'Suppression des 20 dernires caractères'
ActiveCell = Left(ActiveCell, Len(ActiveCell) - 20)
'Remplacer par nouveau libellé'
ActiveCell.Replace What:="CIONS REM N", Replacement:="COMM REMISES EFFETS" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
Cells.Find(What:="CIONS REM N", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
En vous remerciant par avance de votre aide.