Bonjour le Forum,
j'ai essayé de reprendre un code développé par notre Thierry le Magicien mais je bute sur une partie du code impliquant la propriété d'une colonne.
ci-dessous vous trouverez le code quelque peu modifié et vous avez une illustration de ce que je souhaite faire en pièce jointe.
un message d'eeruer intervient à ce niveau là du code: ".Column(1, i) = ActiveSheet.Range("F" & i + 2)".
Merci à tous pour l'éventuelle aide que vous pourrez m'apporter.
bonne semaine à vous.
"Private Sub CommandButton3_Click()
Dim L As Integer
Dim i As Integer
Dim WS As Worksheet
Application.ScreenUpdating = False
Range("A20:F30").Select
Selection.Sort Key1:=Range("F21"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A21").Select
L = Range("B30").End(xlUp).Row - 2
Me.ComboBox2.Clear
For i = 21 To L
With Me.ComboBox2
.ColumnCount = 2
.ColumnWidths = "40;40"
.AddItem ActiveSheet.Range("B" & i + 2)
.Column(1, i) = ActiveSheet.Range("F" & i + 2)
.ListIndex = 0
End With
Next i
Application.ScreenUpdating = True
End Sub"