Boite de dialogue

Le
Pascal
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher Remplacer, de
manière à saisir une liste de mots à supprimer?
Merci





Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4903181
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des ;"),
";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher Remplacer,
de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Pascal
Le #4903161
Yes.
Un grand merci je commencais à avoir mal à la tête

"Daniel" %
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des ;"),
";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher Remplacer,
de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:50:43
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 12:08:28
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Pascal
Le #4903141
C'est une première approche.
Mais avec une useform et un Copier Coller (Car les données sont nombreuses)
tu crois que cela est possible

"Daniel" %
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des ;"),
";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher Remplacer,
de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:50:43
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 12:26:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Daniel
Le #4903101
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" 4690bbdc$0$25929$
C'est une première approche.
Mais avec une useform et un Copier Coller (Car les données sont
nombreuses) tu crois que cela est possible

"Daniel" %
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des ;"),
";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher
Remplacer, de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:50:43
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 12:26:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







Pascal
Le #4903071
et si la plage de cellules à remplacer contient sur certaines zones les mots
à supprimer???

"Daniel"
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" 4690bbdc$0$25929$
C'est une première approche.
Mais avec une useform et un Copier Coller (Car les données sont
nombreuses) tu crois que cela est possible

"Daniel" %
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des ;"),
";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher
Remplacer, de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:50:43
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 12:26:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:01:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:05:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




Daniel
Le #4903031
Le remplacement se comporte comme la commande manuelle. Pour un remplacement
partiel, il faut mettre :
lookat:=xlpart
et pour un remplacement total :
lookat:=xlwhole
exemple :
Range(Plage1).Replace c, "", lookat:=xlwhole
Si tu veux que tout soit paramétrable, il faut redévelopper toute la boîte
de dialogue XL et c'est un gros travail pour un dimanche...
Daniel
"Pascal" 4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel"
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" 4690bbdc$0$25929$
C'est une première approche.
Mais avec une useform et un Copier Coller (Car les données sont
nombreuses) tu crois que cela est possible

"Daniel" %
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des ;"),
";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher
Remplacer, de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:50:43
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 12:26:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:01:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:05:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com









anonymousA
Le #4902991
Bonjour,

Sans vouloir donner des leçons (car je n'en ai pas à donner) , il me
semble que tu aurais pu écrire "Pour une recherche partielle " plutot
que "Pour un remplacement partiel" et itou pour remplacement total.

Cordialement,

A+


Le remplacement se comporte comme la commande manuelle. Pour un remplacement
partiel, il faut mettre :
lookat:=xlpart
et pour un remplacement total :
lookat:=xlwhole
exemple :
Range(Plage1).Replace c, "", lookat:=xlwhole
Si tu veux que tout soit paramétrable, il faut redévelopper toute la boîte
de dialogue XL et c'est un gros travail pour un dimanche...
Daniel
"Pascal" 4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel"
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" 4690bbdc$0$25929$
C'est une première approche.
Mais avec une useform et un Copier Coller (Car les données sont
nombreuses) tu crois que cela est possible

"Daniel" %
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des ;"),
";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher
Remplacer, de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:50:43
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 12:26:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:01:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:05:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com













Pascal
Le #4902961
Non non Merci je vais me débrouiller avec tes précieuses infos.
Merci et Bon Dimanche

"Daniel"
Le remplacement se comporte comme la commande manuelle. Pour un
remplacement partiel, il faut mettre :
lookat:=xlpart
et pour un remplacement total :
lookat:=xlwhole
exemple :
Range(Plage1).Replace c, "", lookat:=xlwhole
Si tu veux que tout soit paramétrable, il faut redévelopper toute la boîte
de dialogue XL et c'est un gros travail pour un dimanche...
Daniel
"Pascal" 4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel"
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" 4690bbdc$0$25929$
C'est une première approche.
Mais avec une useform et un Copier Coller (Car les données sont
nombreuses) tu crois que cela est possible

"Daniel" %
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des
;"), ";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher
Remplacer, de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:50:43
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 12:26:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:01:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:05:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:54:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:55:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






jps
Le #4902951
bouhhhhhh
qu'il est mauvais, ce daniel!
l'est comme modeste qui trouve des formules là où d'autres pensent que sans
macro, pas de salut....plus aucun doute sur lui : il est assurément et
définitivement le "cancre d'un autre"
jps

"anonymousA" 4690cea9$0$25952$
Bonjour,

Sans vouloir donner des leçons (car je n'en ai pas à donner) , il me
semble que tu aurais pu écrire "Pour une recherche partielle " plutot que
"Pour un remplacement partiel" et itou pour remplacement total.

Cordialement,

A+


Le remplacement se comporte comme la commande manuelle. Pour un
remplacement partiel, il faut mettre :
lookat:=xlpart
et pour un remplacement total :
lookat:=xlwhole
exemple :
Range(Plage1).Replace c, "", lookat:=xlwhole
Si tu veux que tout soit paramétrable, il faut redévelopper toute la
boîte de dialogue XL et c'est un gros travail pour un dimanche...
Daniel
"Pascal" 4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel"
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" 4690bbdc$0$25929$
C'est une première approche.
Mais avec une useform et un Copier Coller (Car les données sont
nombreuses) tu crois que cela est possible

"Daniel" %
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des
;"), ";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher
Remplacer, de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:50:43
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 12:26:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:01:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:05:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com














Daniel
Le #4902941
Bonjour.
C'est tout à fait vrai que je suis mauvais, mais, le sachant, je suis
content des solutions que je peux trouver même si elles ne sont pas "THE"
solution ;-))). Cest pareil pour le piano; je suis assez nul, mais j'adore
en jouer, même si je casse les oreilles de mon entourage.
Daniel
"jps" a écrit dans le message de news:

bouhhhhhh
qu'il est mauvais, ce daniel!
l'est comme modeste qui trouve des formules là où d'autres pensent que
sans macro, pas de salut....plus aucun doute sur lui : il est assurément
et définitivement le "cancre d'un autre"
jps

"anonymousA" 4690cea9$0$25952$
Bonjour,

Sans vouloir donner des leçons (car je n'en ai pas à donner) , il me
semble que tu aurais pu écrire "Pour une recherche partielle " plutot que
"Pour un remplacement partiel" et itou pour remplacement total.

Cordialement,

A+


Le remplacement se comporte comme la commande manuelle. Pour un
remplacement partiel, il faut mettre :
lookat:=xlpart
et pour un remplacement total :
lookat:=xlwhole
exemple :
Range(Plage1).Replace c, "", lookat:=xlwhole
Si tu veux que tout soit paramétrable, il faut redévelopper toute la
boîte de dialogue XL et c'est un gros travail pour un dimanche...
Daniel
"Pascal" 4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel"
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" 4690bbdc$0$25929$
C'est une première approche.
Mais avec une useform et un Copier Coller (Car les données sont
nombreuses) tu crois que cela est possible

"Daniel" %
Bonjour.
Essaie :

Sub RemplacerListe()
Dim c As Range, Liste
Liste = Split(InputBox("Entrez la liste de mots séparés par des
;"), ";")
For Each Item In Liste
Selection.Replace Item, ""
Next Item
End Sub

Cordialement.
Daniel
"Pascal" 4690a7ae$0$5081$
C'est encore moi
Est-il possible de créer une boite de dialogue Type Rechercher
Remplacer, de manière à saisir une liste de mots à supprimer?
Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:00:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 11:50:43
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 12:26:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:01:07
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-4, 06/07/2007
Analyse le : 08/07/2007 13:05:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
















Publicité
Poster une réponse
Anonyme