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
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
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
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
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a7ae$0$5081$ba4acef3@news.orange.fr...
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
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
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
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a7ae$0$5081$ba4acef3@news.orange.fr...
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
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
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
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23qEKaSUwHHA.1524@TK2MSFTNGP06.phx.gbl...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a7ae$0$5081$ba4acef3@news.orange.fr...
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
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
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
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
4690bbdc$0$25929$ba4acef3@news.orange.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23qEKaSUwHHA.1524@TK2MSFTNGP06.phx.gbl...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a7ae$0$5081$ba4acef3@news.orange.fr...
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
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
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
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OWEI73UwHHA.484@TK2MSFTNGP06.phx.gbl...
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
4690bbdc$0$25929$ba4acef3@news.orange.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23qEKaSUwHHA.1524@TK2MSFTNGP06.phx.gbl...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a7ae$0$5081$ba4acef3@news.orange.fr...
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
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
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
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690c50b$0$5111$ba4acef3@news.orange.fr...
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OWEI73UwHHA.484@TK2MSFTNGP06.phx.gbl...
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
4690bbdc$0$25929$ba4acef3@news.orange.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23qEKaSUwHHA.1524@TK2MSFTNGP06.phx.gbl...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a7ae$0$5081$ba4acef3@news.orange.fr...
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
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
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
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690c50b$0$5111$ba4acef3@news.orange.fr...
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OWEI73UwHHA.484@TK2MSFTNGP06.phx.gbl...
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
4690bbdc$0$25929$ba4acef3@news.orange.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23qEKaSUwHHA.1524@TK2MSFTNGP06.phx.gbl...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a7ae$0$5081$ba4acef3@news.orange.fr...
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
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
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
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690c50b$0$5111$ba4acef3@news.orange.fr...
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OWEI73UwHHA.484@TK2MSFTNGP06.phx.gbl...
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
4690bbdc$0$25929$ba4acef3@news.orange.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23qEKaSUwHHA.1524@TK2MSFTNGP06.phx.gbl...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a7ae$0$5081$ba4acef3@news.orange.fr...
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
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
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
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" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4690cea9$0$25952$ba4acef3@news.orange.fr...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690c50b$0$5111$ba4acef3@news.orange.fr...
et si la plage de cellules à remplacer contient sur certaines zones les
mots à supprimer???
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OWEI73UwHHA.484@TK2MSFTNGP06.phx.gbl...
Si ta liste se trouve sur une feuille, on peut le faire :
http://cjoint.com/?himZwSKQgb
Cordialement.
Daniel
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
4690bbdc$0$25929$ba4acef3@news.orange.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23qEKaSUwHHA.1524@TK2MSFTNGP06.phx.gbl...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
4690a7ae$0$5081$ba4acef3@news.orange.fr...
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
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