[XL-2017] Tri automatique .. VBA

Version imprimable

19/09/2019, 16h40
Invité

1 pièce(s) jointe(s)

[XL-2017] Tri automatique .. VBA
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:

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.

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:

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

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 .... :D

[EDIT] : J'ai trouvé en quelques minutes !! ça me soulage :D
Il fallait changer la demande du contenu pour la cellule de gauche, ce qui devient : Cells(Lig, "B") = Cells(10, c)
Donc ...
Code:

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
MERCIIIIIIIIIIIIIIIIIIII

20/09/2019, 15h48
Invité

En fait j'ai encore une toute petite question ..

Comment trier automatiquement par la colonne C par exemple .... (ordre alphabétique)
Merci ! :)
20/09/2019, 15h56
BENNASR

bonsoir
démarre l'enregistreur automatique et faire l'opération manuellement , arrêter l'enregistreur et tu aura un code sur plateau