XL 2010 Indice n'appatient pas la sélection

TheProdigy · 4 Août 2018

Bonjour tout le monde,

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

VB:

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 · 4 Août 2018

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

VB:

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

Édition: Bonjour Staple1600

Staple1600 · 4 Août 2018

Bonjour le fil, le forum

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

VB:

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 · 6 Août 2018

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

VB:

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 · 6 Août 2018

Staple1600 à dit:
Bonjour le fil, le forum

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

VB:

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

XL 2010 Indice n'appatient pas la sélection

TheProdigy

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TheProdigy

XLDnaute Impliqué

TheProdigy

XLDnaute Impliqué

Discussions similaires