Discussion :

[Merryy]

bonjour le forum ,

dans mon projet , j'ai deux feuil , une contient des données , et l'autre fait appel a une listebox insérer dans une form à l'aide d'un bouton, ma listbox affiche les données enregistrés dans la 1ere feuil, mais d'une façon statique, si j’ajoute une ligne ou une colonne ,la listbox ne change pas reste la même, je voulais savoir la fonction qui le rends dynamique , j'ai trouvé avec des recherche une fonction excel qui commence par =OFFSET... mais je n'arrive pas à l'adapter avec mes données

[Thautheme]

Bonjour Merryy, bonjour le forum,

Si tes données sont dans la colonnes A de l'onglet Feuil1, commencent à la ligne 2 (la ligne 1 contenant généralement le titre) jusqu'à la ligne ..., tu peux alimenter dynamiquement la ListBox avec :

Code :

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

1
2
3
4
5
6
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
 
Set O = Sheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O
Me.ListBox1.List = O.range("A2:A" & DL) 'alimente la ListBox1

[patricktoulon]

bonjour

dans l'evenement change du sheet tu clear ta listbox et la reremplie avec ta plage par le end(xlup) pour le lignes et le (xltoleft) pour les colonnes
voir utiliser "usedrange"

[Thautheme]

Re,

Mon premier post est plutôt pour une ComboBox. Voici un autre exemple pour une ListBox. Imaginons le tableau ci-dessous commençant en A1 :

Titre1	Titre2	Titre3	Titre4
donnée1-1	donnée2-1	donnée3-1	donnée4-1
donnée1-2	donnée2-2	donnée3-2	donnée4-2
donnée1-3	donnée2-3	donnée3-3	donnée4-3
donnée1-4	donnée2-4	donnée3-4	donnée4-4
donnée1-5	donnée2-5	donnée3-5	donnée4-5
donnée1-6	donnée2-6	donnée3-6	donnée4-6
donnée1-7	donnée2-7	donnée3-7	donnée4-7
donnée1-8	donnée2-8	donnée3-8	donnée4-8
donnée1-9	donnée2-9	donnée3-9	donnée4-9

Le code pour une alimentation dynamique acceptant ajout de ligne ou de colonne :

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
Private O As Worksheet 'déclare la variable O (Onglet)
Private TC As Variant 'déclare la variable TC (Tableau de Cellules)
Private NL As Integer 'déclare la variable NL (Nombre de Lignes)
Private NC As Byte 'déclare la variable NC (Nombre de colonnes)
 
Private Sub UserForm_Initialize() 'à 'initialisation de l'USerForm
Dim PL As Range 'déclare la variable PL (PLage)
 
Set O = Sheets("Feuil1") 'définit l'onglet O
Set PL = O.Range("A1").CurrentRegion 'définit la plage PL
Set PL = PL.Offset(1, 0).Resize(PL.Rows.Count - 1, PL.Columns.Count) 'redéfinit la plage PL sans la première ligne
TC = PL 'définit le tableau de cellules TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
NC = UBound(TC, 2) 'définit le nombre de colonnes NC du tableau de cellules TC
Me.ListBox1.ColumnCount = NC 'définit le nombre de colonnes de la ListBox1
Me.ListBox1.List = PL.Value 'alimente la ListBox1
End Sub

[Édition]
Bonjour Patrick on s'est croisé...

[Merryy]

Bonjour ,
Merci beaucoup Thautheme ,
Ton code fonctionne parfaitement

[Thautheme]

Re,

Si, si ça rajoute aussi les colonnes mais comme j'utilise CurrentRegion pour définir la plage initiale, il faut impérativement qu'il n'y ait aucune colonne vide séparant les données entre elles (idem pour les lignes d'ailleurs)...

[patricktoulon]

re
usedrange!!!!!

[Merryy]

re
usedrange!!!!!

Bonjour,
j'ai utilisé la solution de Thautheme, Merci Beaucoup