J
jean-paul
Guest
Bonsoir
J'ai trouvé sur le forum ce code :
Dim i As Byte, j As Byte
Dim temp As String
With ComboBox1
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If .List(i) .list(y,2) then
Temp=.list(y,2)
.list(y,2)=.list(x,2)
.list(x,2)=temp
........................idem pour les autres colonnes
end if
next
next
end with
D'avance merci
J'ai trouvé sur le forum ce code :
Dim i As Byte, j As Byte
Dim temp As String
With ComboBox1
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If .List(i) .list(y,2) then
Temp=.list(y,2)
.list(y,2)=.list(x,2)
.list(x,2)=temp
........................idem pour les autres colonnes
end if
next
next
end with
D'avance merci