Insertion pas au bon endroit
Le
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
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
Poser une question
"blandine" news:
À 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é.
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!
ratios par secteurs
Quelle la différence entre la colonne 2 et la colonne 6 "obtenue avec le
programme" ?
Cordialement.
Daniel
"blandine" news:
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.