BDD excel rechercher remplacer [Résolu/Fermé]

Signaler
-
 technibase -
Bonjour,
Alors sous excel j'ai une colonne x , dans cette colonne je doit remplacer tout les mots A par le chiffre 1 puis tout les mots B par le chiffre 2 .... tout les mot J par le chiffre 11 etc...
Jusqu'a maintenant je faisait un rechercher remplacer sur chaque mot mais rapidement j'ai trouvé ca long.
Je Voudrais en une seule saisi remplacer tout les mot A par 1, B par 2 etc...
Quelle est la possibilité sous excel pour faire cela ?

Merci

2 réponses

Bonjour!
voici ma proposition. Cas où les noms sont dans la colonne A

sub remplacer()
'
'

'
a = sheets.count
for b = 1 to a
if (not ((range ("A" & b)) = "")) then
if (range ("A" & b)) = "mot A" then
(range ("A" & b)) = "1"
end if
if (range ("A" & b)) = "mot B" then
(range ("A" & b)) = "2"
end if
if (range ("A" & b)) = "mot C" then
(range ("A" & b)) = "3"
end if
if (range ("A" & b)) = "mot D" then
(range ("A" & b)) = "4"
end if
else
goto 10
end if
next
10 end sub