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

4 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
Pijay
Je comprends pas :-( !
Tu parles de la reponse que tu m'as faite a 14h33 ?
J'ai pas trouve dedans...

Dsl




On 2 fév, 14:37, Pijay wrote:
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- Masquer le texte des messages précédents -


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


Regarde le post de 14:33

JB










Avatar
JB
On 2 fév, 14:44, Pijay wrote:
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 l a 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:=xlAsce nding,
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- Masquer le texte des messages précédents -


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


-Le nb de colonnes est variable
-Doit commencer en A1

http://cjoint.com/?ccpNZ2Ssgu

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







Avatar
Pijay
Merci pr tt !


On 2 fév, 14:44, Pijay wrote:
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- Masquer le texte des messages précédents -


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


-Le nb de colonnes est variable
-Doit commencer en A1

http://cjoint.com/?ccpNZ2Ssgu

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











Avatar
JB
On 2 fév, 14:53, Pijay wrote:
Je comprends pas :-( !
Tu parles de la reponse que tu m'as faite a 14h33 ?
J'ai pas trouve dedans...

Dsl




On 2 fév, 14:37, Pijay wrote:
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 s oit 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 alph a en
gardant le sous ensemble de chaque (qui est un tableau)

Une idee ?

Merci






MerciJB...
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 wro te:
Bonjour,

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

Je voudrais classer par ordre alphabetique mes groupes (don c 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:=xlAs cending,
Header:=xlNo
Columns("B:B").Delete Shift:=xlToLeft
End Sub

http://cjoint.com/?ccnJdEAOhU

CordialementJB- 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:=xlAscendin g,
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- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -
Nouvelle version:


http://cjoint.com/?cds0SeuP2D

JB








1 2