Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu
Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu
Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu
Ca sera plus clair je pense...http://www.cijoint.fr/cjlink.php?file=cj20 0804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se prés ente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tube rcules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tube rcules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tube rcules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ca sera plus clair je pense...http://www.cijoint.fr/cjlink.php?file=cj20 0804/cijrfwJfCX.xls
"Lulu la Nantaise" <nos...@nospam.fr> a écrit dans le message de news:
e2tMIeSlIHA.4...@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se prés ente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tube rcules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tube rcules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tube rcules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ca sera plus clair je pense...http://www.cijoint.fr/cjlink.php?file=cj20 0804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se prés ente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tube rcules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tube rcules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tube rcules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" <nos...@nospam.fr> a écrit dans le message de news:
e2tMIeSlIHA.4...@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier complet,http://www.cijoint.fr/cjlin k.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'il faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" a écrit dans le message de news:
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" wrote:Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier complet,http://www.cijoint.fr/cjlin k.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'il faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
d4c3b7d3-1505-4414-9aea-2525baaf2...@m73g2000hsh.googlegroups.com...
Bonjour,
Dans une feuille vierge:
En B2: =DECALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: =DECALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: =DECALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" <nos...@nospam.fr> wrote:
Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" <nos...@nospam.fr> a écrit dans le message de news:
e2tMIeSlIHA.4...@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier complet,http://www.cijoint.fr/cjlin k.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'il faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" a écrit dans le message de news:
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" wrote:Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier
complet,http://www.cijoint.fr/cjlink.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'il
faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" a écrit dans le message de news:
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" wrote:Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier
complet,http://www.cijoint.fr/cjlink.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'il
faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
d4c3b7d3-1505-4414-9aea-2525baaf2...@m73g2000hsh.googlegroups.com...
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" <nos...@nospam.fr> wrote:
Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" <nos...@nospam.fr> a écrit dans le message de news:
e2tMIeSlIHA.4...@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier
complet,http://www.cijoint.fr/cjlink.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'il
faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" a écrit dans le message de news:
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" wrote:Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier
complet,http://www.cijoint.fr/cjlink.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'il
faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" a écrit dans le message de news:
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" wrote:Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier
complet,http://www.cijoint.fr/cjlink.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'il
faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
d4c3b7d3-1505-4414-9aea-2525baaf2...@m73g2000hsh.googlegroups.com...
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" <nos...@nospam.fr> wrote:
Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" <nos...@nospam.fr> a écrit dans le message de news:
e2tMIeSlIHA.4...@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier
complet,http://www.cijoint.fr/cjlink.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'il
faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" a écrit dans le message de news:
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" wrote:Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls
"Lulu la Nantaise" a écrit dans le message de news:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Il faut en plus trier la colonne 2, sinon la boucle arrête dès le 1er
changement.
Lulu
"JB" a écrit dans le message de news:
:// cjoint.com/?edj3A44wi1
Sub essai()
i = 2
ligne = 2
Do While i < [A65000].End(xlUp).Row
code = Cells(i, 2)
libellé = Cells(i, 3)
nafcumul = ""
Do While Cells(i, 2) = code
nafcumul = nafcumul & Cells(i, 4) & Chr(10)
i = i + 1
Loop
Sheets(2).Cells(ligne, 2) = code
Sheets(2).Cells(ligne, 3) = libellé
Sheets(2).Cells(ligne, 4) = nafcumul
ligne = ligne + 1
Loop
End Sub
JB
On 3 avr, 08:07, "Lulu la Nantaise" wrote:Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier
complet,http://www.cijoint.fr/cjlink.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'i l
faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" a écrit dans le message de news:
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" wrote:Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xl s
"Lulu la Nantaise" a écrit dans le message de new s:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Il faut en plus trier la colonne 2, sinon la boucle arrête dès le 1er
changement.
Lulu
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
db4ea536-ba05-44d9-bbff-0e69f8ee6...@24g2000hsh.googlegroups.com...http:// cjoint.com/?edj3A44wi1
Sub essai()
i = 2
ligne = 2
Do While i < [A65000].End(xlUp).Row
code = Cells(i, 2)
libellé = Cells(i, 3)
nafcumul = ""
Do While Cells(i, 2) = code
nafcumul = nafcumul & Cells(i, 4) & Chr(10)
i = i + 1
Loop
Sheets(2).Cells(ligne, 2) = code
Sheets(2).Cells(ligne, 3) = libellé
Sheets(2).Cells(ligne, 4) = nafcumul
ligne = ligne + 1
Loop
End Sub
JB
On 3 avr, 08:07, "Lulu la Nantaise" <nos...@nospam.fr> wrote:
Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier
complet,http://www.cijoint.fr/cjlink.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'i l
faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
d4c3b7d3-1505-4414-9aea-2525baaf2...@m73g2000hsh.googlegroups.com...
Bonjour,
Dans une feuille vierge:
En B2: =DECALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: =DECALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: =DECALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" <nos...@nospam.fr> wrote:
Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xl s
"Lulu la Nantaise" <nos...@nospam.fr> a écrit dans le message de new s:
e2tMIeSlIHA.4...@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Il faut en plus trier la colonne 2, sinon la boucle arrête dès le 1er
changement.
Lulu
"JB" a écrit dans le message de news:
:// cjoint.com/?edj3A44wi1
Sub essai()
i = 2
ligne = 2
Do While i < [A65000].End(xlUp).Row
code = Cells(i, 2)
libellé = Cells(i, 3)
nafcumul = ""
Do While Cells(i, 2) = code
nafcumul = nafcumul & Cells(i, 4) & Chr(10)
i = i + 1
Loop
Sheets(2).Cells(ligne, 2) = code
Sheets(2).Cells(ligne, 3) = libellé
Sheets(2).Cells(ligne, 4) = nafcumul
ligne = ligne + 1
Loop
End Sub
JB
On 3 avr, 08:07, "Lulu la Nantaise" wrote:Bonjour et merci JB pour ton aide si matinale,
Je me permets de te joindre le fichier
complet,http://www.cijoint.fr/cjlink.php?file=cj200804/cijf7VSGD4.xls
Je ne vois pas comment mettre en application ta méthode, je pense qu'i l
faut
passer par VBA, certains code NAF 2008 remplacent + de 2 code NAF 2003.
Merci encore,
Lulu
"JB" a écrit dans le message de news:
Bonjour,
Dans une feuille vierge:
En B2: ÞCALER(x!$B$2;(LIGNE()-2)*2;0)
En C2: ÞCALER(x!$C$2;(LIGNE()-2)*2;0)
En D2: ÞCALER(x!$D$2;(LIGNE()-2)*2;0)&CAR(10)&DECALER(x!$D$2;
(LIGNE()-2)*2+1;0)
http://cjoint.com/?edgRDJQ6LY
JBhttp://boisgontierjacques.free.fr
On 3 avr, 03:28, "Lulu la Nantaise" wrote:Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xl s
"Lulu la Nantaise" a écrit dans le message de new s:Bonjour à toutes et à tous,
J'ai un tableau (Code NAF 2008-2003) au total 1 322 lignes qui se
présente
comme ci-dessous :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A Culture de céréales ; cultures industrielles
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1C Culture de légumes ; maraîchage
Je voudrais, à partir de ce tableau sortir :
01.13Z Culture de légumes, de melons, de racines et de tubercules
01.1A
01.1C
Merci de votre aide,
Lulu- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -