Trouver une occurence et ajouter un texte
TourmalineDeBraine
Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006
-
7 févr. 2006 à 14:38
TourmalineDeBraine Messages postés 2 Date d'inscription mardi 7 février 2006 Statut Membre Dernière intervention 8 février 2006 - 8 févr. 2006 à 09:20
TourmalineDeBraine Messages postés 2 Date d'inscription mardi 7 février 2006 Statut Membre Dernière intervention 8 février 2006 - 8 févr. 2006 à 09:20
A voir également:
- Trouver une occurence et ajouter un texte
- Comment ajouter une zone de texte sur canva - Forum C# / .NET
- Sql ajouter une colonne dans un select - Forum SQL
- Ajouter un element dans un tableau java - Forum Java
- Roulettechat texte - Forum PHP
- Ajouter un champ dans une table sql ✓ - Forum ASP / ASP.NET
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
78
7 févr. 2006 à 18:01
7 févr. 2006 à 18:01
Salut
Pas bien compris la relation entre "observation" et "manual PageBreak" ...
Pour rechercher l'emplacement d'une chaine de caractère, il y cette instruction :
Emplacement = Instr(DébutRecherche, TexteDansLeaquelRechercher, TexteArechercher)
Ensuite, il suffit de jouer avec les Mid ...
TextToFind = "observation"
Emplacement = Instr(MonDocTexte, TextToFind) ' 1ere recherche
Do While Emplacement > 0
MonDocTexte = Left(MonDocTexte, Emplacement + Len(TextToFind)) & _
"La chaine à insérer" & _
Mid(MonDocTexte, Emplacement + Len(TextToFind))
Emplacement = Instr(Emplacement + Len(TextToFind), MonDocTexte, TextToFind)
Loop
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Pas bien compris la relation entre "observation" et "manual PageBreak" ...
Pour rechercher l'emplacement d'une chaine de caractère, il y cette instruction :
Emplacement = Instr(DébutRecherche, TexteDansLeaquelRechercher, TexteArechercher)
Ensuite, il suffit de jouer avec les Mid ...
TextToFind = "observation"
Emplacement = Instr(MonDocTexte, TextToFind) ' 1ere recherche
Do While Emplacement > 0
MonDocTexte = Left(MonDocTexte, Emplacement + Len(TextToFind)) & _
"La chaine à insérer" & _
Mid(MonDocTexte, Emplacement + Len(TextToFind))
Emplacement = Instr(Emplacement + Len(TextToFind), MonDocTexte, TextToFind)
Loop
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
TourmalineDeBraine
Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006
8 févr. 2006 à 09:20
8 févr. 2006 à 09:20
Désolé pour l'énoncé. Pas facile d'être clair et concis. Et en plus je débute en VBA en glanant des infos partout ou je peux en fonction de mes besoins.
Voici le design (précision, il s'agit d'un doc Word2002) :
XXX Group Observations* Days Observed
------ ----- ------------------------------------------------
1 1 Normal 1,7
Le listing des observations qui suit peut prendre 1 ,2 voir 3 pages, mais ce n'est qu'en fin de liste, là ou j'ai inséré volontairement une PageBreak que doit venir l'info "* une ou plusieurs"
Un grand merci de m'aider.
TourmalineDeBraine
Voici le design (précision, il s'agit d'un doc Word2002) :
XXX Group Observations* Days Observed
------ ----- ------------------------------------------------
1 1 Normal 1,7
Le listing des observations qui suit peut prendre 1 ,2 voir 3 pages, mais ce n'est qu'en fin de liste, là ou j'ai inséré volontairement une PageBreak que doit venir l'info "* une ou plusieurs"
Un grand merci de m'aider.
TourmalineDeBraine