probleme clear dans listbox
Bonjour à tou(te)s
afin de régler un problème de rapidité d'éxecution, j'ai changé le code suivant à l'initialisation d'un USF :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| a = .Range("A" & .Rows.Count).End(xlUp).Row
Set PLAGE = .Range("b2 :b" & a)
With REFCHOISIE 'ma listbox
For Each cel In PLAGE
.AddItem cel(1, 0)
.Column(1, .ListCount - 1) = cel(1, 1)
.Column(2, .ListCount - 1) = VBA.Format(cel(1, 2), "#,##0.00 €")
.Column(3, .ListCount - 1) = VBA.Format(cel(1, 3), "#0.00 %")
.Column(4, .ListCount - 1) = cel(1, 5)
.Column(5, .ListCount - 1) = cel(1, 6)
.Column(6, .ListCount - 1) = VBA.Format(cel(1, 8), "# ##0.00 €")
.Column(7, .ListCount - 1) = VBA.Format(cel(1, 9), "##0")
Next cel
End With |
pour celui-ci :
Code:
1
2
3
4
5
6
7
| a = .Range("A" & .Rows.Count).End(xlUp).Row
End With
With REFCHOISIE
.ColumnCount = 10
.RowSource = "A2:J" & a
.ColumnWidths = ";250;42;42;0;185;40;0;48;" 'Masque les colonnes inutiles
End With |
mais avant je pouvais utiliser "REFCHOISIE.CLEAR" (pour mes besoins) or avec le code ci-dessus, j'obtiens "erreur non repertorié" sur cette ligne
Je ne vois pas d'ou vient le problème ?
alors si quelqu'un voit mon erreur et peut m'aider, merci d'avance
