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 Afficher boite dialogue

Afficher boite dialogue

7 réponses
Avatar
HUA Seng
Bonjour à tous,

Je cherche une code, pour afficher la bte de dialogue de excel ( excel
2002 ) chercher / remplacer, par VBA. je m'explique, j'ai un tableau qui
contienne bcp de données, que je vaux remplacer certaines données qui se
trouvent pêle mêle dans une colonne, ex: dunkerque remplacer par c25.

merci d'avance.
seng
Signaler un problème avec ce contenu

7 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
Avatar
JB
Bonjour,

Une solution simple (sans User Form)

Sub Remplace()
x = InputBox("Mot à remplacer?")
y = InputBox("Nouveau mot?")

Selection.Replace What:=x, Replacement:=y, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
End Sub


Cordialement JB
Avatar
JB
Bonjour,

Version avec UserForm1

http://cjoint.com/?mhiP1iWBaH


JB
Avatar
JB
Bonjour,


Version avec Formulaire

http://cjoint.com/?mhiUkD3jfG


JB
Avatar
ChrisV
Bonjour HUA Seng,

Sub test()
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub


ChrisV


"HUA Seng" a écrit dans le message de news:
43968b68$0$18584$
Bonjour à tous,

Je cherche une code, pour afficher la bte de dialogue de excel ( excel
2002 ) chercher / remplacer, par VBA. je m'explique, j'ai un tableau qui
contienne bcp de données, que je vaux remplacer certaines données qui se
trouvent pêle mêle dans une colonne, ex: dunkerque remplacer par c25.

merci d'avance.
seng



Avatar
HUA Seng
Bonsoir,

Merci à vs ts pour les réponses, ça fonctionne à merveille. Une question,
tjrs concernant lea bte de dialogue, comment écrire, en vba, pour qu'il s'
affiche en permanence, le tps que je suis dans mon tableau, càd, après avoir
chercher/remplacer les mots, il continue d'afficher pr que je puisse
continuer à chercher/remplacer d' autres mots.

Merci d' avance.
Seng




"ChrisV" a écrit dans le message de news:
%23Fir4Zx%
Bonjour HUA Seng,

Sub test()
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub


ChrisV


"HUA Seng" a écrit dans le message de news:
43968b68$0$18584$
Bonjour à tous,

Je cherche une code, pour afficher la bte de dialogue de excel ( excel
2002 ) chercher / remplacer, par VBA. je m'explique, j'ai un tableau qui
contienne bcp de données, que je vaux remplacer certaines données qui se
trouvent pêle mêle dans une colonne, ex: dunkerque remplacer par c25.

merci d'avance.
seng







Avatar
michdenis
Bonjour Hua,

'-----------------------------------
Sub test()

Dim ChercherMot As String
Dim RemplacerMot As String

ChercherMot = "toto"
RemplacerMot = "Titi"

'paramètre 3
'Le premier 1 = Cellule entière ' ou 2
'paramètre 4
'le deuxième 1 = Respecter la case, 2 sans respect de la case
'paramètre 5
'Le 1 = recherche par ligne, 3 par colonnes
Application.Dialogs(xlDialogFormulaReplace).Show "bozo", "oto", 2, 2, 3

End Sub
'-----------------------------------


Salutations!



"HUA Seng" a écrit dans le message de news: 43968b68$0$18584$
Bonjour à tous,

Je cherche une code, pour afficher la bte de dialogue de excel ( excel
2002 ) chercher / remplacer, par VBA. je m'explique, j'ai un tableau qui
contienne bcp de données, que je vaux remplacer certaines données qui se
trouvent pêle mêle dans une colonne, ex: dunkerque remplacer par c25.

merci d'avance.
seng
Avatar
ChrisV
Bonjour HUA Seng,

Avec la plage de données (ton tableau) nommée ici Zn
Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [Zn]) Is Nothing Then _
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub


ChrisV


"HUA Seng" a écrit dans le message de news:
439733e8$0$18584$
Bonsoir,

Merci à vs ts pour les réponses, ça fonctionne à merveille. Une question,
tjrs concernant lea bte de dialogue, comment écrire, en vba, pour qu'il s'
affiche en permanence, le tps que je suis dans mon tableau, càd, après
avoir chercher/remplacer les mots, il continue d'afficher pr que je puisse
continuer à chercher/remplacer d' autres mots.

Merci d' avance.
Seng




"ChrisV" a écrit dans le message de news:
%23Fir4Zx%
Bonjour HUA Seng,

Sub test()
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub


ChrisV


"HUA Seng" a écrit dans le message de news:
43968b68$0$18584$
Bonjour à tous,

Je cherche une code, pour afficher la bte de dialogue de excel ( excel
2002 ) chercher / remplacer, par VBA. je m'explique, j'ai un tableau qui
contienne bcp de données, que je vaux remplacer certaines données qui se
trouvent pêle mêle dans une colonne, ex: dunkerque remplacer par c25.

merci d'avance.
seng