Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Filtre couleur 2

Filtre couleur 2

14 réponses
Avatar
Pijay
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sous chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en conservant
les noms d'entreprises correspondantes!)

Merci pour votre aide !
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
1 2
Avatar
JB
On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sous chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en conservant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i <=
[a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscending,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB

Avatar
Pijay
Merci JB...
J'ai colle texto ta macro dans le code de la page, j'execute et la ca me
fais le tri mais trop mal !!!!!

Help !!!!


On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sous chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en conservant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i < > [a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscending,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB





Avatar
Pijay
Voila le tableau que j'ai :


AGIDES
Partenaire-Entreprise n° compte PNB/Clients CA Réel éligible CAC
AGIDESS SARL xxx xxx xxx xxxx
SODITECH SAS xxx xxx xxx xxxx
Total 2 x x x

AGL 1
Partenaire-Entreprise n° compte PNB/Clients CA Réel éligible CAC
AGL SA xxx xxx xxx xxxx
Total 1 x x x



Etc...............
Le but est donc de classer "AGIDES", "AGL"etc..... par ordre alpha en
gardant le sous ensemble de chaque (qui est un tableau)

Une idee ?

Merci


Merci JB...
J'ai colle texto ta macro dans le code de la page, j'execute et la ca me
fais le tri mais trop mal !!!!!

Help !!!!


On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sous chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en conservant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i < > > [a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscending,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB







Avatar
JB
On 2 fév, 13:45, Pijay wrote:
Merci JB...
J'ai colle texto ta macro dans le code de la page, j'execute et la ca me
fais le tri mais trop mal !!!!!

Help !!!!




On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sous ch acuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en conse rvant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i <=
[a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscending,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Met ton fichier sur http://www.cjoint.com

JB



Avatar
Pijay
et voila !
http://cjoint.com/?ccobx54lmt

Merci a toi !


On 2 fév, 13:45, Pijay wrote:
Merci JB...
J'ai colle texto ta macro dans le code de la page, j'execute et la ca me
fais le tri mais trop mal !!!!!

Help !!!!




On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sous chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en conservant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i < > > > [a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscending,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Met ton fichier sur http://www.cjoint.com

JB








Avatar
JB
On 2 fév, 13:50, Pijay wrote:
Voila le tableau que j'ai :

AGIDES
Partenaire-Entreprise n° compte PNB/Clients CA Réel éligible CAC
AGIDESS SARL xxx xxx xxx xxxx
SODITECH SAS xxx xxx xxx xxxx
Total 2 x x x

AGL 1
Partenaire-Entreprise n° compte PNB/Clients CA Réel éligible CAC
AGL SA xxx xxx xxx xxxx
Total 1 x x x

Etc...............
Le but est donc de classer "AGIDES", "AGL"etc..... par ordre alpha en
gardant le sous ensemble de chaque (qui est un tableau)

Une idee ?

Merci




Merci JB...
J'ai colle texto ta macro dans le code de la page, j'execute et la ca me
fais le tri mais trop mal !!!!!

Help !!!!



On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sous chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en con servant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i <=
[a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscending,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -


On suppose que les données sont dans les colonnes A à E et que seuls
les titres sont coloriés:

http://cjoint.com/?ccopXXEHuN

Sub essai2()
Columns("F:F").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
temp = Cells(i, 1)
Cells(i, 1).Offset(0, 5) = temp
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i <=
[a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 5) = temp
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("F1"), Order1:=xlAscending,
Header:=xlNo
Columns("F:F").Delete Shift:=xlToLeft
End Sub

JB




Avatar
JB
On 2 fév, 14:03, Pijay wrote:
et voila !http://cjoint.com/?ccobx54lmt

Merci a toi !




On 2 fév, 13:45, Pijay wrote:
Merci JB...
J'ai colle texto ta macro dans le code de la page, j'execute et la ca me
fais le tri mais trop mal !!!!!

Help !!!!




On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sou s chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en c onservant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i <=
[a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscendin g,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Met ton fichier surhttp://www.cjoint.com

JB- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


J'ai supprimé toutes les cellules fusionnées: (sélectionner les
colonnes puis format/cellules/alignement)

http://cjoint.com/?ccoGSM2eok

Sub essai2()
Columns("h:h").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
temp = Cells(i, 1)
Cells(i, 1).Offset(0, 7) = temp
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex <> 41 And i <=
[a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 7) = temp
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("h1"), Order1:=xlAscending,
Header:=xlNo
Columns("h:h").Delete Shift:=xlToLeft
End Sub

JB





Avatar
Pijay
Ca ne marche toujours pas....:-(....tu as essaye sur mon fichier ? ca donne
un truc trop bizarre....
Est ce que c'est a cause du fait qu'il n'y a pas que les titres qui soit en
couleur ?


Merci


On 2 fév, 13:50, Pijay wrote:
Voila le tableau que j'ai :

AGIDES
Partenaire-Entreprise n° compte PNB/Clients CA Réel éligible CAC
AGIDESS SARL xxx xxx xxx xxxx
SODITECH SAS xxx xxx xxx xxxx
Total 2 x x x

AGL 1
Partenaire-Entreprise n° compte PNB/Clients CA Réel éligible CAC
AGL SA xxx xxx xxx xxxx
Total 1 x x x

Etc...............
Le but est donc de classer "AGIDES", "AGL"etc..... par ordre alpha en
gardant le sous ensemble de chaque (qui est un tableau)

Une idee ?

Merci




Merci JB...
J'ai colle texto ta macro dans le code de la page, j'execute et la ca me
fais le tri mais trop mal !!!!!

Help !!!!



On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sous chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en conservant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i < > > > > [a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscending,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -


On suppose que les données sont dans les colonnes A à E et que seuls
les titres sont coloriés:

http://cjoint.com/?ccopXXEHuN

Sub essai2()
Columns("F:F").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
temp = Cells(i, 1)
Cells(i, 1).Offset(0, 5) = temp
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i < > [a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 5) = temp
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("F1"), Order1:=xlAscending,
Header:=xlNo
Columns("F:F").Delete Shift:=xlToLeft
End Sub

JB








Avatar
JB
On 2 fév, 14:37, Pijay wrote:
Ca ne marche toujours pas....:-(....tu as essaye sur mon fichier ? ca don ne
un truc trop bizarre....
Est ce que c'est a cause du fait qu'il n'y a pas que les titres qui soit en
couleur ?

Merci




On 2 fév, 13:50, Pijay wrote:
Voila le tableau que j'ai :

AGIDES
Partenaire-Entreprise n° compte PNB/Clients CA Réel élig ible CAC
AGIDESS SARL xxx xxx xxx xxxx
SODITECH SAS xxx xxx xxx xxxx
Total 2 x x x

AGL 1
Partenaire-Entreprise n° compte PNB/Clients CA Réel élig ible CAC
AGL SA xxx xxx xxx xxxx
Total 1 x x x

Etc...............
Le but est donc de classer "AGIDES", "AGL"etc..... par ordre alpha en
gardant le sous ensemble de chaque (qui est un tableau)

Une idee ?

Merci




Merci JB...
J'ai colle texto ta macro dans le code de la page, j'execute et la ca me
fais le tri mais trop mal !!!!!

Help !!!!





On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec s ous chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en conservant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i < =
[a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscend ing,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -


On suppose que les données sont dans les colonnes A à E et que seuls
les titres sont coloriés:

http://cjoint.com/?ccopXXEHuN

Sub essai2()
Columns("F:F").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
temp = Cells(i, 1)
Cells(i, 1).Offset(0, 5) = temp
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i <=
[a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 5) = temp
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("F1"), Order1:=xlAscending,
Header:=xlNo
Columns("F:F").Delete Shift:=xlToLeft
End Sub

JB- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Regarde le post de 14:33

JB






Avatar
Pijay
Ca a l'air de marcher, TOP !!!
Et si dans d'autre onglet, j'ai le meme format mais avec des colonnes en
plus...je modifie quoi dans la formule pour qu'il prenne tout en compte ?

Merci


On 2 fév, 14:03, Pijay wrote:
et voila !http://cjoint.com/?ccobx54lmt

Merci a toi !




On 2 fév, 13:45, Pijay wrote:
Merci JB...
J'ai colle texto ta macro dans le code de la page, j'execute et la ca me
fais le tri mais trop mal !!!!!

Help !!!!




On 2 fév, 12:59, Pijay wrote:
Bonjour,

J'ai des noms de groupe d'entreprise (tous en fond bleu) avec sous chacuns
un certains nombres d'entreprises....

Je voudrais classer par ordre alphabetique mes groupes (donc en conservant
les noms d'entreprises correspondantes!)

Merci pour votre aide !


Bonjour,

Sub essai()
Columns("B:B").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
x = Cells(i, 1)
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex = xlNone And i < > > > > > [a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 1) = x
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlAscending,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

Cordialement JB- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Met ton fichier surhttp://www.cjoint.com

JB- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


J'ai supprimé toutes les cellules fusionnées: (sélectionner les
colonnes puis format/cellules/alignement)

http://cjoint.com/?ccoGSM2eok

Sub essai2()
Columns("h:h").Insert Shift:=xlToRight
i = 1
Do While i <= [a65000].End(xlUp).Row
temp = Cells(i, 1)
Cells(i, 1).Offset(0, 7) = temp
i = i + 1
Do While Cells(i, 1).Interior.ColorIndex <> 41 And i < > [a65000].End(xlUp).Row
Cells(i, 1).Offset(0, 7) = temp
i = i + 1
Loop
Loop
[A1].CurrentRegion.Sort Key1:=Range("h1"), Order1:=xlAscending,
Header:=xlNo
Columns("h:h").Delete Shift:=xlToLeft
End Sub

JB









1 2