J
juliette
Guest
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"
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"