Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Insertion pas au bon endroit

Insertion pas au bon endroit

10 réponses
Avatar
blandine
Bonjour,

j'ai fait un programme pour inserer le nom des sociétés de la colonne 2 si
le secteur correspondant de la colonne 1 est similaire a celui de la colonne
2, sous le nom du secteur présent dans la colonne 6.
Avec celui-ci, toutes les sociétés s'affichent avant le nom des secteurs!

Sub Insertion()
i = 1
j = 1
k = 1
Do While i <= [a65000].End(xlUp).Row
If Cells(i, 1).Value = Cells(j, 6).Value Then
Cells(k, 6).Resize(1, 1).Insert
Cells(k, 6) = Cells(i, 2)
i = i + 1
k = k + 1
Else
j = j + 1
End If
Loop
End Sub

Colonnes 1, 2
Autos & Parts Continental
Autos & Parts Fiat
Banks ABN Amro
Banks Commerzbank
Banks Societe Generale
Banks Std Chartered
Basic ressources Arcelor Mittal
Chemicals Linde
Constn & Matls Saint Gobain
Constn & Matls Vinci
Food&beverage Heineken
Health Care Essilor
Health Care GlaxoSmithKline
Health Care Roche
Industrial goods&services Gamesa
Industrial goods&services Group 4 Sec
Industrial goods&services SGS Ltd
Industrial goods&services Vedior
Insurance Aegon
Insurance Allianz
Insurance Generali SpA As
Insurance Prudential
Oil & Gas ENI
Oil & Gas Total SA
Personnal & Household goods Bulgari
Personnal & Household goods Electrolux
Personnal & Household goods Lambert Howarth
Personnal & Household goods Luxottica Group
Personnal & Household goods Richemont
Retail Tods
Retail Total Produce
Technology Dassault System
Technology Ericsson
Technology Rexel
Technology Sage
Technology Schneider
Telecommunications Telefonica
Travel & Leisure Autogrill
Travel & Leisure Compass Grp
Travel & Leisure Sol Melia
utilities Fortum
utilities Suez
#N/A Unweighted average
#N/A Weighted average
#N/A Global average
#N/A 0
#N/A 0
#N/A 0


Colonne 6 obtenue avec le programme
Continental
Fiat
ABN Amro
Commerzbank
Societe Generale
Std Chartered
Arcelor Mittal
Linde
Saint Gobain
Vinci
Heineken
Essilor
GlaxoSmithKline
Roche
Gamesa
Group 4 Sec
SGS Ltd
Vedior
Aegon
Allianz
Generali SpA As
Prudential
ENI
Total SA
Bulgari
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Tods
Total Produce
Dassault System
Ericsson
Rexel
Sage
Schneider
Telefonica
Autogrill
Compass Grp
Sol Melia
Fortum
Suez
ratios par secteurs
Autos & Parts
Banks
Basic ressources
Chemicals
Constn & Matls
Financial Services
Food&beverage
Health Care
Industrial goods&services
Insurance
Media
Oil & Gas
Personnal & Household goods
Retail
Technology
Telecommunications
Travel & Leisure
utilities

Colonne 6 souhaitée:
Ratios par secteurs
Autos & Parts
Continental
Fiat
Banks
ABN Amro
Commerzbank
Societe Generale
Std Chartered

et a la limite, le truc genial serait d'inserer une ligne vierge a chaque
changement de secteur dans la colonne 6

NB: la colonne 1 a été au préalable triée

Merci de votre aide!

Blandine
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
xavier powaga
j'ai rien pigé

"blandine" a écrit dans le message de
news:
Bonjour,

j'ai fait un programme pour inserer le nom des sociétés de la colonne 2 si
le secteur correspondant de la colonne 1 est similaire a celui de la
colonne
2, sous le nom du secteur présent dans la colonne 6.
Avec celui-ci, toutes les sociétés s'affichent avant le nom des secteurs!

Sub Insertion()
i = 1
j = 1
k = 1
Do While i <= [a65000].End(xlUp).Row
If Cells(i, 1).Value = Cells(j, 6).Value Then
Cells(k, 6).Resize(1, 1).Insert
Cells(k, 6) = Cells(i, 2)
i = i + 1
k = k + 1
Else
j = j + 1
End If
Loop
End Sub

Colonnes 1, 2
Autos & Parts Continental
Autos & Parts Fiat
Banks ABN Amro
Banks Commerzbank
Banks Societe Generale
Banks Std Chartered
Basic ressources Arcelor Mittal
Chemicals Linde
Constn & Matls Saint Gobain
Constn & Matls Vinci
Food&beverage Heineken
Health Care Essilor
Health Care GlaxoSmithKline
Health Care Roche
Industrial goods&services Gamesa
Industrial goods&services Group 4 Sec
Industrial goods&services SGS Ltd
Industrial goods&services Vedior
Insurance Aegon
Insurance Allianz
Insurance Generali SpA As
Insurance Prudential
Oil & Gas ENI
Oil & Gas Total SA
Personnal & Household goods Bulgari
Personnal & Household goods Electrolux
Personnal & Household goods Lambert Howarth
Personnal & Household goods Luxottica Group
Personnal & Household goods Richemont
Retail Tods
Retail Total Produce
Technology Dassault System
Technology Ericsson
Technology Rexel
Technology Sage
Technology Schneider
Telecommunications Telefonica
Travel & Leisure Autogrill
Travel & Leisure Compass Grp
Travel & Leisure Sol Melia
utilities Fortum
utilities Suez
#N/A Unweighted average
#N/A Weighted average
#N/A Global average
#N/A 0
#N/A 0
#N/A 0


Colonne 6 obtenue avec le programme
Continental
Fiat
ABN Amro
Commerzbank
Societe Generale
Std Chartered
Arcelor Mittal
Linde
Saint Gobain
Vinci
Heineken
Essilor
GlaxoSmithKline
Roche
Gamesa
Group 4 Sec
SGS Ltd
Vedior
Aegon
Allianz
Generali SpA As
Prudential
ENI
Total SA
Bulgari
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Tods
Total Produce
Dassault System
Ericsson
Rexel
Sage
Schneider
Telefonica
Autogrill
Compass Grp
Sol Melia
Fortum
Suez
ratios par secteurs
Autos & Parts
Banks
Basic ressources
Chemicals
Constn & Matls
Financial Services
Food&beverage
Health Care
Industrial goods&services
Insurance
Media
Oil & Gas
Personnal & Household goods
Retail
Technology
Telecommunications
Travel & Leisure
utilities

Colonne 6 souhaitée:
Ratios par secteurs
Autos & Parts
Continental
Fiat
Banks
ABN Amro
Commerzbank
Societe Generale
Std Chartered

et a la limite, le truc genial serait d'inserer une ligne vierge a chaque
changement de secteur dans la colonne 6

NB: la colonne 1 a été au préalable triée

Merci de votre aide!

Blandine


Avatar
Stéphan DuQuébec
Bonjour Blandine,
À la ligne 74 de ta demande, remplace:
utilities Suez
par:
utilities Suez, il fait 35 Celcius

Non, sans blague, ta demande est totalement incompréhensible....désolé.



Bonjour,

j'ai fait un programme pour inserer le nom des sociétés de la colonne 2 si
le secteur correspondant de la colonne 1 est similaire a celui de la colonne
2, sous le nom du secteur présent dans la colonne 6.
Avec celui-ci, toutes les sociétés s'affichent avant le nom des secteurs!

Sub Insertion()
i = 1
j = 1
k = 1
Do While i <= [a65000].End(xlUp).Row
If Cells(i, 1).Value = Cells(j, 6).Value Then
Cells(k, 6).Resize(1, 1).Insert
Cells(k, 6) = Cells(i, 2)
i = i + 1
k = k + 1
Else
j = j + 1
End If
Loop
End Sub

Colonnes 1, 2
Autos & Parts Continental
Autos & Parts Fiat
Banks ABN Amro
Banks Commerzbank
Banks Societe Generale
Banks Std Chartered
Basic ressources Arcelor Mittal
Chemicals Linde
Constn & Matls Saint Gobain
Constn & Matls Vinci
Food&beverage Heineken
Health Care Essilor
Health Care GlaxoSmithKline
Health Care Roche
Industrial goods&services Gamesa
Industrial goods&services Group 4 Sec
Industrial goods&services SGS Ltd
Industrial goods&services Vedior
Insurance Aegon
Insurance Allianz
Insurance Generali SpA As
Insurance Prudential
Oil & Gas ENI
Oil & Gas Total SA
Personnal & Household goods Bulgari
Personnal & Household goods Electrolux
Personnal & Household goods Lambert Howarth
Personnal & Household goods Luxottica Group
Personnal & Household goods Richemont
Retail Tods
Retail Total Produce
Technology Dassault System
Technology Ericsson
Technology Rexel
Technology Sage
Technology Schneider
Telecommunications Telefonica
Travel & Leisure Autogrill
Travel & Leisure Compass Grp
Travel & Leisure Sol Melia
utilities Fortum
utilities Suez
#N/A Unweighted average
#N/A Weighted average
#N/A Global average
#N/A 0
#N/A 0
#N/A 0


Colonne 6 obtenue avec le programme
Continental
Fiat
ABN Amro
Commerzbank
Societe Generale
Std Chartered
Arcelor Mittal
Linde
Saint Gobain
Vinci
Heineken
Essilor
GlaxoSmithKline
Roche
Gamesa
Group 4 Sec
SGS Ltd
Vedior
Aegon
Allianz
Generali SpA As
Prudential
ENI
Total SA
Bulgari
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Tods
Total Produce
Dassault System
Ericsson
Rexel
Sage
Schneider
Telefonica
Autogrill
Compass Grp
Sol Melia
Fortum
Suez
ratios par secteurs
Autos & Parts
Banks
Basic ressources
Chemicals
Constn & Matls
Financial Services
Food&beverage
Health Care
Industrial goods&services
Insurance
Media
Oil & Gas
Personnal & Household goods
Retail
Technology
Telecommunications
Travel & Leisure
utilities

Colonne 6 souhaitée:
Ratios par secteurs
Autos & Parts
Continental
Fiat
Banks
ABN Amro
Commerzbank
Societe Generale
Std Chartered

et a la limite, le truc genial serait d'inserer une ligne vierge a chaque
changement de secteur dans la colonne 6

NB: la colonne 1 a été au préalable triée

Merci de votre aide!

Blandine


Avatar
blandine
Bonjour,

En gros, je veux faire un tri dynamique par bloc, avec les secteurs servant
de critères.
Pour cela, il y a la liste de secteur qui apparait ailleurs (colonne 6).
Dans cette même colonne,le but est d'insérer le nom des sociétés sous le nom
de chaque secteur auquelle elle appartient(d'apres les colonnes 1,2). Peut
être faut il se servir des couleurs?
(A terme, les colonnes ne seront pas dans le même classeur, et il y aura des
fonctions supplementaires (ratios différent selon les secteurs)
J'espere que vous aurez + compris ce que je veux!

Colonnes 1, 2
Autos & Parts Continental
Autos & Parts Fiat
Banks ABN Amro
Banks Commerzbank
Banks Societe Generale
Banks Std Chartered
Basic ressources Arcelor Mittal
Chemicals Linde
Constn & Matls Saint Gobain
Constn & Matls Vinci
Food&beverage Heineken
Health Care Essilor
Health Care GlaxoSmithKline
Health Care Roche
Industrial goods&services Gamesa
Industrial goods&services Group 4 Sec
Industrial goods&services SGS Ltd
Industrial goods&services Vedior
Insurance Aegon
Insurance Allianz
Insurance Generali SpA As
Insurance Prudential
Oil & Gas ENI
Oil & Gas Total SA
Personnal & Household goods Bulgari
Personnal & Household goods Electrolux
Personnal & Household goods Lambert Howarth
Personnal & Household goods Luxottica Group
Personnal & Household goods Richemont
Retail Tods
Retail Total Produce
Technology Dassault System
Technology Ericsson
Technology Rexel
Technology Sage
Technology Schneider
Telecommunications Telefonica
Travel & Leisure Autogrill
Travel & Leisure Compass Grp
Travel & Leisure Sol Melia
utilities Fortum
utilities Suez
#N/A Unweighted average
#N/A Weighted average
#N/A Global average
#N/A 0
#N/A 0
#N/A 0

Colonne 6 initiale:


ratios par secteurs
Autos & Parts
Banks
Basic ressources
Chemicals
Constn & Matls
Financial Services
Food&beverage
Health Care
Industrial goods&services
Insurance
Media
Oil & Gas
Personnal & Household goods
Retail
Technology
Telecommunications
Travel & Leisure
utilities

Colonne 6 obtenue avec le programme
Continental
Fiat
ABN Amro
Commerzbank
Societe Generale
Std Chartered
Arcelor Mittal
Linde
Saint Gobain
Vinci
Heineken
Essilor
GlaxoSmithKline
Roche
Gamesa
Group 4 Sec
SGS Ltd
Vedior
Aegon
Allianz
Generali SpA As
Prudential
ENI
Total SA
Bulgari
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Tods
Total Produce
Dassault System
Ericsson
Rexel
Sage
Schneider
Telefonica
Autogrill
Compass Grp
Sol Melia
Fortum
Suez
ratios par secteurs
Autos & Parts
Banks
Basic ressources
Chemicals
Constn & Matls
Financial Services
Food&beverage
Health Care
Industrial goods&services
Insurance
Media
Oil & Gas
Personnal & Household goods
Retail
Technology
Telecommunications
Travel & Leisure
utilities

Colonne 6 souhaitée:
Ratios par secteurs


Autos & Parts
Continental
Fiat


Banks
ABN Amro
Commerzbank
Societe Generale
Std Chartered
...


et a la limite, le truc genial serait d'inserer une ligne vierge a chaque
changement de secteur dans la colonne 6

NB: la colonne 1 a été au préalable triée

Merci de votre aide!

Blandine




Avatar
Daniel
Bonjour.
Quelle la différence entre la colonne 2 et la colonne 6 "obtenue avec le
programme" ?
Cordialement.
Daniel
"blandine" a écrit dans le message de
news:
Bonjour,

En gros, je veux faire un tri dynamique par bloc, avec les secteurs
servant
de critères.
Pour cela, il y a la liste de secteur qui apparait ailleurs (colonne 6).
Dans cette même colonne,le but est d'insérer le nom des sociétés sous le
nom
de chaque secteur auquelle elle appartient(d'apres les colonnes 1,2). Peut
être faut il se servir des couleurs?
(A terme, les colonnes ne seront pas dans le même classeur, et il y aura
des
fonctions supplementaires (ratios différent selon les secteurs)
J'espere que vous aurez + compris ce que je veux!

Colonnes 1, 2
Autos & Parts Continental
Autos & Parts Fiat
Banks ABN Amro
Banks Commerzbank
Banks Societe Generale
Banks Std Chartered
Basic ressources Arcelor Mittal
Chemicals Linde
Constn & Matls Saint Gobain
Constn & Matls Vinci
Food&beverage Heineken
Health Care Essilor
Health Care GlaxoSmithKline
Health Care Roche
Industrial goods&services Gamesa
Industrial goods&services Group 4 Sec
Industrial goods&services SGS Ltd
Industrial goods&services Vedior
Insurance Aegon
Insurance Allianz
Insurance Generali SpA As
Insurance Prudential
Oil & Gas ENI
Oil & Gas Total SA
Personnal & Household goods Bulgari
Personnal & Household goods Electrolux
Personnal & Household goods Lambert Howarth
Personnal & Household goods Luxottica Group
Personnal & Household goods Richemont
Retail Tods
Retail Total Produce
Technology Dassault System
Technology Ericsson
Technology Rexel
Technology Sage
Technology Schneider
Telecommunications Telefonica
Travel & Leisure Autogrill
Travel & Leisure Compass Grp
Travel & Leisure Sol Melia
utilities Fortum
utilities Suez
#N/A Unweighted average
#N/A Weighted average
#N/A Global average
#N/A 0
#N/A 0
#N/A 0

Colonne 6 initiale:


ratios par secteurs
Autos & Parts
Banks
Basic ressources
Chemicals
Constn & Matls
Financial Services
Food&beverage
Health Care
Industrial goods&services
Insurance
Media
Oil & Gas
Personnal & Household goods
Retail
Technology
Telecommunications
Travel & Leisure
utilities

Colonne 6 obtenue avec le programme
Continental
Fiat
ABN Amro
Commerzbank
Societe Generale
Std Chartered
Arcelor Mittal
Linde
Saint Gobain
Vinci
Heineken
Essilor
GlaxoSmithKline
Roche
Gamesa
Group 4 Sec
SGS Ltd
Vedior
Aegon
Allianz
Generali SpA As
Prudential
ENI
Total SA
Bulgari
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Tods
Total Produce
Dassault System
Ericsson
Rexel
Sage
Schneider
Telefonica
Autogrill
Compass Grp
Sol Melia
Fortum
Suez
ratios par secteurs
Autos & Parts
Banks
Basic ressources
Chemicals
Constn & Matls
Financial Services
Food&beverage
Health Care
Industrial goods&services
Insurance
Media
Oil & Gas
Personnal & Household goods
Retail
Technology
Telecommunications
Travel & Leisure
utilities

Colonne 6 souhaitée:
Ratios par secteurs


Autos & Parts
Continental
Fiat


Banks
ABN Amro
Commerzbank
Societe Generale
Std Chartered
...


et a la limite, le truc genial serait d'inserer une ligne vierge a
chaque
changement de secteur dans la colonne 6

NB: la colonne 1 a été au préalable triée

Merci de votre aide!

Blandine






Avatar
blandine
La colonne 2 contient tous les noms des societes, et la colonne 6 suite au
programme a ceux-ci, mais pas intercalés entre le nom des secteurs:On
retrouve tous les secteurs a la fin de la colonne. Donc l'insertion a eu
lieu, mais pas aux bons endroits: pas en fonction des secteurs des societes
de la colonne 1.
J'ai l'impression que les secteurs ne defilent pas correctement.
Avatar
blandine
Bonjour, voici mon nouveau programme qui marche, a quelques points pres:
l'insertion des noms se fait parfois dans l'ordre alphabetique, parfois non a
la suite des secteurs...

Sub Insertion()
i = 1
j = 2
k = 2
For i = 1 To [a65000].End(xlUp).Row
If Cells(i, 1) = Cells(j, 6) Then
If j > k Then
k = j
End If
Cells(k + 1, 6).Resize(1, 1).Insert
Cells(k + 1, 6) = Cells(i, 2)
k = k + 1
Else
Do While Cells(i, 1) <> Cells(j, 6)
j = j + 1
Loop
Cells(j + 1, 6).Resize(1, 1).Insert
Cells(j + 1, 6) = Cells(i, 2)
End If
Next
End Sub

colonne 6 obtenue:
ratios par secteurs
Autos & Parts
Continental
Fiat
Banks
Commerzbank
Societe Generale
Std Chartered
ABN Amro
Basic ressources
Arcelor Mittal
Chemicals
Linde
Constn & Matls
Vinci
Saint Gobain
Financial Services
Food&beverage
Heineken
Health Care
GlaxoSmithKline
Roche
Essilor
Industrial goods&services
Group 4 Sec
SGS Ltd
Vedior
Gamesa
Insurance
Allianz
Generali SpA As
Prudential
Aegon
Media
Oil & Gas
Total SA
ENI
Personnal & Household goods
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Bulgari
Retail
Total Produce
Tods
Technology
Ericsson
Rexel
Sage
Schneider
Dassault System
Telecommunications
Telefonica
Travel & Leisure
Compass Grp
Sol Melia
Autogrill
utilities
Suez
Fortum
Avatar
Daniel
Essaie la macro suivante. Elle utilise temporairement la colonne 7 (à
modifier si tu as des valeurs dans cette colonne) :

Sub Interclasser()
Dim c As Range, Plage As Range, Cel As Range
Dim Ligne As Long
Ligne = 1
Columns(6).Cut Columns(7)
Set Plage = Range("B1", Range("B65536").End(xlUp))
For Each c In Range("G1", Range("G65536").End(xlUp))
Cells(Ligne, 6) = c
Ligne = Ligne + 1
For Each Cel In Plage
If Cel.Offset(, -1) = c Then
Cells(Ligne, 6) = Cel
Ligne = Ligne + 1
End If
Next Cel
Next c
Columns(7).ClearContents
End Sub

Daniel
"blandine" a écrit dans le message de
news:
Bonjour, voici mon nouveau programme qui marche, a quelques points pres:
l'insertion des noms se fait parfois dans l'ordre alphabetique, parfois
non a
la suite des secteurs...

Sub Insertion()
i = 1
j = 2
k = 2
For i = 1 To [a65000].End(xlUp).Row
If Cells(i, 1) = Cells(j, 6) Then
If j > k Then
k = j
End If
Cells(k + 1, 6).Resize(1, 1).Insert
Cells(k + 1, 6) = Cells(i, 2)
k = k + 1
Else
Do While Cells(i, 1) <> Cells(j, 6)
j = j + 1
Loop
Cells(j + 1, 6).Resize(1, 1).Insert
Cells(j + 1, 6) = Cells(i, 2)
End If
Next
End Sub

colonne 6 obtenue:
ratios par secteurs
Autos & Parts
Continental
Fiat
Banks
Commerzbank
Societe Generale
Std Chartered
ABN Amro
Basic ressources
Arcelor Mittal
Chemicals
Linde
Constn & Matls
Vinci
Saint Gobain
Financial Services
Food&beverage
Heineken
Health Care
GlaxoSmithKline
Roche
Essilor
Industrial goods&services
Group 4 Sec
SGS Ltd
Vedior
Gamesa
Insurance
Allianz
Generali SpA As
Prudential
Aegon
Media
Oil & Gas
Total SA
ENI
Personnal & Household goods
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Bulgari
Retail
Total Produce
Tods
Technology
Ericsson
Rexel
Sage
Schneider
Dassault System
Telecommunications
Telefonica
Travel & Leisure
Compass Grp
Sol Melia
Autogrill
utilities
Suez
Fortum


Avatar
blandine
Je me suis servi de ton programme en mettant call... avant le end sub.
Je pense qu'il faut faire une petite modif dans ton programme, cela ne
supprime pas les lignes dont il s'est servi pour trier, donc les données sont
en double:

ratios par secteurs
Autos & Parts
Continental
Fiat
Continental
Fiat
Banks
ABN Amro
Commerzbank
Societe Generale
Std Chartered
Commerzbank
Societe Generale
Std Chartered
ABN Amro

Basic ressources
Arcelor Mittal
Arcelor Mittal

Chemicals
Linde
Linde

Constn & Matls
Saint Gobain
Vinci
Vinci
Saint Gobain

Financial Services
Food&beverage
Heineken
Heineken

Health Care
Essilor
GlaxoSmithKline
Roche
GlaxoSmithKline
Roche
Essilor

Industrial goods&services
Gamesa
Group 4 Sec
SGS Ltd
Vedior
Group 4 Sec
SGS Ltd
Vedior
Gamesa

Insurance
Aegon
Allianz
Generali SpA As
Prudential
Allianz
Generali SpA As
Prudential
Aegon

Media
Oil & Gas
ENI
Total SA
Total SA
ENI

Personnal & Household goods
Bulgari
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Bulgari

Retail
Tods
Total Produce
Total Produce
Tods

Technology
Dassault System
Ericsson
Rexel
Sage
Schneider
Ericsson
Rexel
Sage
Schneider
Dassault System

Telecommunications
Telefonica
Telefonica

Travel & Leisure
Autogrill
Compass Grp
Sol Melia
Compass Grp
Sol Melia
Autogrill

utilities
Fortum
Suez
Suez
Fortum
Avatar
Daniel
Regarde le classeur à l'adresse :
http://cjoint.com/?hsmFYcsTbG
Daniel
"blandine" a écrit dans le message de
news:
Je me suis servi de ton programme en mettant call... avant le end sub.
Je pense qu'il faut faire une petite modif dans ton programme, cela ne
supprime pas les lignes dont il s'est servi pour trier, donc les données
sont
en double:

ratios par secteurs
Autos & Parts
Continental
Fiat
Continental
Fiat
Banks
ABN Amro
Commerzbank
Societe Generale
Std Chartered
Commerzbank
Societe Generale
Std Chartered
ABN Amro

Basic ressources
Arcelor Mittal
Arcelor Mittal

Chemicals
Linde
Linde

Constn & Matls
Saint Gobain
Vinci
Vinci
Saint Gobain

Financial Services
Food&beverage
Heineken
Heineken

Health Care
Essilor
GlaxoSmithKline
Roche
GlaxoSmithKline
Roche
Essilor

Industrial goods&services
Gamesa
Group 4 Sec
SGS Ltd
Vedior
Group 4 Sec
SGS Ltd
Vedior
Gamesa

Insurance
Aegon
Allianz
Generali SpA As
Prudential
Allianz
Generali SpA As
Prudential
Aegon

Media
Oil & Gas
ENI
Total SA
Total SA
ENI

Personnal & Household goods
Bulgari
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Electrolux
Lambert Howarth
Luxottica Group
Richemont
Bulgari

Retail
Tods
Total Produce
Total Produce
Tods

Technology
Dassault System
Ericsson
Rexel
Sage
Schneider
Ericsson
Rexel
Sage
Schneider
Dassault System

Telecommunications
Telefonica
Telefonica

Travel & Leisure
Autogrill
Compass Grp
Sol Melia
Compass Grp
Sol Melia
Autogrill

utilities
Fortum
Suez
Suez
Fortum



Avatar
blandine
Merci c'est ce qu'il fallait!

Je n'avais pas compris qu'il fallait que je remplace mon programme par le
tien, et j'avais inseré le tien dans le mien, ce qui dedoublait la fonction!
Merci encore!

Blandine