XL 2013 Filtre decroissante par macro

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Avril 2021

• #2

Bonjour Lestoiles,
En PJ un essai en utilisant l'enregistreur de macro et en optimisant un petit peu.

 

Pièces jointes

• Filtre par macro.xlsm

  23.2 KB · Affichages: 4

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 15 Avril 2021

• #3

J'ai vu que vous avez utiliser un bouton, est-ce que c'est possible de le faire automatiquement (sans bouton)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Avril 2021

• #4

Re bonjour,

lestoiles1 à dit:

est-ce que c'est possible de le faire automatiquement

Cliquez pour agrandir...

Sur quel critère ?
Clic sur cellule, Insertion donnée .... ?

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 15 Avril 2021

• #5

L'efficience est le resultat entre la colonne "temps" et la colonne " heure de travail" , temps/Heure de travail = Efficience, et chaque jour cette efficience change et j'aimerais que ça trie automatiquement sans l'aide d'un bouton.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Avril 2021

• #6

Il faut qu'il y ait un élément déclencheur.
Dans la PJ la macro est lancée à l'ouverture du fichier.

lestoiles1 à dit:

chaque jour cette efficience change

Cliquez pour agrandir...

Des données ont elles changées ? Comment sont elles importées ?
Sans élément déclencheur difficile de faire mieux.

 

Pièces jointes

• Filtre par macro V2.xlsm

  22.5 KB · Affichages: 3

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 15 Avril 2021

• #7

j'ai remplacé l'efficience par une formule, si on change l'un des heures, normalement ça trie automatiquement, c'est que j'aimerais avoir si possible.

 

Pièces jointes

• Filtre par macro V2.xlsm

  23 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Avril 2021

• #8

Essayez cette PJ avec :

VB:

Thisworkbook :
Public msValeurSave
Private Sub Workbook_Open()
    SumEfficience = Sheets("Sheet1").Application.Sum(Range("Q4:Q100"))
     TriEfficience
End Sub
Sheet1:
Sub Worksheet_Calculate()
    SumEfficience = Application.Sum(Range("Q4:Q100"))
    If SumEfficience <> msValeurSave Then
        TriEfficience
        msValeurSave = SumEfficience
    End If
End Sub

L'inconvénient est que cette macro s'exécutera dès qu'une cellule sera modifiée.

Il existe d'autres méthode si la modification de valeur s'effectue en cliquant sur une cellule. Mais je ne sais pas comment sont ré actualisées vos valeurs.

 

Pièces jointes

• Filtre par macro V3.xlsm

  24.8 KB · Affichages: 6

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 15 Avril 2021

• #9

ok, je vais exploiter les bagages que vous m'avez donné, le but c'est que lorsqu'on modifie l'heure total ou l'heure de travail , a ce moment , l'efficience change et ca va se trier automatiquement en mode decroissant.
Merci bcp

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Avril 2021

• #10

lestoiles1 à dit:

lorsqu'on modifie l'heure total

Cliquez pour agrandir...

Tout votre problème est là. Qui modifie cette heure ?
Un copier coller ?
Une sélection de cellule ?
Si c'est par une en entrée manuelle alors on peut détecter celle ci pour mettre à jour.

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 15 Avril 2021

• #11

c'est une sommeprod , resultat d'une autre feuille.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Avril 2021

• #12

Votre fichier ne comportant qu'une feuille, difficile de le savoir.
On peut lancer la macro lorsque la feuille est sélectionnée. De cette façon à chaque fois qu'on regarde cette feuille elle est à jour.

 

Pièces jointes

• Filtre par macro V4.xlsm

  25.5 KB · Affichages: 8

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 16 Avril 2021

• #13

Bonjour, le probleme c'est que la fichier est trop volumineux pour etre importé ici. D'ou la seule feuille, Merci bcp pour votre aide. je vais exploiter ces options.

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 16 Avril 2021

• #14

Avec l'actualisation , je crois que ça marche. merci

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 16 Avril 2021

• #15

ou bien si tu trouve un macro : a chaque fois qu'une cellule change de valeur sa s'actualise automatiquement, le mieux c'est ça car c'est bizarre de voir qu'il s'actualise à chaque fois que je clique dessus. merci

 

Vote positif 0 Vote négatif