Tri sur plage vba

Version imprimable

Tri sur plage vba

Bonjour,

J'ai un tableau dans une feuille intitulée congé annuels, le tableau est nommé tableau 5. Mon tableau est un tableau dynamique qui s'étend des colonnes A à J

J'ai créer une macro pour faire un tri automatique lorsque l'on rentre une date en colonne A. Le problème c'est que mon tri s'étend à toutes les colonnes, hors je voudrais qu'il s'étende uniquement des colonnes A à F incluse.

Une idée pour que le tri ne se fasse que sur la plage donnée en fonction de la colonne A ?

Mon code est ci-dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Tableau5")) Is Nothing Then ' si la cellule modifiée fait partie du tableau5
        Application.ScreenUpdating = False ' pour éviter que le tableau "clignote" on arrête la mise à jour de l'écran
 
 
                ActiveWorkbook.Worksheets("Congé Annuels").ListObjects("Tableau5").Sort.SortFields. _
                Clear ' supprime les filtres éventuels
            ActiveWorkbook.Worksheets("Congé Annuels").ListObjects("Tableau5").Sort.SortFields. _
                Add Key:=Range("Tableau5[[#All],[Date :]]"), SortOn:=xlSortOnValues, Order _
                :=xlAscending, DataOption:=xlSortNormal ' tri par ordre croissant sur la colonne date (colonne A)
            With ActiveWorkbook.Worksheets("Congé Annuels").ListObjects("Tableau5").Sort
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        Application.ScreenUpdating = True ' on remet en marche la mise à jour de l'écran
    End If
End Sub

Merci d'avance pour la lecture et bonne fin de journée.

15/01/2020, 15h51
Philippe Tulliez

Bonjour,

Citation:

Une idée pour que le tri ne se fasse que sur la plage donnée en fonction de la colonne A ?

C'est curieux comme demande car un tri sur une ou plusieurs colonnes DOIT être étendue sur l'ensemble de la liste donc toutes les colonnes.
15/01/2020, 16h14
Transitoire

Bonjour, je m'associe a @Philippe Tulliez, si vous éffectuez un tri sur une partie des colonnes, quid des colonnes restantes dont les lignes ne correspondront plus du tout.:weird:
Je vous propose donc, de faire en premier une extraction des colonnes de A a F puis ensuite de trier la nouvelle base suivant la nouvelle colonne des dates. Ainsi vous conserverez l'intégrité des données de votre tableau initial.
Si vous ne connaissez pas les filtres élaborés, je vous invite à consulter le Tutorom de @Philippe Tulliez concernant les filtres élaborés.

Cordialement 8-)
16/01/2020, 09h25
jahsoldier

1 pièce(s) jointe(s)

Bonjour,

En fait mon soucis c'est que dans le tableau j'ai des formules dans les colonnes qui suivent mais que la formule en H2 par exemple n'est pas la même qu'en H3, H4 et suivante. Je peux toujours vous mettre mon tableau et ma feuille pour que vous y jetiez un œil éventuellement.

Dedans je n'ai donc pas mis la macro qui est dans le premier message mais un copier-coller suffira ^^

En bref ce que je voudrais faire, c'est dans la seconde feuille (Congé Annuels). Lorsque l'on introduit une date en colonne A, il faudrait que le tri se fasse directement après encodage. Le but étant que les dates soient classées par ordre chronologique mais que les formules qui sont en case G2, H2, I2 et J2 restent en place afin de ne pas fausser la suite des calculs. J'ai bien essayé de mettre une condition du style : (Si (ligne()<3); formule H2; formule H3) mais je n'arrive pas à l'encoder correctement.

Et j'ai encore un autre soucis, je voudrais que si le solde d'heures devient négatif dans une des colonnes H,I, la feuille décompte le restant dans la colonne suivante, à savoir I et J et que l'affichage mentionne 0 et pas une valeur négative (mais cela je cherche encore comment faire dans mes conditions).

En pièce jointe mon fichier.

Merci pour la lecture déjà :)
16/01/2020, 13h05
Transitoire

Bonjour,

Citation:

Et j'ai encore un autre soucis, je voudrais que si le solde d'heures devient négatif dans une des colonnes H,I, la feuille décompte le restant dans la colonne suivante, à savoir I et J et que l'affichage mentionne 0 et pas une valeur négative (mais cela je cherche encore comment faire dans mes conditions).

Ci dessous la formule pour la colonne I, vous n'avez plus qu'a vous en inspirer pour la colonne J. Sous réserve que votre formule initiale soit bonne?

Code:

=SI(OU(MOIS(A6)>=5; H6<=0); SI(I5-F6<=0;0;I5); I5)

Cordialement 8-)
21/01/2020, 15h08
jahsoldier

1 pièce(s) jointe(s)

Bonjour,

Merci pour la formule et désolé du temps d'attente pour une réponse de ma part.

J'ai avancé un peu dans mon fichier, mais j'ai toujours quelques soucis.

En gros, à l'heure actuelle mon fichier fonctionne correctement jusqu'à la ligne 5 (sur la seconde feuille). En fait je voudrais que lorsque ma colonne H passe en négatif, la colonne I commence à se décompter pour le solde restant (dans mon cas, la colonne I devrait afficher 29 et non 26).

Pour essayer d'être synthétique, lorsque que le mois dans la colonne A est < 5 on décompte dans la colonne H (tant qu'il reste des heures positives). Ensuite on décomptera dans la colonne I le reste ou toute prise d'heures après le mois d'avril.

J'ai quelques SI imbriqués, et je me demandais si je ne rajouterais pas une conditions en colonne I, à savoir que si la case H de la ligne supérieure est négatif, on ne décompte que ce qui est en colonne F. Mais je ne vois pas où et comment l'imbriquer en plus dans le reste.

Merci d'avance pour la lecture et bonne journée à vous :)