Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
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

3 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
jps
:-)))))
sur ce, je file à wimbledon : les organisateurs me demande d'affronter le
vainqueur de federer/nadal, innovant ainsi en créant, pour la première fois
dans un tournoi du grand chelem, une super finale
si tu viens, daniel, amène ton piano : il y a une petite fête après
jps

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

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




















Avatar
anonymousA
Moi, je n'ai pas prétendu que tu étais mauvais. D'ailleurs, pour
paraphraser un célèbre auteur local " on est toujours l'einstein de l'un
et .... " , je me comprends.
Je faisais juste une petite précision amicale, mais jps en tant que
polémiste en chef, la nostalgie des joutes oratoires d'antan, sans
doute, a voulu introduire ( si si, j'insiste sur ce terme pouvant
porter à controverse ) un coin ( comme le cèlèbre Président du ..) entre
les posts.
Soyez tous remerciés de vos contributions .

Cordialement,


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



















Avatar
Daniel
Y a pas d'offense. Je l'ai pris comme jps l'entendait, pour plaisanter. Et
d'ailleurs sans illusion sur mes capacités (à mon âge, ce serait dommage).
Tes remarques sont justes. J'ai écris en ayant en tête "replace" et "xlpart"
=> "remplacement partiel", mais effectivement, ça peut prêter à confusion.
Cordialement.
Daniel
"anonymousA" a écrit dans le message de news:
4690e305$0$25952$
Moi, je n'ai pas prétendu que tu étais mauvais. D'ailleurs, pour
paraphraser un célèbre auteur local " on est toujours l'einstein de l'un
et .... " , je me comprends.
Je faisais juste une petite précision amicale, mais jps en tant que
polémiste en chef, la nostalgie des joutes oratoires d'antan, sans doute,
a voulu introduire ( si si, j'insiste sur ce terme pouvant porter à
controverse ) un coin ( comme le cèlèbre Président du ..) entre
les posts.
Soyez tous remerciés de vos contributions .

Cordialement,


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