Fonction édition remplacer

[CG29]

Bonjour ;

Dans le cadre de mon travail sous word ou excel, j’édite un document qui me génère le nombre de jours maladie pour nos agents sous cette forme : nbre de jours + jour(s). Il est toujours sous cette forme !

Exemple : 11 jour(s) ; 1 jour(s)

Je voudrai trouver le code pour remplacer 1 jour(s) par 1 jour et 11 jour(s) par 11 jours (exemple) sauf que si j’exécute édition/remplacer 1 jour(s) par 1 jour il me remplace aussi 11 jours sous cette forme,

Voilà j’ai essayé de travailler mais j’ai pas réussi,

Pouvez-vous m’aider,

Merci

Sub jours()
Dim mapage
Set mapage = ActiveDocument.Bookmarks("\Page")
mapage.Select
    With Selection.Find
        .Text = "([!1-9])(1 jour(s))\"
        .Forward = True
		.Execute FindText:="([!1-9])(1 jour(s))\", ReplaceWith:="([!1-9])(1 jours)\", Replace:=wdReplaceAll
        .Wrap = wdFindStop
    End With
If Selection.Find.Execute = False Then
mapage.Select
Selection.Find.Execute FindText:="", ReplaceWith:="", Replace:=wdReplaceAll

End If
End Sub

 

[chasseur44]

Re : Fonction édition remplacer

Quand tu remplace, tu pense à cocher "cellule entière" ?

 

[CG29]

Re : Fonction édition remplacer

Je travaille plutôt sur word !