Voil=E0 j'ai recup=E9r=E9 un code ki me permetterai=20
(normalement) de deplacer un item selectionn=E9 d'une ligne=20
au dessus..mais malheureusement il y a un bug dans le code=20
et tres franchement je ne comprend pas pourquoi, voici le=20
code
Private Sub CommandButton1_Click()
Dim Temp As String
With ListBox1
If .ListIndex =3D -1 Then Exit Sub
If .Selected(.ListIndex) =3D True Then
If .ListIndex =3D 0 Then
Temp =3D .List(.ListCount - 1)
.List(.ListCount - 1) =3D .List(.ListIndex)
.List(.ListIndex) =3D Temp
.Selected(.ListCount - 1) =3D True
Else
Temp =3D .List(.ListIndex - 1)
(ici l'erreur->) .List(.ListIndex - 1) =3D .List(.ListIndex)
.List(.ListIndex) =3D Temp
.Selected(.ListIndex - 1) =3D True
End If
End If
End With
End Sub
j'ai essay=E9 d'intervertir l'egalit=E9 mais rien a faire ca=20
m'affiche toujours l'erreur "Run-time error '70' , could=20
not set the list property.Permission denied"=20
Quelqu'un peut il m'aider svp ... j'y comprend pas grand=20
chose a cette histoire ;(
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Denis Michon
Bonjour Niko,
La procédure fonctionne très bien !
Enregistre ton classeur, tu fermes et rouvres ... as-tu toujours le même classeur ?
Si oui, essaie dans un formulaire vierge...cela devrait fonctionner.
Salutations!
"niko" a écrit dans le message de news:041c01c3ad0b$c5f09630$ bonjour les newsgrouppeur !
Voilà j'ai recupéré un code ki me permetterai (normalement) de deplacer un item selectionné d'une ligne au dessus..mais malheureusement il y a un bug dans le code et tres franchement je ne comprend pas pourquoi, voici le code Private Sub CommandButton1_Click() Dim Temp As String With ListBox1 If .ListIndex = -1 Then Exit Sub If .Selected(.ListIndex) = True Then If .ListIndex = 0 Then Temp = .List(.ListCount - 1) .List(.ListCount - 1) = .List(.ListIndex) .List(.ListIndex) = Temp .Selected(.ListCount - 1) = True Else Temp = .List(.ListIndex - 1) (ici l'erreur->) .List(.ListIndex - 1) = .List(.ListIndex) .List(.ListIndex) = Temp .Selected(.ListIndex - 1) = True End If End If End With End Sub
j'ai essayé d'intervertir l'egalité mais rien a faire ca m'affiche toujours l'erreur "Run-time error '70' , could not set the list property.Permission denied"
Quelqu'un peut il m'aider svp ... j'y comprend pas grand chose a cette histoire ;(
Bonjour Niko,
La procédure fonctionne très bien !
Enregistre ton classeur, tu fermes et rouvres ... as-tu toujours le même classeur ?
Si oui, essaie dans un formulaire vierge...cela devrait fonctionner.
Salutations!
"niko" <niko@discussions.microsoft.com> a écrit dans le message de news:041c01c3ad0b$c5f09630$a001280a@phx.gbl...
bonjour les newsgrouppeur !
Voilà j'ai recupéré un code ki me permetterai
(normalement) de deplacer un item selectionné d'une ligne
au dessus..mais malheureusement il y a un bug dans le code
et tres franchement je ne comprend pas pourquoi, voici le
code
Private Sub CommandButton1_Click()
Dim Temp As String
With ListBox1
If .ListIndex = -1 Then Exit Sub
If .Selected(.ListIndex) = True Then
If .ListIndex = 0 Then
Temp = .List(.ListCount - 1)
.List(.ListCount - 1) = .List(.ListIndex)
.List(.ListIndex) = Temp
.Selected(.ListCount - 1) = True
Else
Temp = .List(.ListIndex - 1)
(ici l'erreur->) .List(.ListIndex - 1) = .List(.ListIndex)
.List(.ListIndex) = Temp
.Selected(.ListIndex - 1) = True
End If
End If
End With
End Sub
j'ai essayé d'intervertir l'egalité mais rien a faire ca
m'affiche toujours l'erreur "Run-time error '70' , could
not set the list property.Permission denied"
Quelqu'un peut il m'aider svp ... j'y comprend pas grand
chose a cette histoire ;(
Enregistre ton classeur, tu fermes et rouvres ... as-tu toujours le même classeur ?
Si oui, essaie dans un formulaire vierge...cela devrait fonctionner.
Salutations!
"niko" a écrit dans le message de news:041c01c3ad0b$c5f09630$ bonjour les newsgrouppeur !
Voilà j'ai recupéré un code ki me permetterai (normalement) de deplacer un item selectionné d'une ligne au dessus..mais malheureusement il y a un bug dans le code et tres franchement je ne comprend pas pourquoi, voici le code Private Sub CommandButton1_Click() Dim Temp As String With ListBox1 If .ListIndex = -1 Then Exit Sub If .Selected(.ListIndex) = True Then If .ListIndex = 0 Then Temp = .List(.ListCount - 1) .List(.ListCount - 1) = .List(.ListIndex) .List(.ListIndex) = Temp .Selected(.ListCount - 1) = True Else Temp = .List(.ListIndex - 1) (ici l'erreur->) .List(.ListIndex - 1) = .List(.ListIndex) .List(.ListIndex) = Temp .Selected(.ListIndex - 1) = True End If End If End With End Sub
j'ai essayé d'intervertir l'egalité mais rien a faire ca m'affiche toujours l'erreur "Run-time error '70' , could not set the list property.Permission denied"
Quelqu'un peut il m'aider svp ... j'y comprend pas grand chose a cette histoire ;(
