Bonsoir Jean-Michel, re Pias, le Forum
Oui c'est une autre alternative que de copier directement la formule dans une zone hors tri et de la coller en paste value en fin de tableau trié. Mais il y a une faiblesse si tu cliques plusieurs fois pour lancer les macros de tri...
Donc je suggère, si Pias applique cette méthode, de colorier la plage collée et de faire un test avant lancement des macros pour vider vider les cellules en couleur dans sa plage de travail.
Exemple sur TriA
Sub TriA()
Dim Ligne As Integer
Dim Plage As Range, cell As Range
For Each cell In Range("A8:A999")
If cell.Interior.ColorIndex = 36 Then
With Range(Cells(cell.Row, 1), Cells(cell.Row, 4))
.Value = ""
.Interior.ColorIndex = xlNone
End With
End If
Next
Application.ScreenUpdating = False
Range("A8:AZ999").Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess
Range("A1000:c1000").Copy
Ligne = ActiveSheet.Range("A999").End(xlUp).Row + 1
Range("A" & Ligne).PasteSpecial Paste:=xlValues
Range("A" & Ligne & "
" & Ligne).Interior.ColorIndex = 36
End Sub
(l'ideal serait de n'avoir qu'une seule macro pour les TriA, TriB etc comme dans mon précédents exemple)
Bonne soirée
@+Thierry