[XL-2017] Tri automatique .. VBA

Invité · 19/09/2019, 16h40

Bonjour,
Je m'arrache les cheveux .....

Je souhaiterais qu'un filtre que j'ai positionné, s'ajuste automatiquement quand je modifie une donnée. Par ailleurs, cette liste finalement est basée sur une plage de donnée ce qui ne facilite pas le tout ...

Je mets mon fichier en pièce jointe et explique mon problème :

EN GROS :

Si je sélectionne Test 1 je devrais voir une seule ligne avec comme données Titre 2, puis "3"
Si je sélectionne Test 2 je devrais voir une seule ligne avec comme données Titre 1, puis "1"
Si je sélectionne Test 3 je devrais voir une seule ligne avec comme données Titre 3, puis "2"
Si je sélectionne Test 4 je devrais voir deux lignes, une avec Titre 2, puis "1 ET AUSSI une seconde ligne avec Titre 3 et "2" ….

Actuellement, je vois tout … Je voudrais filtrer automatiquement quand je modifie le choix en case C2 (jaune) et que les lignes disparaissent si c'est "0" finalement. Alors qu'actuellement, le filtre choisi précédemment ne modifie pas les lignes qui s'affichent et du coup, le choix 0 reste si je modifie ... (je sais pas si je suis clair).

J'ai bien compris qu'il fallait faire un fichier xslm, qu'il fallait faire clic droit et visualiser le code ... et mettre quelque chose qui a à voir avec du "Range"

J'ai testé plein plein de trucs mais là ... Je suis programmeur PHP à mes heures perdues, et ne connais pas trop le VBA m'enfin ... je devrais pouvoir lire sans souci !

Pour le moment j'ai mis ça (qui devrait ne m'afficher que quand le contenu est "3" dans la colonne C si j'ai bien compris). :

Code :

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

1
2
3
With Worksheets("Feuil1")
    If Not .AutoFilterMode Then .Range("C5").AutoFilter Field:=1, Criteria1:="3"
End With

Mais bien entendu ... ça ne marche pas :'(

HELPPPPP

Bonne journée.

**ARTURO83** · 20/09/2019, 05h21

Bonjour,

En fait, ce n'est pas un tri ni d'un filtre qu'il vous faut, mais plutôt une extraction d'un tableau suivant le critère choisi.

le fichier, sélectionnez le test en C2 pour obtenir le résultat
Pièce jointe 504398

Le code dans le module de la feuille1

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Lig As Long, c As Long
    Dim t As Object
    Application.ScreenUpdating = False '
    Application.EnableEvents = False 'pour interdire la relance à chaque modification provoquée par la macro
    Range("B6:C8").ClearContents 'on efface les précédents résultats
    Lig = 6 'première ligne de remplissage
    Test = [C2] ' on récupère le choix demandé
    Set t = Range("H10:H14").Find(Test, LookIn:=xlFormulas, LookAt:=xlWhole) 'on recherche la position du test
    If Not t Is Nothing Then 's'il existe
        For c = 9 To 11 ' de la colonne 9 à 11
            If Cells(t.Row, c) <> "" Then 'si la cellule testée n'est pas vide
                Cells(Lig, "B") = Cells(t.Row, "H") 'on recopie le titre et la valeur
                Cells(Lig, "C") = Cells(t.Row, c)
                Lig = Lig + 1 'on se prépare pour écrire sur la ligne suivante
            End If
        Next
    End If
    Application.EnableEvents = True
    Set t = Nothing
End Sub

Cdlt

Invité · 20/09/2019, 09h33

Bonjour,
Déjà ... UN GRAND MERCI !!!! C'est exactement ça que je voulais faire ...

Juste une autre petite question pour avoir à 100% ce que je souhaitais). Comment mettre le "Titre" de la colonne et non le nom du Test dans la colonne "B" de chaque ligne ?

Là il met le contenu de C2 si j'ai bien compris (ou le titre de la ligne dans le tableau de droite plutôt), pour chaque ligne affichée. Je voudrais qu'il indique le titre de la colonne du tableau de droite : ex pour le Test 4 :
"Titre 2" suivi de 1
et sur la ligne suivante "Titre 3" suivi de 2

Merci encore ....

[EDIT] : J'ai trouvé en quelques minutes !! ça me soulage

Il fallait changer la demande du contenu pour la cellule de gauche, ce qui devient : Cells(Lig, "B") = Cells(10, c)
Donc ...

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Lig As Long, c As Long
    Dim t As Object
    Application.ScreenUpdating = False '
    Application.EnableEvents = False 'pour interdire la relance à chaque modification provoquée par la macro
    Range("B6:C8").ClearContents 'on efface les précédents résultats
    Lig = 6 'première ligne de remplissage
    Test = [C2] ' on récupère le choix demandé
    Set t = Range("H10:H14").Find(Test, LookIn:=xlFormulas, LookAt:=xlWhole) 'on recherche la position du test
    If Not t Is Nothing Then 's'il existe
        For c = 9 To 11 ' de la colonne 9 à 11
            If Cells(t.Row, c) <> "" Then 'si la cellule testée n'est pas vide
                Cells(Lig, "B") = Cells(10, c) 'on recopie le titre et la valeur
                Cells(Lig, "C") = Cells(t.Row, c)
                Lig = Lig + 1 'on se prépare pour écrire sur la ligne suibvante
            End If
        Next
    End If
    Application.EnableEvents = True
    Set t = Nothing
End Sub