Erreur sur code Tri combobox

[vmax67]

Bonjour à tous

serait'il possible de me dire pourquoi le tri croissant ne se fait pas

voici mon code :
Private Sub UserForm_Initialize()
Dim S As Worksheet
Dim R As Range
Dim var
Set S = Sheets(MA_FEUILLE)
Set R = S.Range("b3:b" & S.[b65536].End(xlUp).Row & "")
var = R
V1.List = var
V1.SetFocus
P2.List = var
End Sub

Private Sub V1_Change()
If V1.ListIndex = -1 Then Exit Sub
TextBox1.Value = V1.ListIndex + 1
TextBox3.Value = V1.ListIndex + 1
End Sub

Private Sub P2_Change()
If P2.ListIndex = -1 Then Exit Sub
TextBox2.Value = P2.ListIndex + 1
TextBox4.Value = P2.ListIndex + 1
End Sub

merci pour votre aide

 

[Pierrot93]

Re : Erreur sur code Tri combobox

Bonjour vmax,

Peut être pas tout compris, mais vois pas trop de code qui ferait un tri dans ce que tu as posté...

bon après midi
@+

 

[Pierrot93]

Re : Erreur sur code Tri combobox

Re

Aarf, peut être ici....

https://www.excel-downloads.com/threads/inverser-2-lignes-suivant-valeur-textbox.133673/

@+