Macro excel classement

[shoub]

Bonjour à tous,

Tout d'abord je tiens à dire que je n'y connais rien en macro (je sais ça commence bien...🙄)
Pourtant je dois faire une macro avec la création d'un bouton qui va me permettre de classer le tableau en pièce-jointe!

Je m'explique :

-Il faudrait qu'en appuyant sur ce bouton le tableau ne ressorte QUE les lignes comportant un champ vide dans la colonne P (réponse finale)
-Un petit plus serait qu'un deuxième classement s'effectue après concernant la colonne B (Poste clé) et que les OUI apparaissent en premier

Et enfin il me faudrait un autre bouton qui permettre de rétablir le tableau à la "normal"...

Je ne sais pas du tout si c'est une formule qui prend du temps vu qu'en macro je suis proche du niveau Zéro...🙁

Merci d'avances pour vos réponses

Bonne journée à tous

 

[natorp]

Re : Macro excel classement

Bjr Shoub

as-tu essayé le filtre automatique qui répond exactement à ta demande ?

cordialement, Gérard

 

[shoub]

Re : Macro excel classement

Bonjour gérard,

Oui c'est exactement ce que j'ai conseillé de faire mais on me demande expressément de faire une macro...(peut être pour me compliquer la tâche!😕)


Cdt

 

[natorp]

Re : Macro excel classement

Re

voici une approche avec boutons

cordialement, Gérard

 

[shoub]

Re : Macro excel classement

Merci,

Mais comment activer les boutons? j'ai beau cliquer dessus rien ne se passe ?😕

 

[natorp]

Re : Macro excel classement

Re :

mon réseau d'entreprise supprime le VBA
donc ouvrir Visual basic (Alt + F11)
insérer un module et copier le code suivant :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 02/12/2010 par Lequet17449g
'

'
    Range("A2").Select
    Selection.AutoFilter
    ActiveWindow.SmallScroll ToRight:=7
    Selection.AutoFilter Field:=16, Criteria1:="="
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A2:P62").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/12/2010 par Lequet17449g
'

'
    ActiveWindow.SmallScroll ToRight:=7
    Selection.AutoFilter Field:=16
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A2").Select
    Selection.AutoFilter
End Sub

ensuite affecter la macro1 au bouton "filtre" et la macro2 au bouton "sans filtre"

cordialement, Gérard

 

[shoub]

Re : Macro excel classement

Parfait! ca marche bien dans le fichier !Merci!!!
Par contre si je compte rajouter des colonnes dois-je changer cette ligne de code :

Selection.AutoFilter Field:=16, Criteria1:="=" ?

 

[natorp]

Re : Macro excel classement

Re :

pour être le plus précis possible : si vous insérez des colonnes entre la B et la P il faut changer le chiffre de la ligne que vous avez sélectionnée : Field: = 16 agit sur la colonne P (P étant la seizième lettre de l'alphabet)
Ne pas oublier de le changer aussi dans la macro2

cordialement, Gérard

 

[shoub]

Re : Macro excel classement

Bonjour!

Merci pour les explications c'est déjà un peu plus clair!

Je reviens vers vous pour une nouvelle requête avec cette fois plus d'arguments...

je vais tenter d'être clair!
Cette fois il me faudrait une macro pour classer dans un premier temps
-la colonne K, ("ouvert" doit ressortir) puis classer suivant
-la colonne H (classement par date, les plus anciens en premier...) et enfin
-la colonne F ("Oui" doit ressortir en premier)

J’espère avoir été clair et pouvoir refaire une macro la prochaine fois ...

Merci d'avance

 

[shoub]

Re : Macro excel classement

Si un filtre élaboré le fait je suis preneur le cas échéant...

 

[natorp]

Re : Macro excel classement

Re,

Effectivement un filtre automatique peut fonctionner

1- mettre un filtre automatique sur la ligne 4
2- sur la petite flèche de la cellule K4 sélectionner ouvert
3- sur la petite flèche de la cellule H4 sélectionner tri croissant
4- sur la petite flèche de la cellule F4 sélectionner tri décroissant

Cordialement, Gérard