Trier des cellules fusionnées par macro

[mandinho]

Bonjour à tous,

je vous explique mon problème:

j'ai crée une macro de triage de cellules qui fonctionne bien lorsque celles ci ne sont pas fusionnées.

Lorsque que je veux les trier via ma macro (que vous trouverez ci dessous) alors que certaines d'entre elles sont fusionnées j'ai un message: le tri n'est pas possible avec des cellules de taille différentes.

Si quelqu'un peut m'orienter...

Merci

Sub Tri()
'
' Tri Macro
' Macro enregistrée le 18/01/2006 par ADM
'

'
ActiveSheet.Unprotect ''
Sheets('Archive').Visible = True 'pour afficher la feuille

Sheets('Archive').Select
Rows('2:1053').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.LargeScroll Down:=-15
ActiveWindow.ScrollRow = 561
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 524
ActiveWindow.ScrollRow = 443
ActiveWindow.ScrollRow = 414
ActiveWindow.ScrollRow = 384
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 2
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range('A2').Select
Sheets('Formulaire').Select
Range('B2').Select

Sheets('Archive').Visible = False 'pour masquer la feuille
ActiveSheet.Protect '', True, True, True
End Sub

 

[pat1545.]

Bonsoir,

bcp de code en trop mais surtout !!!! éviter au maximum les fusions de cellules !
Il faut préférer 'centrer sut plusieurs colonnes'

Bye

 

[mandinho]

Bonsoir Pat1545,

Le problème, c'est que j'ai besoin de garder certaines cellules fusionnées!!

J'espère trouver une solution, mais je t'avouerai que je rame depuis un certain temps!

Si quelqu'un à une solution, je suis preneur de toutes les idées.

Merci Pat

 

[_Thierry]

Bonsoir Pat, Mandinho, le Forum

Oui Pat, comme l'autre jour pour Ninou, les cellules fusionnées c'est une peste...

Au fait Pat, j'ai fini par lui trouver une Soluce :

Lien supprimé (Voir mon post du 13/04/2006 12:02)

Sinon pour Mandinho, un petit exemple de ton fichier sans données confidentielles, en format Compressé Zip, Moins de 50 Ko, avec un nom sans espace ni caractères spéciaux, ce sera plus simple de voir l'ampleur des dégats

Bonne Soirée
[ol]@+Thierry[/ol]

 

[mandinho]

Bonsoir Thierry,

Tu trouveras mon fichier joint.

Merci par avance

Mandinho [file name=DevisTest.zip size=31134]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DevisTest.zip[/file]

 

[_Thierry]

Re Bonsoir Mandinho, Pat,


Huum Huum, c'est grave Docteur ! lol

Tu n'as vraiment pas d'autre moyen que d'avoir ces cellules fusionnées ?

Ensuite il n'y a pas d'Entêtes sur cette Feuille 'Archive' ?

Donc si je regarde et récapitule :

[li]Référence Fusion Colonnes 'S:W' (5 Colonnes)[/li]

[li]Commentaires d'impr. Fusion Colonnes 'Y:AA' (4)[/li]

[li]Commentaires Type de faconnage Fusion Colonnes 'AK:AN' (4)[/li]

[li]Conditionnement Fusion Colonnes 'AO:AS' (5)[/li]

[li]Descriptif du faconnage Fusion Colonnes 'CD:CF' (3)[/li]


Ce qu'il faut que tu saches c'est que tant qu'il y a des cellules fusionnées dans ce tableau c'est Niet, Nicht, No, Non, Nem ! Pas de Tri possible avec une macro 'Sort'...

Donc un code VBA doit au préalable 'Défusionner' ces Cellules...

En plus si il n'y a pas d'entête il ne faut pas de rupture dans le 'CurrentRegion' du Tableau...

Que va-t'on mettre à la place des cellules vide ?

Si par exemple pour 'Référence' je répète trois fois 'Référence' dans les cellules de la Colonne 'T', 'U', 'V', 'W', ça te dirait bien ?

Enfin il y a du taff sur un truc pareil et j'ai peur que tu ne maîtrises pas encore beaucoup le VBA...

Dis moi nous un peu tout ça... je reviendrai

Bonne Soirée
[ol]@+Thierry[/ol]

 

[mandinho]

Hé Pat,
je crois que thierry vient de s'appercevoir que je débute en VB... et que je rame...lol.

Plus sérieusement, j'aimerai que mes cellules fusionnées dans l'onglet 'formulaire' le restent.
En effet, lorsque je les remplis, après je les archive avec une autre macro dans la feuille 'Archive'.
Après, je suis obligé de trier la feuille 'Archive' pour retrouver mes N° de devis dans l'ordre croissant.

J'espère que je suis assez clair, le problème, c'est que je ne peux pas t'envoyer mon fichier complet avec toutes les macros car il est trop lourd...sic

Bonne soirée,

Mandinho

 

[_Thierry]

Re Bonsoir Mandinho, Pat

Tu n'as pas vraiment répondu à tout ce que j'ai expliqué.

Si tu regardes un peu le Fil de Ninous que j'ai mis plus en lien, tu verras qu'on peut faire des miracles avec les Cellules Fusionnées, mais il faut avoir une structure et ne pas se planter sinon on perd du temps...

D'où mes questions, si tu y réponds, je penserai pouvoir trouver une solution.

Bonne Nuit
[ol]@+Thierry[/ol]

 

[pierrejean]

bonjour tous

il me semble avoir trouvé un palliatif au probleme de classement de la Feuille Archive

en gros je recopie la colonne A en feuille 1 ,je trie, puis je recupere dans la feuille Archive le reste de la ligne (macro test)

le code pourra bien sur etre epuré par Thierry

on peut aussi estimer que c'est par trop 'capillotracté' [file name=DevisTest_20060417133806.zip size=31134]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DevisTest_20060417133806.zip[/file]

 

[pierrejean]

re

toujours aussi pagailleux !!!!!

je mets le bon fichier

avec mes excuses [file name=DevisTest1.zip size=34097]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DevisTest1.zip[/file]

 

[pierrejean]

re encore

le meme avec une amelioration [file name=DevisTest1_20060418134903.zip size=34051]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DevisTest1_20060418134903.zip[/file]

 

[_Thierry]

Bonjour


pierrejean écrit:

re

je savais bien qu'ils etaient dans le coin !!!

un grand Salut aux grands Maitres

puis-je me permettre de squatter ce fil pour demander à Thierry ce qu'il en advient du fil suivant:

Lien supprimé

J'ai regardé, interressante solution, PierreJean, fallait-y penser

Bonne Journée
[ol]@+Thierry[/ol]


PS Tu déclareras tes Variables à la Saint GlinGlin ? lol

 

[pierrejean]

wouahou...........

Cette appreciation (solution interessante ) par Thierry aurait figuré en bonne place dans mon CV si j'en avais encore un

même tempéré par la très juste remarque concernant les variables elle me transporte d'aise

je declare donc les-dites variables de ce pas [file name=DevisTest1_20060419112724.zip size=32187]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DevisTest1_20060419112724.zip[/file]