re a oui ca m'a échappé faut dire que c'est plus courant dans les userforms
bon mais ca change rien il y a toujours un problème a l'utilisation il faut mettre en mode création puis revenir pour débloqué son utilisation
donc même punition walouh!!!!!!!!
heu... t'a pensé a remplacer tout ce foutoir de mes deux par un menu context perso
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 Sub test() Dim lst As OLEObject Dim tablo(4, 10) With Sheets("Feuil1") Set lst = .OLEObjects.Add("Forms.ListBox.1", Left:=0, Top:=Cells(3, 1).Top, Width:=300 - 2, Height:=100) With lst .Name = "listV" .Width = 10 * 80 .Top = .Top + 50 .Object.ColumnCount = 10 For L = 1 To 4 .Object.AddItem "R" & L For col = 1 To 9 .Object.List(L - 1, col) = "R" & L & "C" & col Next Next '.Object.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) End With End With End Sub
pas de control ajouté pas de spectre pas de sousillon avec tout ca
Partager