Discussion :

[Freudsw]

Bonjour à tous,

J'ai une macro qui me permet de trier des données avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActiveSheet
    .Cells(Cells.Rows.Count, Lastcol + 1).End(xlUp).Sort , Key1:=.Cells(34, Lastcol + 1), Order1:=xlDescending, Header:=xlYes
    .Rows("34:37").Copy ThisWorkbook.Worksheets("CPN1").Range("A3")
End With

Inutile de vous dire qu'il y a des lignes de codes avant et aprés. Mon souci c'est qu'un message d'erreur (erreur 1004) apparait lorsque j'exécute la macro, et le message d'erreur est : "cette opération requiert que les cellules fusionnées soient de taille identique"

Sachant que mes donnés se trouvent à partir de la ligne 34 et les cellules fusionnées se trouvent plus haut .

Une solution ? ( a part supprimer la fusion des cellules )

Merci par avance$
Cordialement,
Freudsw

[vinc_bilb]

Bonjour,

Vous pouvez faire une sortie (debug ou msgbox ou select) du range pris pour le sort?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.Cells(Cells.Rows.Count, Lastcol + 1).End(xlUp)
.Cells(Cells.Rows.Count, Lastcol + 1).End(xlUp).Select 'par exemple

=> vous remontez tout-en haut je pense .....

Si c'est à partir de la ligne 34, vous pouvez faire le sort sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(34, 1).(Cells.Rows.Count, Lastcol + 1) 'Non testé