Discussion :

[NEC14]

Bonjour à tous,

J'ai un tableau dans lequel je saisis différentes données. Suite à cette saisie un calcul automatique se fait dans le cellule "L" et suivant le total un prix est accordé, prix qui s'affiche dans la cellule "M".
Hors, je souhaiterai qu'un tri se fasse automatiquement lors de la saisie, c'est à dire que le candidat ayant le plus grand nombre de points soit toujours en tête de tableau et les autres à la suite par ordre de valeur de points.

Je n'arrive pas à faire la macro, je sais faire une macro de tri mais pas que celle-ci fonctionne quand je change de ligne. Il faut également que les lignes vides ne soient pas prises en compte dans le tri.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Range("A3:M249").Select
    ActiveWorkbook.Worksheets("Général").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Général").Sort.SortFields.Add Key:=Range("L4:L249" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Général").Sort
        .SetRange Range("A3:M249")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select
End Sub

Merci par avance pour votre aide
Amicalement
René

[Jean-Philippe André]

Salut,
est-ce que cet un evenement que tu cherches ?

A priori ca serait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

afin que ca ne parte pas en cacahuete par la suite, je pense que mettre un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

en debut de procedure evitera un lancement eternel de la macro

[NEC14]

Merci jpcheck pour ta réponse. Comment faire pour que le tri ne prenne pas en compte les lignes vides du tableau ?
Merci par avance

[NEC14]

Voilà j'ai fait cette macro que j'ai mis dans le module de la feuille Worksheet_Change
Cependant je rencontre un problème, les données triées ne restent pas en haut de tableau mais vont en fin là où il n'y a rien de saisi.
Donc il ne faut trier que les lignes complètes et surtout qu'elles restent en haut de tableau.

Pouvez-vous m'aider à terminer la macro s'il vous plait ?
Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim KeyCells As Range
' La variable KeyCells contient les cellules qui déclencheront le tri
Set KeyCells = Range("j4:j249")
 
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
 
' Le tri s'éxécute si une cellule de la colonne "J" est modifiée
 
Range("A3:M249").Select 'sélection des cellules du tableau à trier
 
    ActiveWorkbook.Worksheets("Général").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Général").Sort.SortFields.Add Key:=Range("L4:L249" _
        ), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Général").Sort
        .SetRange Range("A3:M249")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select
End If

En fait ça marche si je supprime la formule de calcul qui se trouve dans les cellules de la colonne "L".
Donc l'astuce serait de créer un calcul uniquement si la cellule en A (par exemple si A5<>"" alors L5 = K5), bien entendu le calcul doit s'appliquer après la saisie de chaque ligne.
Mais ça je ne sais pas faire. Pouvez-vous m'apporter votre aide s'il vous plait ?
Merci par avance

[78chris]

Bonjour

Tu utilises 2016 : depuis 2003 et surtout 2007 on a grand intérêt à utiliser les tableaux.

Les formules se recopie automatiquement ainsi que le format donc on ne crée pas de ligne vides avec des formules, en VBA on trie le tableau ListObject (dont Excel connait la taille) et non une plage dont il faut gérer la taille qui évolue...

C'est plus efficace et simple à gérer et cela éviterait le problème que tu rencontres...

[NEC14]

Bonjour et merci 78chris. Je n'ai pas compris ta réponse, peux-tu m'expliquer s'il te plait ? j'ai le cerveau un peu lent ce matin