Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Boite de dialogue

Boite de dialogue

13 réponses
Avatar
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
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" a écrit dans le message de news:
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





Avatar
Pascal
Yes.
Un grand merci je commencais à avoir mal à la tête

"Daniel" a écrit dans le message de news:
%
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" a écrit dans le message de news:
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


Avatar
Pascal
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
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


Avatar
Daniel
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" a écrit dans le message de news:
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
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







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

"Daniel" a écrit dans le message de news:

Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" a écrit dans le message de news:
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
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




Avatar
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" a écrit dans le message de news:
4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel" a écrit dans le message de news:

Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" a écrit dans le message de news:
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
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









Avatar
anonymousA
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" a écrit dans le message de news:
4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel" a écrit dans le message de news:

Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" a écrit dans le message de news:
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
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













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

"Daniel" a écrit dans le message de news:

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" a écrit dans le message de news:
4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel" a écrit dans le message de news:

Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" a écrit dans le message de news:
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
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






Avatar
jps
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" a écrit dans le message de news:
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" a écrit dans le message de news:
4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel" a écrit dans le message de news:

Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" a écrit dans le message de news:
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
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














Avatar
Daniel
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" a écrit dans le message de news:
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" a écrit dans le message de news:
4690c50b$0$5111$
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???

"Daniel" a écrit dans le message de news:

Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" a écrit dans le message de news:
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
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
















1 2