Macro de tri avec formules
Astrid
-
julia Namor Messages postés 524 Date d'inscription Statut Membre Dernière intervention -
julia Namor Messages postés 524 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai utilisé une macro de tri telle que
Sub MTrierIDT()
Dim rd As Range, ra As Range
Set rd = Range("'Ind. de transport'!B6").End(xlToRight)
Set ra = Range("'Ind. de transport'!B60")
Range(rd, ra).Select
Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Malheureusement dans mes colonnes qui sont triées par des macros j'ai des formules. Aussi quand j'utilise mon bouton, les formules apparaissent d'abord et ensuite mon tir par ordre alphabétique. Comment faire ?
En vous remerciant pour votre aide
J'ai utilisé une macro de tri telle que
Sub MTrierIDT()
Dim rd As Range, ra As Range
Set rd = Range("'Ind. de transport'!B6").End(xlToRight)
Set ra = Range("'Ind. de transport'!B60")
Range(rd, ra).Select
Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Malheureusement dans mes colonnes qui sont triées par des macros j'ai des formules. Aussi quand j'utilise mon bouton, les formules apparaissent d'abord et ensuite mon tir par ordre alphabétique. Comment faire ?
En vous remerciant pour votre aide
A voir également:
- Macro de tri avec formules
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment faire un tri personnalisé sur excel - Guide
- Formules - Télécharger - Études & Formations
- Logiciel tri photo - Guide
- Formules excel de base - Guide
2 réponses
Sub MTrierIDT()
Application.ScreenUpdating = False
Dim rd As Range, ra As Range
Set rd = Range("'Ind. de transport'!B6").End(xlToRight)
Set ra = Range("'Ind. de transport'!B60")
Range(rd, ra).Select
Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub
Application.ScreenUpdating = False
Dim rd As Range, ra As Range
Set rd = Range("'Ind. de transport'!B6").End(xlToRight)
Set ra = Range("'Ind. de transport'!B60")
Range(rd, ra).Select
Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub
Non ca ne fonctionne pas. Lorsque je saisi des formules a la place des Z celles ci ce placent en premier.
Les formules sont des si(recherchev) qui renvoient soit à du texte ou bien à " "
Du coup quand elles renvoient à du texte vide, les cellules vides ce placent en premier dans le tri
Les formules sont des si(recherchev) qui renvoient soit à du texte ou bien à " "
Du coup quand elles renvoient à du texte vide, les cellules vides ce placent en premier dans le tri
-Ceci me parait normal car les cellules liées ne sont pas incluses dans le tri et du coup c'est meme "dangereux" car ça fausse complétement tes calculs.
L'idéal ce serait d'envoyer un fichier exemple fidéle pour que l'on voit ça/
Il ya des solutions de tri tres possible mais c'est compliqué de se lancer à l'aveuglette.
Dans l'attente
Cdt