Impossible Trier

Renvoie ta seconde capture d'écran du post initial, mais en capturant aussi les titres de lignes et de colonnes ...

Bonjour,

si excel te le dit, c'est avec raison. Il se trompe rarement...
Si tu tries sur A:G, sélectionne ces colonnes, fusionne et défusionne pour faire le ménage.

eric

PS : on peut TOUJOURS déposer un fichier exemple. Il suffit de mettre Mr Patate au lieu de Mr Martin et 12 à la place de 150000

En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Voici mes macros.

Les lignes 1 et 2 sont des titres.
La colonne A contient des dates, dont certaines, avant 1900, au format mardi 25 août 2015.
La colonne B contient les dates + 1000 ans au format 28/08/2015
Pas de calculs dans la feuille.

BORDURE INFERIEURE CELLULE

Public Sub OK()
Dim plage As Range
Set plage = Range("A3:G3000")
plage.Borders(xlEdgeBottom).LineStyle = xlContinuous
plage.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End Sub

VENIR DEBUT TABLEAU

Private Sub CommandButton1_Click()
Application.Goto Range("A1"), True
End Sub

ALLER FIN TABLEAU

Private Sub CommandButton2_Click()
Range("A" & Rows.Count).End(xlUp).Select
End Sub

INSERE LIGNE AU DESSUS LIGNE ACTIVE

Private Sub CommandButton3_Click()
ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

RECHERCHER

Private Sub CommandButton4_Click()
Application.CommandBars("Edit").Controls.Item("Rechercher...").Execute
End Sub

TRI PAR DATE

Private Sub CommandButton5_Click()
' Tri Macro
' Trier par date
Range("B3:B3000").Select
ActiveWindow.ScrollRow = 6
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A3:G3000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
End With
End Sub

MISE EN COULEUR CELLULE ACTIVE + COLORER GROUPE CELLULES

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A1")) Is Nothing Then 'Plage'
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
' Highlight the active cell
Target.Interior.ColorIndex = 8
Range("C1:E1").Interior.Color = 10092543 'Met la plage donnée à la couleur de: adapter la couleur avec Code Microsoft...'
Range("A2:G2").Interior.Color = 16777164 'Met la plage donnée à la couleur de: adapter la couleur avec Code Microsoft...'
Range("F1:G1").Interior.Color = 13434828 'Met la plage donnée à la couleur de: adapter la couleur avec Code Microsoft...'
Application.ScreenUpdating = True
End If
End Sub

Vous y découvrirez certainement des erreurs ou des formules à simplifier...

Merci à tous...

Bon jour
je crois que l'on va insister pour que vous vérifiiez si aucune cellule n'est fusionnée, car Excel est assez précis dans son message!
Pour cela, sélectionnez toute la feuille via la case avec le triangle blanc à gauche de la règle des colonnes et défusionnez tout;
recommencer le tri et voyez
crdlmnt

Bonjour
Excel n'invente rien.
N'auriez-vous pas pour une question de lisibilité fusionner les cellules A1 et B1 pour n'en faire qu'une et la nommer "Date" à tout hasard?