Macro: effacer "chaines de caractere" en doublons dans cellule + ordonner "chaines de caracteres"
Le
Christophe
Bonjour:
Les cellules de la colonne AE de ma feuille Excel contiennent des noms
de regions du genre
Central America & Caribbean
Central/South Asia
East Asia
Middle East & North Africa
Russia & the NIS
South America
South Pacific
Western Europe
etc.
Je souhaiterais
1- effacer les regions en doublons dans chaque cellule
2- ordonner les regions par ordre alphabetique dans chaque cellule
Ex.
En AE2 South Pacific, Western Europe, South Pacific, South America,
Western Europe, East Asia -> East Asia, South America, South
Pacific, Western Europe
Merci d'avance pour votre aide et sincères salutations.
Christophe
Les cellules de la colonne AE de ma feuille Excel contiennent des noms
de regions du genre
Central America & Caribbean
Central/South Asia
East Asia
Middle East & North Africa
Russia & the NIS
South America
South Pacific
Western Europe
etc.
Je souhaiterais
1- effacer les regions en doublons dans chaque cellule
2- ordonner les regions par ordre alphabetique dans chaque cellule
Ex.
En AE2 South Pacific, Western Europe, South Pacific, South America,
Western Europe, East Asia -> East Asia, South America, South
Pacific, Western Europe
Merci d'avance pour votre aide et sincères salutations.
Christophe
Poser une question
Voir PJ
http://cjoint.com/?ehlquVLIP1
JB
http://boisgontierjacques.free.fr
On 7 avr, 11:08, Christophe
Merci JB mais ma problematique est quelque peu differente. Il s'agit
dans un premier lieu d'effacer les "doublons" présent dans chaque
cellules de la colonne AE et d'ensuite de les trier par ordre alfa la
encore dans chacune des cellules de AE par opposition a effacer les
cellules doublons d'une cellule.
Remerciements.
Christophe
For Each c In champ
If Application.CountIf(champ, c) > 1 Then c.Clear
Next c
champ.Sort Key1:=Range("AE2"), Order1:=xlAscending, Header:=xlGuess
JB
On 7 avr, 11:51, Christophe
Je ne comprends pas tout mais ca me semble etre la bonne direction.
Malheureusement cela ne fonctionne pas encore.
Exemple dans AE2 j'ai
Middle East, South America, South America, Canada, South America, East
Asia, Central America & Caribbean, South America, Middle East & North
Africa, Central America & Caribbean, Central America & Caribbean,
Central America & Caribbean, East Asia, Central/South Asia, Middle
East & North Africa, Central America & Caribbean, Middle East & North
Africa, Mexico, Central America & Caribbean, Central America &
Caribbean, South America, South America, Middle East & North Africa,
Sub-Saharan
Africa, Central America & Caribbean, Middle East & North Africa, USA,
South America
et dans AE3
South Pacific, Western Europe, Middle East, Central/Eastern Europe,
Western Europe, Western Europe, Central/Eastern Europe, East Asia,
Western Europe, Central/Eastern Europe, Western Europe, Middle East &
North Africa, Western Europe, Western Europe, Western Europe, Western
Europe, Western Europe, Western Europe, East Asia, Central/Eastern
Europe, Western Europe, Central/South Asia, Southeast Asia, Western
Europe, Middle East & North Africa, Western Europe, Central/South
Asia, East Asia, Middle East & North Africa, Western Europe, Middle
East & North Africa, Lithuania, Macedonia, Malaysia, Netherlands, New
Zealand, Norway, Oman, Pakistan, Philippines, Poland, Portugal, Qatar,
Romania, Russia, Saudi Arabia, Western Europe, Southeast Asia, Slovak
Republic, Slovenia, South Africa, Spain, Sri Lanka, Sweden, Western
Europe, Taiwan, Thailand, Turkey, Ukraine, United Arab Emirates,
Western Europe, Vietnam
mais lorsque je lance la macro, il ne se passe rien.
Remerciements et sinceres salutations.
Christophe
D'après ce que je comprends ta macro supprime les cellules doublons
dans la colonne AE et ensuite tri la colonne en fonction d'un ordre
alphabetique.
Je me suis sans doute mal exprimé car ma problématique est différente
il s'agit en fait de supprimer les doublons de 'Chaines de Caractères"
dans chacune des cellules de la colonne AE et ensuite de trier les
chaines de caractères dans la cellule par ordre alphabétique. Le
séparateur de chaines de caractès etant la virgule (, )
Par exemple si dans la cellule AE2 j'ai
Middle East, South America, South America, Canada, South America, East
Asia, Central America & Caribbean, South America, Middle East & North
Africa, Central America & Caribbean, Central America & Caribbean,
Central America & Caribbean, East Asia, Central/South Asia, Middle
East & North Africa, Central America & Caribbean, Middle East & North
Africa, Mexico, Central America & Caribbean, Central America &
Caribbean, South America, South America, Middle East & North Africa,
Sub-Saharan Africa, Central America & Caribbean, Middle East & North
Africa, USA, South America
je souhaite obtenir après dans la cellule AE2:
Canada, Central America & Caribbean, Central/South Asia, East Asia,
Mexico, Middle East, Middle East & North Africa, South America, Sub-
Saharan Africa, USA
(les chaines de caratères (regions) en doublons sont effacées et les
chaines de caractères restantes sont triées par ordre alphabétique).
Merci. Christophe