Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4 caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4 caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4 caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonsoir Péhemme,
Cherche la position de ". "
pos = instr(...,". ")
et remplace les pos+1 premiers caractères par rien.
if pos > 0 then
... = mid(... , pos+2, len(...))
end if
... étant chacune de test cellules concernées.
Non testé :
sub test()
for lig = range("A65535").end(xlup).row to 3 step -1
if range("A" & lig) <> "" then
with range("A" & lig)
pos = instr(.text, ". ")
if pos > 0 then .text = mid(.text , pos+2, len(.text))
end with
end if
next lig
end sub
@+
FxM
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom
de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonsoir Péhemme,
Cherche la position de ". "
pos = instr(...,". ")
et remplace les pos+1 premiers caractères par rien.
if pos > 0 then
... = mid(... , pos+2, len(...))
end if
... étant chacune de test cellules concernées.
Non testé :
sub test()
for lig = range("A65535").end(xlup).row to 3 step -1
if range("A" & lig) <> "" then
with range("A" & lig)
pos = instr(.text, ". ")
if pos > 0 then .text = mid(.text , pos+2, len(.text))
end with
end if
next lig
end sub
@+
FxM
Péhemme a écrit :
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom
de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonsoir Péhemme,
Cherche la position de ". "
pos = instr(...,". ")
et remplace les pos+1 premiers caractères par rien.
if pos > 0 then
... = mid(... , pos+2, len(...))
end if
... étant chacune de test cellules concernées.
Non testé :
sub test()
for lig = range("A65535").end(xlup).row to 3 step -1
if range("A" & lig) <> "" then
with range("A" & lig)
pos = instr(.text, ". ")
if pos > 0 then .text = mid(.text , pos+2, len(.text))
end with
end if
next lig
end sub
@+
FxM
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom
de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonsoir Péhemme,
Cherche la position de ". "
pos = instr(...,". ")
et remplace les pos+1 premiers caractères par rien.
if pos > 0 then
... = mid(... , pos+2, len(...))
end if
... étant chacune de test cellules concernées.
Non testé :
sub test()
for lig = range("A65535").end(xlup).row to 3 step -1
if range("A" & lig) <> "" then
with range("A" & lig)
pos = instr(.text, ". ")
if pos > 0 then .text = mid(.text , pos+2, len(.text))
end with
end if
next lig
end sub
@+
FxM
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom
de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonsoir Péhemme,
Cherche la position de ". "
pos = instr(...,". ")
et remplace les pos+1 premiers caractères par rien.
if pos > 0 then
... = mid(... , pos+2, len(...))
end if
... étant chacune de test cellules concernées.
Non testé :
sub test()
for lig = range("A65535").end(xlup).row to 3 step -1
if range("A" & lig) <> "" then
with range("A" & lig)
pos = instr(.text, ". ")
if pos > 0 then .text = mid(.text , pos+2, len(.text))
end with
end if
next lig
end sub
@+
FxM
Péhemme a écrit :
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom
de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonsoir Péhemme,
Cherche la position de ". "
pos = instr(...,". ")
et remplace les pos+1 premiers caractères par rien.
if pos > 0 then
... = mid(... , pos+2, len(...))
end if
... étant chacune de test cellules concernées.
Non testé :
sub test()
for lig = range("A65535").end(xlup).row to 3 step -1
if range("A" & lig) <> "" then
with range("A" & lig)
pos = instr(.text, ". ")
if pos > 0 then .text = mid(.text , pos+2, len(.text))
end with
end if
next lig
end sub
@+
FxM
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom
de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier
(soit 5 caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat
de rugby (même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant, comment en VBA puis-je supprimer ces 4 et/ou 5 caractères
devant le nom de la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier
(soit 5 caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat
de rugby (même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant, comment en VBA puis-je supprimer ces 4 et/ou 5 caractères
devant le nom de la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier
(soit 5 caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat
de rugby (même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant, comment en VBA puis-je supprimer ces 4 et/ou 5 caractères
devant le nom de la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier
(soit 5 caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat
de rugby (même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant, comment en VBA puis-je supprimer ces 4 et/ou 5 caractères
devant le nom de la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier
(soit 5 caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat
de rugby (même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant, comment en VBA puis-je supprimer ces 4 et/ou 5 caractères
devant le nom de la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier
(soit 5 caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat
de rugby (même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant, comment en VBA puis-je supprimer ces 4 et/ou 5 caractères
devant le nom de la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4 caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4 caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4 caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonjour Michel,
J'arrive après la bagarre, avec une autre option possible, une fonction
perso :
Function Club(Import)
Application.Volatile
Club = Split(Import, " ")(2)
End Function
Tu peux l'utiliser aussi bien dans une feuille de calcul que dans une
macro.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom
de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonjour Michel,
J'arrive après la bagarre, avec une autre option possible, une fonction
perso :
Function Club(Import)
Application.Volatile
Club = Split(Import, " ")(2)
End Function
Tu peux l'utiliser aussi bien dans une feuille de calcul que dans une
macro.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom
de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Bonjour Michel,
J'arrive après la bagarre, avec une autre option possible, une fonction
perso :
Function Club(Import)
Application.Volatile
Club = Split(Import, " ")(2)
End Function
Tu peux l'utiliser aussi bien dans une feuille de calcul que dans une
macro.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le nom
de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Mon cher Frédéric,
Bien que né un sans-culottide, tu n'as pas pitié de moi.
Afin de ne pas mourir idiot, j'ai essayé ta fonction, "à la main" sur
une feuille de calcul.
Mis à part que tu me "vires" le 92 de Metro-Racing 92, cela fonctionne
(je l'essaierai dans la macro au sein d'une boucle, cela devrait le
faire) ; cependant, même en me référant à l'aide d'Excel, je n'ai rien
compris à son fonctionnement.
Si tu à quelques instants devant toi, merci de penser à un pôvre artisan
du VBA...
Bien amicalement
Michel
"FS" a écrit dans le message de
news:%Bonjour Michel,
J'arrive après la bagarre, avec une autre option possible, une
fonction perso :
Function Club(Import)
Application.Volatile
Club = Split(Import, " ")(2)
End Function
Tu peux l'utiliser aussi bien dans une feuille de calcul que dans une
macro.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier
(soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat
de rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le
nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Mon cher Frédéric,
Bien que né un sans-culottide, tu n'as pas pitié de moi.
Afin de ne pas mourir idiot, j'ai essayé ta fonction, "à la main" sur
une feuille de calcul.
Mis à part que tu me "vires" le 92 de Metro-Racing 92, cela fonctionne
(je l'essaierai dans la macro au sein d'une boucle, cela devrait le
faire) ; cependant, même en me référant à l'aide d'Excel, je n'ai rien
compris à son fonctionnement.
Si tu à quelques instants devant toi, merci de penser à un pôvre artisan
du VBA...
Bien amicalement
Michel
"FS" <fs@news.group> a écrit dans le message de
news:%23Pq2FdiJKHA.1340@TK2MSFTNGP05.phx.gbl...
Bonjour Michel,
J'arrive après la bagarre, avec une autre option possible, une
fonction perso :
Function Club(Import)
Application.Volatile
Club = Split(Import, " ")(2)
End Function
Tu peux l'utiliser aussi bien dans une feuille de calcul que dans une
macro.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier
(soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat
de rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le
nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Mon cher Frédéric,
Bien que né un sans-culottide, tu n'as pas pitié de moi.
Afin de ne pas mourir idiot, j'ai essayé ta fonction, "à la main" sur
une feuille de calcul.
Mis à part que tu me "vires" le 92 de Metro-Racing 92, cela fonctionne
(je l'essaierai dans la macro au sein d'une boucle, cela devrait le
faire) ; cependant, même en me référant à l'aide d'Excel, je n'ai rien
compris à son fonctionnement.
Si tu à quelques instants devant toi, merci de penser à un pôvre artisan
du VBA...
Bien amicalement
Michel
"FS" a écrit dans le message de
news:%Bonjour Michel,
J'arrive après la bagarre, avec une autre option possible, une
fonction perso :
Function Club(Import)
Application.Volatile
Club = Split(Import, " ")(2)
End Function
Tu peux l'utiliser aussi bien dans une feuille de calcul que dans une
macro.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier
(soit 5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat
de rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le
nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Re Michel,
Je n'avais pas remarqué le 92 après Racing-Metro :(
Si c'est important et s'il peut y avoir d'autres cas identiques, tu peux
modifier la fonction comme ceci :
Function Club(Import)
Application.Volatile
Club = Split(Import, ". ")(1)
End Function
Comment ça marche ?
La fonction Split (disponible depuis Excel 2000) découpe une chaîne de
caractères (ici le paramètre Import) en autant d'éléments qu'elle
rencontre un séparateur fourni en 2ème paramètre (ici la sous-chaîne '. '
: point, espace). Les éléments trouvés sont renvoyés dans un tableau de
base 0. Pas besoin de passer par une variable pour récupérer le tableau,
Split permet d'y accéder directement.
Dans tes données, la séquence '. ' découpe la chaîne fournie en deux
éléments (par exemple ' 9' et 'Racing-Metro 92').
Tu renvoies ensuite l'élément voulu (le 2ème) en y accédant par son indice
dans le tableau (1).
Voilà. Cette fonction (et sa copine Join) est très pratique. On peut lui
fournir pratiquement n'importe quoi comme paramètre, y compris des mots ou
des phrases entières. Associée à Join elle peut permettre de corriger ou
modifier un texte entier.
Par exemple :
Sub DemoSplitJoin()
Dim S
S = "Dans la chambre, le lit est rose, les murs sont roses, le sol est
rose."
'remplacer un mot
S = Join(Split(S, "rose"), "bleu")
MsgBox S
'remplacer un bout de phrase
S = Join(Split(S, ", les murs sont bleus"), _
", les papiers peints sont roses")
MsgBox S
'etc.
End Sub
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :Mon cher Frédéric,
Bien que né un sans-culottide, tu n'as pas pitié de moi.
Afin de ne pas mourir idiot, j'ai essayé ta fonction, "à la main" sur une
feuille de calcul.
Mis à part que tu me "vires" le 92 de Metro-Racing 92, cela fonctionne
(je l'essaierai dans la macro au sein d'une boucle, cela devrait le
faire) ; cependant, même en me référant à l'aide d'Excel, je n'ai rien
compris à son fonctionnement.
Si tu à quelques instants devant toi, merci de penser à un pôvre artisan
du VBA...
Bien amicalement
Michel
"FS" a écrit dans le message de
news:%Bonjour Michel,
J'arrive après la bagarre, avec une autre option possible, une fonction
perso :
Function Club(Import)
Application.Volatile
Club = Split(Import, " ")(2)
End Function
Tu peux l'utiliser aussi bien dans une feuille de calcul que dans une
macro.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit
5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le
nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Re Michel,
Je n'avais pas remarqué le 92 après Racing-Metro :(
Si c'est important et s'il peut y avoir d'autres cas identiques, tu peux
modifier la fonction comme ceci :
Function Club(Import)
Application.Volatile
Club = Split(Import, ". ")(1)
End Function
Comment ça marche ?
La fonction Split (disponible depuis Excel 2000) découpe une chaîne de
caractères (ici le paramètre Import) en autant d'éléments qu'elle
rencontre un séparateur fourni en 2ème paramètre (ici la sous-chaîne '. '
: point, espace). Les éléments trouvés sont renvoyés dans un tableau de
base 0. Pas besoin de passer par une variable pour récupérer le tableau,
Split permet d'y accéder directement.
Dans tes données, la séquence '. ' découpe la chaîne fournie en deux
éléments (par exemple ' 9' et 'Racing-Metro 92').
Tu renvoies ensuite l'élément voulu (le 2ème) en y accédant par son indice
dans le tableau (1).
Voilà. Cette fonction (et sa copine Join) est très pratique. On peut lui
fournir pratiquement n'importe quoi comme paramètre, y compris des mots ou
des phrases entières. Associée à Join elle peut permettre de corriger ou
modifier un texte entier.
Par exemple :
Sub DemoSplitJoin()
Dim S
S = "Dans la chambre, le lit est rose, les murs sont roses, le sol est
rose."
'remplacer un mot
S = Join(Split(S, "rose"), "bleu")
MsgBox S
'remplacer un bout de phrase
S = Join(Split(S, ", les murs sont bleus"), _
", les papiers peints sont roses")
MsgBox S
'etc.
End Sub
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :
Mon cher Frédéric,
Bien que né un sans-culottide, tu n'as pas pitié de moi.
Afin de ne pas mourir idiot, j'ai essayé ta fonction, "à la main" sur une
feuille de calcul.
Mis à part que tu me "vires" le 92 de Metro-Racing 92, cela fonctionne
(je l'essaierai dans la macro au sein d'une boucle, cela devrait le
faire) ; cependant, même en me référant à l'aide d'Excel, je n'ai rien
compris à son fonctionnement.
Si tu à quelques instants devant toi, merci de penser à un pôvre artisan
du VBA...
Bien amicalement
Michel
"FS" <fs@news.group> a écrit dans le message de
news:%23Pq2FdiJKHA.1340@TK2MSFTNGP05.phx.gbl...
Bonjour Michel,
J'arrive après la bagarre, avec une autre option possible, une fonction
perso :
Function Club(Import)
Application.Volatile
Club = Split(Import, " ")(2)
End Function
Tu peux l'utiliser aussi bien dans une feuille de calcul que dans une
macro.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :
Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit
5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le
nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel
Re Michel,
Je n'avais pas remarqué le 92 après Racing-Metro :(
Si c'est important et s'il peut y avoir d'autres cas identiques, tu peux
modifier la fonction comme ceci :
Function Club(Import)
Application.Volatile
Club = Split(Import, ". ")(1)
End Function
Comment ça marche ?
La fonction Split (disponible depuis Excel 2000) découpe une chaîne de
caractères (ici le paramètre Import) en autant d'éléments qu'elle
rencontre un séparateur fourni en 2ème paramètre (ici la sous-chaîne '. '
: point, espace). Les éléments trouvés sont renvoyés dans un tableau de
base 0. Pas besoin de passer par une variable pour récupérer le tableau,
Split permet d'y accéder directement.
Dans tes données, la séquence '. ' découpe la chaîne fournie en deux
éléments (par exemple ' 9' et 'Racing-Metro 92').
Tu renvoies ensuite l'élément voulu (le 2ème) en y accédant par son indice
dans le tableau (1).
Voilà. Cette fonction (et sa copine Join) est très pratique. On peut lui
fournir pratiquement n'importe quoi comme paramètre, y compris des mots ou
des phrases entières. Associée à Join elle peut permettre de corriger ou
modifier un texte entier.
Par exemple :
Sub DemoSplitJoin()
Dim S
S = "Dans la chambre, le lit est rose, les murs sont roses, le sol est
rose."
'remplacer un mot
S = Join(Split(S, "rose"), "bleu")
MsgBox S
'remplacer un bout de phrase
S = Join(Split(S, ", les murs sont bleus"), _
", les papiers peints sont roses")
MsgBox S
'etc.
End Sub
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :Mon cher Frédéric,
Bien que né un sans-culottide, tu n'as pas pitié de moi.
Afin de ne pas mourir idiot, j'ai essayé ta fonction, "à la main" sur une
feuille de calcul.
Mis à part que tu me "vires" le 92 de Metro-Racing 92, cela fonctionne
(je l'essaierai dans la macro au sein d'une boucle, cela devrait le
faire) ; cependant, même en me référant à l'aide d'Excel, je n'ai rien
compris à son fonctionnement.
Si tu à quelques instants devant toi, merci de penser à un pôvre artisan
du VBA...
Bien amicalement
Michel
"FS" a écrit dans le message de
news:%Bonjour Michel,
J'arrive après la bagarre, avec une autre option possible, une fonction
perso :
Function Club(Import)
Application.Volatile
Club = Split(Import, " ")(2)
End Function
Tu peux l'utiliser aussi bien dans une feuille de calcul que dans une
macro.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Péhemme a écrit :Bonjour à Tous,
Sous Vista/Excel 2003.
J'importe des données d'un site Web.
La colonne A enregistre à partir de la ligne 3 du texte sous la
présentation
:
1. Toulouse => lire : espace, 1, point, espace, Toulouse (soit 4
caractères
devant le nom de la ville)
jusqu'à :
9. Racing-Metro => même lecture
puis :
10. Montpellier => lire : espace, 1,0, point, espace, Montpellier (soit
5
caractères devant le nom de la ville)
jusqu'au 14ème inclus.
Les sportifs auront reconnus le classement du Top 14 du championnat de
rugby
(même structure pour la Pro D2).
J'ai bien demandé à la LNR de modifier sa présentation, mais en
attendant,
comment en VBA puis-je supprimer ces 4 et/ou 5 caractères devant le
nom de
la ville ?
Peut-être en repérant par la droite l'espace devant la ville et tout
supprimer ?
Merci d'avance de me mettre sur la voie.
Bien amicalement
Michel