Discussion :

[Peerl]

Ça marche maintenant, mais que ce passe-t-il si un utilisateur rajoute une colonne ? Bon après, ça ce trouve, il n'y a aucune raison, qu'un jour quelqu'un rajoute une colonne.

à mon avis si un utilisateur rajoute une colonne , la colonne 5 et la colonne 6 etc s'affichent ! mais bon dans mon cas la structure est stable !


Bon , ma question est :je dois effectuer un tri d'une liste en fonction des identifiants des entreprises par exemple .. j'ai un tableau ou je peux trouver les identifiants , secteur, ...,avec d'autres colonnes qui montre le taux par des variables ( chaque colonne à pour nom d'une variable) ...mon but est de pouvoir filtrer cette liste par secteur par exemple ( c'est fait ) mais je veux aussi pouvoir sélectionner une variable et afficher toute la colonne . en gros , je dois avoir à la fin une liste avec identifiant , secteur etc ..et la variable sélectionné exactement pas le reste des variables ( colonnes ).

pour plus de précision les variables occupes les colonnes [J,k,L....].


est ce que j'ai pu bien expliquer mon besoin ?

Merciii

[Qwazerty]

Pitié, fais un fichier démo avec des données bidons qu'on voit comment est structuré ton tableau! (sans vouloir me répéter bien sûr )

[Peerl]

Pitié, fais un fichier démo avec des données bidons qu'on voit comment est structuré ton tableau! (sans vouloir me répéter bien sûr )

d'accord je vais faire ça

[Wololol]

à mon avis si un utilisateur rajoute une colonne , la colonne 5 et la colonne 6 etc s'affichent ! mais bon dans mon cas la structure est stable !

Si tu veux toujours la dernière colonne, pourquoi ne pas faire k = Ncol1 et retirer la boucle? Ça simplifierai le code

Ce que tu souhaites maintenant c'est afficher / masquer des colonnes en fonction de ta liste ?

[Peerl]

Si tu veux toujours la dernière colonne, pourquoi ne pas faire k = Ncol1 et retirer la boucle? Ça simplifierai le code

Ce que tu souhaites maintenant c'est afficher / masquer des colonnes en fonction de ta liste ?

je vais tester ta solution , je te tiens au courant .

Voici un exemple de ce que je veux avoir comme résultat :

[Qwazerty]

Salut

Peux tu essayer de sélectionner ton tableau, puis d'aller dans le menu Insertion, Tableau.
Une fois que c'est fait tu as toutes les options de tri à ta disposition, n'est-ce pas suffisant ?


++
Qwaz

[Wololol]

Re,

J'ai écrit un code, bon certes c'est pas le plus beau ou le plus opti, mais il fait ce qu'on lui demande

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Click()
     For i = 1 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column
       If Cells(1, i).Value = ComboBox1.Value Then
        For j = 1 To Range("A" & Rows.Count).End(xlUp).Row
            If Cells(j, i).Value <> "" Then
                ListBox1.AddItem Cells(j, i).Value
            End If
        Next
    End If
    Next
End Sub

Malheureusement, je ne sais pas faire de magnifiques gif de présentation comme les habitués de ce forum, mais voici le résultat quand on sélectionne A :

[Peerl]

Salut

Peux tu essayer de sélectionner ton tableau, puis d'aller dans le menu Insertion, Tableau.
Une fois que c'est fait tu as toutes les options de tri à ta disposition, n'est-ce pas suffisant ?


Qwaz

j'ai pensé à ça mais est ce que ça va fonctionné avec mon USERFORM .. je suis vraiment NOVICE EXCEL vba

[Qwazerty]

Pourquoi vouloir garder ce UserForm?
Les données affichées dans le tableau trié ne suffisent pas?

Si la réponse est non, le contenu du ListBox doit-il pouvoir être copier au format texte ou une image suffirait-elle?

++

[Peerl]

Pourquoi vouloir garder ce UserForm?
Les données affichées dans le tableau trié ne suffisent pas?

Si la réponse est non, le contenu du ListBox doit-il pouvoir être copier au format texte ou une image suffirait-elle?

++

Le formulaire doit effectuer la recherche sur un classeur qui a 4 feuilles .
Ce formulaire doit aussi pouvoir effectuer des recherches sur d'autres classeurs ayant la même structure .

DONC je ne pense pas que le filtre avancé ou autre pourrait m’être utile dans ce cas à moins que si et que je l'ignore ..en gros , je suis habituée à faire des programmes en JAVA avec interface et jar etc ..avec VBA , je suis aller directement partie développeur , insérer USERFORM et module et j'ai même utilisée MODULE classe .

leur besoin est d'automatiser le maximum ..

[Peerl]

Re,

J'ai écrit un code, bon certes c'est pas le plus beau ou le plus opti, mais il fait ce qu'on lui demande

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Click()
     For i = 1 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column
       If Cells(1, i).Value = ComboBox1.Value Then
        For j = 1 To Range("A" & Rows.Count).End(xlUp).Row
            If Cells(j, i).Value <> "" Then
                ListBox1.AddItem Cells(j, i).Value
            End If
        Next
    End If
    Next
End Sub

Malheureusement, je ne sais pas faire de magnifiques gif de présentation comme les habitués de ce forum, mais voici le résultat quand on sélectionne A :

Merci beaucoup mais cette ligne , le "A" indique que la rangé A ?

Code :

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

1
2
 
  For j = 1 To Range("A" & Rows.Count).End(xlUp).Row

[Qwazerty]

Merci beaucoup mais cette ligne , le "A" indique que la rangé A ?

Code :

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

1
2
 
  For j = 1 To Range("A" & Rows.Count).End(xlUp).Row

Cette ligne pemret connaitre le nombre de ligne contenu dans le tableau en cherchant la dernière cellule non vide de la colonne A


Ok pour l'utilisation du UserForm.
Par contre peux-tu répondre à mon autre question Le format doit-il être du texte ou une image suffit-elle?

++

[Wololol]

Non, enfaite j'ai fais ça rapidement mais cette ligne permet juste de récupérer la dernière ligne utilisée, là j'ai pris la colonne A car c'était la plus remplie, c'est pour ça que j'ai dis que c'était pas très opti, car si t'as que 2 ligne de remplie dans la colonne "B" par exemple, mais que t'en a 100 dans la première colonne, et bah ça va quand même parcourir 100 lignes.

Après si toutes tes colonnes sont remplies avec le même nombre de lignes, il y a aucun soucis

[Peerl]

Cette ligne pemret connaitre le nombre de ligne contenu dans le tableau en cherchant la dernière cellule non vide de la colonne A


Ok pour l'utilisation du UserForm.
Par contre peux-tu répondre à mon autre question Le format doit-il être du texte ou une image suffit-elle?

++

le format du tableau afficher dans ma LISTBOX ?

Si oui , j'ai réussi à récupérer les données afficher dans ma LISTBOX dans une autre feuille nommé "Résultat".

[Qwazerty]

Je n'ai pas vérifier mais pour avoir les autres colonnes d'affichées tu peux sans doute modifier

Code :

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

ListBox1.AddItem Cells(j, i).Value

par

Code :

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

ListBox1.AddItem range(Cells(j, "A"),Cells(j,i)).Value

Par contre si je comprends bien, tu veux pouvoir sélectionner le critère B dans ta troisième liste déroulante et te retrouver avec un tableau comme ça dans ton listbox?
Identifiant | Nom | Secteur | B

[Peerl]

Après si toutes tes colonnes sont remplies avec le même nombre de lignes, il y a aucun soucis

je vois je vais tester merci

[Peerl]

Par contre si je comprends bien, tu veux pouvoir sélectionner le critère B dans ta troisième liste déroulante et te retrouver avec un tableau comme ça dans ton listbox?
Identifiant | Nom | Secteur | B

c'est exactement ça le but !!

[Qwazerty]

J'ai une petite idée alors, regarde aussi ce message de Pierre F., je pense qu'il sera utile pour pouvoir rendre ton UserForm interactif

[Peerl]

Si tu veux vraiment savoir le besoin en détails : c'est que dans une feuille1 j'ai les variables (A,B,C..) dans une seule colonne nommé variables :

Varibales | Nom variables
A | Nom1
B | Nom2
C | Nom3

J'ai une liste déroulante qui affiche : A, B, C. --> quand je clique sur "A" j'ai le "Nom1" dans ma LISTBOX1.

jusqu'ici tout va bien !

A et B et C dans les autres feuille2, feuille3 , feuille4 sont des colonnes :

A | B | C
1 | 5 | 1
2 | 2 | 3
3 | 4 | 1

Normalement , je voulais quand je clique sur ma Liste déroulante "A" : j'obtient le "Nom1" dans ma LISTBOX1 et en même temps toute la colonne dans ma ListBox2 . sachant que cette variable peut se trouver soit dans feuille2 ou feuille3 ou feuille4.

J'ai pensé à parcourir toutes les feuilles en comparant les entêtes dès qu'il trouve la variable il affiche la colonne . ( j'ai pas su comment écrire le code en VBA ) . Et donc , je me suis dis je ferais ça séparément avec deux listes déroulante : une qui affiche le NOM et l'autre qui affiche la colonne .

COMPLIQUE

[Qwazerty]

Arff, j'avoue ne pas tout comprendre.

Peux-tu mettre deux fichier en partage dans la discussion, un pour chaque type d'organisation, ça permet de faire des recherche sans prendre le risque de partir sur une mauvaise piste.

Autre chose, as tu la main sur tout les fichiers, peux-tu mettre en place des tableaux partout? (j'entend par la menu Inserer, tableau)