problème de tri sur excel 2007

  • Initiateur de la discussion Initiateur de la discussion xabino
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

xabino

XLDnaute Nouveau
Bonjour à tous,

Je tente de faire un tri d'un tableau selon plusieurs critères type nom puis si nom identique prénom puis si les 2 identiques date de naissance via une macro sur excel 2007.
J'ai enregistré ma macro en faisant l'opération pour avoir le bon codage.
Le problème est que quand j'affecte ma macro à un bouton poussoir et que j'appuie dessus, les valeurs de mes cellules sont modifiées.
Il faut savoir que les cellules à triés sont toutes des formules du type "somme" ou "si" liées à d'autres cellule.

Exemple:
* formule de base
=SOMME(H4:J4;K5:M5;K8:M8)
* formule après tri
=SOMME(H1:J1;K2:M2;K5:M5)

Dans VBA j'ai cette programmation:

Sub tri_élèves()
'
' tri_élèves Macro
'

'
Range("T3:Y7").Select
ActiveWorkbook.Worksheets("élè ves").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("élè ves").Sort.SortFields.Add Key:= _
Range("V4:V7"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("élè ves").Sort.SortFields.Add Key:= _
Range("Y4:Y7"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("élè ves").Sort.SortFields.Add Key:= _
Range("W4:W7"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("élè ves").Sort
.SetRange Range("T3:Y7")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Sauriez-vous me donner une astuce pour conserver mes formules lors d'un tri?

Merci d'avance.
 
Re : problème de tri sur excel 2007

CI-joint un lien vers le fichier:
(c) CJoint.com, 2012
Il s'agit d'un tableau tout simple pour la coupe du monde de football que j'essaie de mettre en place pour des élèves.
J'essaie de trouver un moyen ludique de les intéresser à excel.
Vous pouvez voir le problème sur le bouton de commande du groupe A.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
934
Réponses
6
Affichages
950
Réponses
11
Affichages
728
Réponses
1
Affichages
794
Réponses
1
Affichages
1 K
Retour