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

Marsh Posté le 28-11-2008 à 16:14:14

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!!

Marsh Posté le 28-11-2008 à 16:14:14

Marsh Posté le 29-11-2008 à 14:29:06

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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *