Remplacer un mot par ce qui a été saisi en InputBox

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Remplacer un mot par ce qui a été saisi en InputBox

bent_kati

Bonjour,

J'ai mis dans ma macro le code:
choix = InputBox("Saisissez une nouvelle ville" )
L'utilisateur saisit par ex "Lyon"
comment faire une macro qui selectionne la colonne D, et remplace le mot Paris par le mot saisi par l'utilisateur (ici Lyon).
Voici le code que j'ai fait :

Sub Macro4()
choix = InputBox("Saisissez un nouveau compte" )
Columns("D:D" ).Select
Selection.Find(What:="paris", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.Replace What:="paris", Replacement:="&choix", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
End Sub

il ne marche pas.
Merci beaucoup!!

Publicité

otobox

Maison fondée en 2005

Code :

Sub Macro4()
choix = InputBox("Saisissez un nouveau compte" )
Columns("D:D" ).Select
Selection.Replace What:="paris", Replacement:=choix
End Sub

En mieux : (déclaration des variables)

Code :

Sub Macro4()
Dim Choix As String
Dim Quoi As String
Quoi = "Paris" 'Indiquer ici le nom de la ville qui doit être remplacé
Choix = InputBox("Saisissez un nouveau compte" )
Columns("D:D" ).Select
Selection.Replace What:=Quoi, Replacement:=Choix
End Sub

(TIP : Double clic dans la fenêtre du code ci-dessus pour enlever les numéros de ligne

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Remplacer un mot par ce qui a été saisi en InputBox

Sujets relatifs
[Resolu]Une ame charitable pour me remplacer "oleacc.h"	Saisi clavier!!!!
Au click, remplacer un div par un autre	complèter le texte saisi par l'utilisateur sous access 2000
[SQL Server] Remplacer le nom d'une table dans des procédures stockées	Remplacer des / par des - sans perdre la valeur dans le champs via SQL
[WSH] Resultat de commande, remplacer le Delims	Remplacer une chaine de charactères
gif apparait/remplacer en js ou css lorsque souris pointe lien	Remplacer une DLL (.net) au runtime par une nouvelle version
Plus de sujets relatifs à : Remplacer un mot par ce qui a été saisi en InputBox

Page générée en 0.057 secondes