Problème de marco (suite de problème formule Euro08)
Re Bonjour à tous,
Alors Merci déjà pour l'aide des formules de mon tableau de pronostics de l'Euro08.
J'ai maintenant une seconde requête, très importantes également. Mais personnellement je ne connais pas du tous les macros je suis donc incapable de le faire c'est pourquoi je m'adresse à vous.
Il Faudrait créer un bouton macro sur mon tableau et j'aimerais qu'en cliquant sur ce bouton (qui se trouverais sur la page "match Shedule") les groupes (feuille "groups") se trient automatiquement par ordres de points. Et idéalement si les points sont égalité alors qu'il prenne la colonne GD (différence de goal) pour trier. Mais le plus important est déjà que cela se classe par ordre de points.
Est-ce que quelqu'un peut m'aider ?
Merci déjà pour votre patience et votre aide.
Si je me suis mal exprimé sur un point n'hésitez pas à me poser la question.
A bientôt
salut je sais pas faire de bouton par contre mais je crois que la macro fonctionne !
Sub trier_classement()
Sheets("Groups").Select
'tri
For i = 1 To 4
Select Case i
Case 1
l = 4
c = 3
Case 2
l = 4
c = 15
Case 3
l = 11
c = 3
Case 4
l = 11
c = 14
End Select
Range(Cells(l, c), Cells(l + 3, c + 8)).Select
ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Add Key:=Range(Cells(l, c + 1), Cells(l + 3, c + 1)), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Add Key:=Range(Cells(l, c + 7), Cells(l + 3, c + 7)), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Groups").Sort
.SetRange Range(Cells(l, c), Cells(l + 3, c + 8))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next i
End Subje sais pas comment joindre 1 fichier !