1 pièce(s) jointe(s)
Erreur d’exécution sur RANGE
Bonjour a Tous,
Dans un Userform j'essaie de récupérer les entêtes de colonnes de 4 onglets dans 4 listbox.
Une boucle de 0 a 3. Le premier tours de boucle fonctionne mais arrivé a i=1, l'objet MyRange ne fonctionne plus. Et j'avoue ne pas savoir pourquoi.
Erreur d’exécution '1004':
Erreur définie par l'application ou par l'objet.
A mon avis y'a un gros truck sous mon nez, je le sens dans ma tripaille.
Et si vous constatez un meilleur code pour arrivé a mes fins, je suis preneur.
Merci pour votre aide. :D
Bonne journée
Code:
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
|
Private Sub UserForm_Initialize()
Dim TabOngl(3) As String
Dim TabObj(3) As Object
Dim MyRange As Range
Dim i as Integer
Dim MyLong As Long
Dim element As Object
TabOngl(0) = "SFR MOBILE"
TabOngl(1) = "SFR FIXE ADSL"
TabOngl(2) = "ORANGE MOBILE"
TabOngl(3) = "ORANGE FIXE"
Set TabObj(0) = Me.LB_ParamColExistSM
Set TabObj(1) = Me.LB_ParamColExistSFA
Set TabObj(2) = Me.LB_ParamColExistOM
Set TabObj(3) = Me.LB_ParamColExistOF
For i = 0 To 3
MyLong = Sheets(TabOngl(i)).UsedRange.Columns.Count - 1
Set MyRange = Sheets(TabOngl(i)).Range(Cells(1, 1), Cells(1, MyLong))
For Each element In MyRange
TabObj(i).AddItem element
Next element
Set MyRange = Nothing
Next i
End Sub |
