Recherche de correspondance "RECHERCHEH"

Ca sera plus clair je pense...
http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls

"Lulu la Nantaise" <nospam@nospam.fr> a écrit dans le message de news:
e2tMIeSlIHA.4536@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

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

JB
http://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=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 -

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" <boisgontier@hotmail.com> a écrit dans le message de news:
d4c3b7d3-1505-4414-9aea-2525baaf29bb@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

JB
http://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 -

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/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 -

Génial !!!!

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
db4ea536-ba05-44d9-bbff-0e69f8ee6b88@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'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 -

Il faut en plus trier la colonne 2, sinon la boucle arrête dès le 1er
changement.
Lulu
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
db4ea536-ba05-44d9-bbff-0e69f8ee6b88@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'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 -

Sub essai()
[A1].CurrentRegion.Sort Key1:=Range("B2"), Order1:=xlAscending,
Key2:=Range("D2") _
, Order2:=xlAscending, Header:=xlGuess
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, 20:50, "Lulu la Nantaise" <nos...@nospam.fr> wrote:

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 -