Deplacer ligne en haut d' un listbox multi column [Résolu]

tommarianne 20 Messages postés samedi 13 mai 2006Date d'inscription 29 octobre 2008 Dernière intervention - 29 oct. 2008 à 11:34 - Dernière réponse : tommarianne 20 Messages postés samedi 13 mai 2006Date d'inscription 29 octobre 2008 Dernière intervention
- 29 oct. 2008 à 16:41
Bonjour à tous
office 2003
Feuille Excel - 5 colonnes (Nom-Prénom-Adresse-CP-Ville)
Je dispose d' un userform - 1 textbox - 1 listbox (columncount = 4)
Je tape un nom dans le textbox, ce qui alimente mon listbox avec (Prénom-Adresse-CP-Ville) sans doublons
d' adresse et/ou de prénom
Question : comment faire lors d' un click sur une ligne quelconque (donc 4 colonnes) du listbox, remonter cette ligne sélectionner en haut du listbox, tous en concervant les autres lignes du listbox ?

Merci d' avance pour vos réponses
Et désolé pour le précédent msg dans le mauvais forum
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
tommarianne 20 Messages postés samedi 13 mai 2006Date d'inscription 29 octobre 2008 Dernière intervention - 29 oct. 2008 à 16:41
3
Merci
Dim Lselec, Ltop
On Error Resume Next
With ListBox2
For a = 0 To .ColumnCount
Lselec = .List(.ListIndex, a)
Ltop = .List(.TopIndex, a)
.List(.TopIndex, a) = Lselec
.List(.ListIndex, a) = Ltop


.Selected(.ListIndex) = True
Next a
End With

je suis nul, c' etait pourtant simple
merci

Merci tommarianne 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 120 internautes ce mois-ci

Commenter la réponse de tommarianne
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 29 oct. 2008 à 11:43
0
Merci
Bonjour,

Remonter cette ligne tout en haut de la liste (donc à la ligne 0) ?
ou
Remonter cette ligne tout en haut de la Listbox (donc au Topindex) ?

Ce sont deux choses différentes et il convient donc de préciser ce pont
Commenter la réponse de jmfmarques
tommarianne 20 Messages postés samedi 13 mai 2006Date d'inscription 29 octobre 2008 Dernière intervention - 29 oct. 2008 à 12:23
0
Merci
Remonter la ligne sélectionnée dans le listbox tout en haut du listbox
Commenter la réponse de tommarianne
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 29 oct. 2008 à 12:58
0
Merci
Je t'ai alors déjà donné la réponse :
Utilise la propriété TopIndex !
Commenter la réponse de jmfmarques
tommarianne 20 Messages postés samedi 13 mai 2006Date d'inscription 29 octobre 2008 Dernière intervention - 29 oct. 2008 à 16:34
0
Merci
Merci jmfmarques mais j' ai ceci


Dim Lselec, Ltop
On Error Resume Next
With ListBox2
Lselec = .List(.ListIndex)
Ltop = .List(.TopIndex)
.List(.TopIndex) = Lselec
.List(.ListIndex) = Ltop


.Selected(.ListIndex) = True
End With

mais ceci ne marche que pour la première colonne et pas pour les 3 autres
peux tu m' aider
je continu mes recherche
a+
Commenter la réponse de tommarianne

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.