Discussion :

[dregniez]

Bonjour,
Je n'arrive pas à faire ce que je veux j'ai essayé plusieurs choses mes cela ne fonctionne pas
Je vous explique: J'ai un tableau sur une feuille qui contient plus de 900 lignes et une 15ème de colonnes
J'ai réalisé un VBA avec un Userform avec une combobox qui permet de sélectionner un nom dans la colonne 1, une fois le choix validé,
cela crée une nouvelle feuille, avec un tableau, qui normalement ne devrai contenir que les lignes ayant le nom sélectionné et qui en plus devrait n'avoir que quelques colonnes de plus après que le second tableau soit créé il faut que la colonne 1 contenant le nom disparaisse également
N'étant pas hyper doué en VBA je me tourne vers une âme charitable

J'ai mis 2 captures une avec l'extrait du tableau complet et l'autre le résultat escompté



Si vous pouvez m'aider je vous serai bien reconnaissant

[Invité]

Bonjour dregniez

Est-il possible d'avoir le fichier et/ou le code 🤔

A+

[deedolith]

Salut,

As-tu pensé à Power Query ?

[EricDgn]

Bonjour,

Juste pour donner quelques idées, un petit exemple utilisant ce code au niveau du formulaire contenant une zone de liste.

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
22
23
24
25
26
27
28
29
30
Option Explicit
 
Private Sub ListBox1_Click()
    Dim sQuery As String, k1 As Long, k2 As Long
    '--- récupère la requête en cours et y remplace le nom du détenteur actuel
    sQuery = ThisWorkbook.Queries("SelonNom").Formula
    k1 = InStr(sQuery, "[DETENTEUR] = ")
    k2 = InStr(k1, sQuery, ")")
    sQuery = Left(sQuery, k1 + 14) & Me.ListBox1.Text & Mid(sQuery, k2 - 1)
    'Debug.Print sQuery
    '--- supprime et remet la requête modifiée avec le nouveau détenteur
    ThisWorkbook.Queries("SelonNom").Delete
    ThisWorkbook.Queries.Add Name:="SelonNom", Formula:=sQuery
    ThisWorkbook.RefreshAll
End Sub
 
Private Sub UserForm_Initialize()
    Dim v, e
    v = Range("Tableau1[DETENTEUR]").Value
    With CreateObject("scripting.dictionary")
        .comparemode = 1
        For Each e In v
            If Not .exists(e) Then .Add e, Nothing
        Next
        Me.ListBox1.Clear
        If .Count Then Me.ListBox1.List = Application.Transpose(.keys)
    End With
    ListBox1_Click
    ThisWorkbook.Worksheets("FiltréSurNom").Select
End Sub

Cordialement.

[dregniez]

Bonjour Eric,
Merci, pour cette belle piste je vais voir comment je peux maintenant l'adapter pour coller au projet

[dregniez]

Bonjour Eric,
Je ne connaissais pas du tout cette fonction dans Excel
Pourrai tu m'en dire plus concernant la façon de créer la requête, car quand je modifie le noms et le nombre de colonne du tableau bien qu'en modifiant dans le VBA et dans la structure de la requête,
j'ai une erreur "Expression.Error : Jeton RightParen attendu." et en cliquant sur afficher l'erreur dans l'éditeur avancé c'est le terme "Colonnes" de la dernière ligne du Let qui ce met en surbrillance
Et je ne comprends pas pourquoi
Merci d'avance

Cdt.