Boucle avec rechercher-Coller

Arsene12 · 08/05/2008, 16h29

Bonjour, je fais une macro qui utilise 2 signets et la fonction "Selection.Copy". Je voudrai ensuite créer une bouche qui recherche un terme et qui le remplace par "Selection.Paste". Quel est le code pour exécuter cette boucle? Merci de votre aide.

Heureux-oli · 08/05/2008, 21h37

Salut,

Perso je ne ferais pas un .copy de la sélection mais plutôt ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim stTemp1 as string
stTemp1 = Selection.range.text

Et pour le "coller", il suffit de faire l'inverse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Range.text = stTemp1

C'est plus maléable qu'un copy.

Arsene12 · 09/05/2008, 06h15

Cette méthode ne marche pas. Lorsque je met ".Replacement.Text = stTemp1", la réponse que j'obtiens est "MyRange".

Heureux-oli · 09/05/2008, 06h31

Sans nous donner de code, il est très difficile de te venir en aide.

Je viens de faire le test et chez moi tout baigne.

Maintenant, c'est probablement la façon dont tu sélectionnes le texte qui n'est pas bonne.

Sepia · 11/05/2008, 03h27

As-tu penser à regarder ce que pouvais te faire directement un Rechercher avec un remplacement sur le contenu de ton signet ? Ca semble plus simple.

08/05/2008, 16h29	#1
Arsene12 Nouveau Membre du Club Inscription : février 2003 Messages : 164 Détails du profil Informations forums : Inscription : février 2003 Messages : 164 Points : 30 Points : 30	Boucle avec rechercher-Coller Bonjour, je fais une macro qui utilise 2 signets et la fonction "Selection.Copy". Je voudrai ensuite créer une bouche qui recherche un terme et qui le remplace par "Selection.Paste". Quel est le code pour exécuter cette boucle? Merci de votre aide.
	00

09/05/2008, 06h31	#4
Heureux-oli Responsable Word Olivier Lebeau Contrôleur d'industrie Inscription : février 2006 Messages : 17 361 Détails du profil Informations personnelles : Nom : Olivier Lebeau Âge : 47 Localisation : Belgique Informations professionnelles : Activité : Contrôleur d'industrie Secteur : Aéronautique - Marine - Espace - Armement Informations forums : Inscription : février 2006 Messages : 17 361 Points : 29 281 Points : 29 281	Sans nous donner de code, il est très difficile de te venir en aide. Je viens de faire le test et chez moi tout baigne. Maintenant, c'est probablement la façon dont tu sélectionnes le texte qui n'est pas bonne. __________________ J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ? Débutez en VBA Mes articles Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
	00

11/05/2008, 03h27	#5
Sepia Rédacteur/Modérateur JF Jousseaume Inscription : octobre 2007 Messages : 2 390 Détails du profil Informations personnelles : Nom : JF Jousseaume Âge : 48 Localisation : France Informations professionnelles : Secteur : High Tech - Éditeur de logiciels Informations forums : Inscription : octobre 2007 Messages : 2 390 Points : 3 356 Points : 3 356	Rechercher/Remplacer As-tu penser à regarder ce que pouvais te faire directement un Rechercher avec un remplacement sur le contenu de ton signet ? Ca semble plus simple.
	00

09/05/2008, 06h15	#3
Arsene12 Nouveau Membre du Club Inscription : février 2003 Messages : 164 Détails du profil Informations forums : Inscription : février 2003 Messages : 164 Points : 30 Points : 30	Cette méthode ne marche pas. Lorsque je met ".Replacement.Text = stTemp1", la réponse que j'obtiens est "MyRange".
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email