XL 2010 Indice n'appatient pas la sélection

[TheProdigy]

Bonjour tout le monde,

Je voudrais savoir ce qui ne va pas dans mon fichier pour l'exécution de mes Combobox 1 & 2

Private Sub UserForm_Initialize()
tbl = Sheets(1).UsedRange
          For i = 2 To UBound(tbl)
            If tbl(i, 29) <> "" Then ComboBox2.AddItem tbl(i, 29)
            If tbl(i, 27) <> "" Then ComboBox1.AddItem tbl(i, 27)
        Next i
End Sub

Merci.

 

[Dranreb]

Bonjour.
Ce MsgBox vous le révèlera :

With Sheets(1).UsedRange: MsgBox .Address & " :  " & .Rows.Count _
   & " lignes × " & .Columns.Count & " colonnes": End With

Édition: Bonjour Staple1600

 

[Staple1600]

Bonjour le fil, le forum

Une façon de faire qui fonctionnera strictement sur l'exemple du fichier joint.

Private Sub UserForm_Initialize()
Dim adr
adr = Split(Sheets(1).UsedRange.Address(0, 0), ":")
ComboBox1.List = Columns(Left(adr(0), 2)).SpecialCells(2).Value
ComboBox2.List = Columns(Left(adr(1), 2)).SpecialCells(2).Value
End Sub

EDITION: Bonjour Dranreb

 

[TheProdigy]

Bonjour.
Ce MsgBox vous le révèlera :

With Sheets(1).UsedRange: MsgBox .Address & " :  " & .Rows.Count _
   & " lignes × " & .Columns.Count & " colonnes": End With

Édition: Bonjour Staple1600

Bonjour.
Ce MsgBox vous le révèlera :

With Sheets(1).UsedRange: MsgBox .Address & " :  " & .Rows.Count _
   & " lignes × " & .Columns.Count & " colonnes": End With

Édition: Bonjour Staple1600

Merci @Dranreb je comprends la logique maintenant

 

[TheProdigy]

Bonjour le fil, le forum

Une façon de faire qui fonctionnera strictement sur l'exemple du fichier joint.

Private Sub UserForm_Initialize()
Dim adr
adr = Split(Sheets(1).UsedRange.Address(0, 0), ":")
ComboBox1.List = Columns(Left(adr(0), 2)).SpecialCells(2).Value
ComboBox2.List = Columns(Left(adr(1), 2)).SpecialCells(2).Value
End Sub

EDITION: Bonjour Dranreb

Merci @Staple1600 Ta solution fonctionne.

Je suis en train de la comprendre 🙂

Merci tout le monde