Fonction édition remplacer

  • Initiateur de la discussion Initiateur de la discussion CG29
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

CG29

XLDnaute Junior
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
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
249
Réponses
7
Affichages
871
Réponses
5
Affichages
642
Réponses
3
Affichages
952
Réponses
2
Affichages
1 K
Retour