Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2598 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1818510
bent_kati
Posté le 28-11-2008 à 16:14:14  profilanswer
 

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

mood
Publicité
Posté le 28-11-2008 à 16:14:14  profilanswer
 

n°1819039
otobox
Maison fondée en 2005
Posté le 29-11-2008 à 14:29:06  profilanswer
 

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


 
En mieux : (déclaration des variables)

Code :
  1. Sub Macro4()
  2. Dim Choix As String
  3. Dim Quoi As String
  4. Quoi = "Paris" 'Indiquer ici le nom de la ville qui doit être remplacé
  5. Choix = InputBox("Saisissez un nouveau compte" )
  6.     Columns("D:D" ).Select
  7.     Selection.Replace What:=Quoi, Replacement:=Choix
  8. 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

Aller à :
Ajouter une réponse
  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 autrecomplèter le texte saisi par l'utilisateur sous access 2000
[SQL Server] Remplacer le nom d'une table dans des procédures stockéesRemplacer des / par des - sans perdre la valeur dans le champs via SQL
[WSH] Resultat de commande, remplacer le DelimsRemplacer une chaine de charactères
gif apparait/remplacer en js ou css lorsque souris pointe lienRemplacer une DLL (.net) au runtime par une nouvelle version
Plus de sujets relatifs à : Remplacer un mot par ce qui a été saisi en InputBox


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR