InputBox dans forumle de remplacement
Bonjour le forum,
J'ai cette formule :
Range("A1:A5").Replace What:="anti", Replacement:="", LookAt:=xlPart Je voudrais faire en sorte, que quand j'execute la macro, un inputbox me demandera la colonne dans laquelle je voudrais supprimer le mot, et puis me demander quel mot il faut remplacer et par quoi
enfait c'est integrer un imput box qui pourra rendre ce code facilement modifiable, coté ange et coté quoi remplacer
Merci beacoup
Bonsoir,
essaye ce code:
Sub modifier()
'Macro par Dan pour georgesme le 04/06/08
Dim col As String, vmot As String, nmot As String
On Error Resume Next
col = InputBox(prompt:="Indiquer la référence de la colonne")
vmot = InputBox("Quel mot concerné par le remplacement")
nmot = InputBox("Par quel mot voulez-vous remplacer")
Range(col & ":" & col).Replace What:=vmot, Replacement:=nmot, LookAt:=xlPart
End SubOn pourrais bien entendu instaurer des contrôles pour vérifier que les données sont bien entrées. Mais vois d'abord si cela te convient.
A te relire
Dan
Salut nad, j'ai essayé ce code, mais ca n'a pas marché
j'ai mi dans la colonne A .. A1 = A A2 = B ......
jai lancé le code , colonne de reference j'ai essayé A et 1 , et j'ai mi remplacer A pr S mais ca marche pas , ca fait rien en fait .
Merci beacoup quand meme j'espere qu'on trouvera ce qui va pas
Georges
Salut,
Chez moi, ça marche très bien, essaye avec mon fichier
J'ai rajouté dans le code VBA des valeurs par défaut aux InputBox afin que tu vois un exemple.
Dis nous si cela fonctionne.
Re,
Concernant les inputbox :
La première concerne la colonne de référence et doit être une lettre.
La deuxième te demande le mot à changer
La troisème te demande le nouveau mot
Vois le fichier de Haddiman qui fonctionne avec le code que je t'ai proposé.
A te relire
Dan
Merci beacoup ca marche trés bien , je sais pas pourquoi ca marchai pas avant :s
Mais la c'est bon , merci Hadidman et Nad