Bonjour à tous,
J'ai une BDD qui regroupe tout les infos relatives à des agences. Dans la BDD en colonne "A" il y a la référence (numéro) en "B" le nom de l'agence et plus loin en "H" le nom de la région.
Ma feuille principale (ROOT) a un bouton qui mène à la feuille (Map). Sur cette feuille Map, il y a un carte où tous les région sont des boutons que l'on peut cliquer. Lorsqu'on clique sur une région, cela lance une macro (rangée dans un module) et qui fait un filtre sur la BDD qui va masquer toutes les régions différente que celle sélectionnée en cliquant sur la carte. À la fin de la macro, s'ouvre un UserForm qui aura pour but de consulter, modifier ou supprimer les infos relatives au agence.
À l'initialisation du UserForm, il y a une ListBox1, en 2 colonnes (Ref et nom d'agence) qui dois s'alimenter avec la BDD. La ListBox1 est bien alimentée, mais avec toutes les agence toutes régions confondues et pas uniquement avec les agences visible après le filtre.
Comment faire pour alimenter la ListBox1 uniquement avec les données visibles de la BDD? J'ai, dans mon code, une variante "Dim Tableau_plage_listbox1 As Variant" que je n'arrive pas à setter et je ne sais même pas si cette variante est obligatoire.
Soyez indulgent, ca ne fait qu'une semaine que j'ai les pieds dans le VBA.
Merci d'avance
Private Sub UserForm_Initialize()
Dim onglet As Worksheet
Dim derniere_ligne As Long
Dim Tableau_plage_listbox1 As Variant
Dim arr_data() As Variant
Set onglet = Worksheets(3)
derniere_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row
If derniere_ligne > 1 Then
arr_data = onglet.Range(onglet.Cells(2, 1), onglet.Cells(derniere_ligne, 2))
ListBox1.ColumnCount = 2
frmconsmodsup.ListBox1.ColumnWidths = "20;250"
ListBox1.List = arr_data
End If
End Sub
J'ai une BDD qui regroupe tout les infos relatives à des agences. Dans la BDD en colonne "A" il y a la référence (numéro) en "B" le nom de l'agence et plus loin en "H" le nom de la région.
Ma feuille principale (ROOT) a un bouton qui mène à la feuille (Map). Sur cette feuille Map, il y a un carte où tous les région sont des boutons que l'on peut cliquer. Lorsqu'on clique sur une région, cela lance une macro (rangée dans un module) et qui fait un filtre sur la BDD qui va masquer toutes les régions différente que celle sélectionnée en cliquant sur la carte. À la fin de la macro, s'ouvre un UserForm qui aura pour but de consulter, modifier ou supprimer les infos relatives au agence.
À l'initialisation du UserForm, il y a une ListBox1, en 2 colonnes (Ref et nom d'agence) qui dois s'alimenter avec la BDD. La ListBox1 est bien alimentée, mais avec toutes les agence toutes régions confondues et pas uniquement avec les agences visible après le filtre.
Comment faire pour alimenter la ListBox1 uniquement avec les données visibles de la BDD? J'ai, dans mon code, une variante "Dim Tableau_plage_listbox1 As Variant" que je n'arrive pas à setter et je ne sais même pas si cette variante est obligatoire.
Soyez indulgent, ca ne fait qu'une semaine que j'ai les pieds dans le VBA.
Merci d'avance
Private Sub UserForm_Initialize()
Dim onglet As Worksheet
Dim derniere_ligne As Long
Dim Tableau_plage_listbox1 As Variant
Dim arr_data() As Variant
Set onglet = Worksheets(3)
derniere_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row
If derniere_ligne > 1 Then
arr_data = onglet.Range(onglet.Cells(2, 1), onglet.Cells(derniere_ligne, 2))
ListBox1.ColumnCount = 2
frmconsmodsup.ListBox1.ColumnWidths = "20;250"
ListBox1.List = arr_data
End If
End Sub