VBA tri automatique

Bonjour, je fait un tri automatique sur 2 colonnes avec ce code

dans module j'ai

Sub TriFax()

'

' TriFax xlAscending/XlDescending,

'

'

Range("A2:B25").Sort key1:=Range("A1"), order1:=xlAscending

End Sub

dans la feuille fax j'ai

Private Sub Worksheet_Activate()

TriFax

End Sub

tout marche bien sauf que dans mes colonnes j'ai une formule (un coller avec liaison sauf si =SI(ESTVIDE)

et cela me met une ligne vide en haut de mon tri et je ne suis pas assez expérimenté en vba pour que les ligne vides soient en bas

Avez vous une idée si cela est possible

Merci

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Salut, je viens de tester ton code mais quand je rempli les champs vide dans la feuille STAT pour rajouter un film cela me met une erreur

sinon j'avais pensé a contourner le problème en copiant en valeur only les cellules de STAT dans FAX avec la macro sans passer par une formule coller avec liaison

dysgorphe a écrit :

sinon j'avais pensé a contourner le problème en copiant en valeur only les cellules de STAT dans FAX avec la macro sans passer par une formule coller avec liaison

Ce serait en effet la meilleure solution.

Bye !

Sub CopySTAT()

Worksheets("STAT").Range("A1:B7").Copy

Worksheets("FAX").Range("A1:B7").PasteSpecial Paste:=xlValues

Range("A2:B25").Sort key1:=Range("A1"), order1:=xlAscending

End Sub

c'est plus simple comme cela est cela marche pour ce que je veut faire