Recherche de correspondance "RECHERCHEH"

Le
Lulu la Nantaise
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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Lulu la Nantaise
Le #5425761
Ca sera plus clair je pense...
http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls

"Lulu la Nantaise"
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



JB
Le #5425711
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"
Ca sera plus clair je pense...http://www.cijoint.fr/cjlink.php?file=cj20 0804/cijrfwJfCX.xls

"Lulu la Nantaise"



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 -



Lulu la Nantaise
Le #5425691
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"
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"
Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xls

"Lulu la Nantaise"



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 -



JB
Le #5425651
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"
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"
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"


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

"Lulu la Nantaise"

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 -




Lulu la Nantaise
Le #5425181
Génial !!!!

"JB"
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"
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"
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"


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

"Lulu la Nantaise"

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 -




Lulu la Nantaise
Le #5425081
Il faut en plus trier la colonne 2, sinon la boucle arrête dès le 1er
changement.
Lulu
"JB"
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"
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"
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"


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

"Lulu la Nantaise"

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 -




JB
Le #5425031
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"
Il faut en plus trier la colonne 2, sinon la boucle arrête dès le 1er
changement.
Lulu
"JB" :// 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"


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"
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"
Ca sera plus clair je
pense...http://www.cijoint.fr/cjlink.php?file=cj200804/cijrfwJfCX.xl s

"Lulu la Nantaise"

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 -





Publicité
Poster une réponse
Anonyme