BDD excel rechercher remplacer
Résolu/Fermé
A voir également:
- BDD excel rechercher remplacer
- Rechercher ou entrer l'adresse - Guide
- Rechercher et remplacer word - Guide
- Liste déroulante excel - Guide
- Adresse IP locale : comment la trouver facilement - Guide
- Remplacer disque dur par ssd - Guide
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
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