GS82
XLDnaute Occasionnel
salut les Xldiens et les Xldiennes
en fait je cherche à manipuler des données dans une colonne selon en double cliquant sur une liste box
ainsi
si la selection choisie du liste box existe dans la liste
elle est supprimée
et les données en dessous montent chaqu'une d'une cellule vers le haut(copier la valeur et non pas faire mouvoir la cellule)
sinon il ajoute cette valeur dans la liste
actuellement j'ai fait ceci
chui la pour d'amples détails
comme tjrs, je compte sur vous mes ami(e)s
a+
en fait je cherche à manipuler des données dans une colonne selon en double cliquant sur une liste box
ainsi
si la selection choisie du liste box existe dans la liste
elle est supprimée
et les données en dessous montent chaqu'une d'une cellule vers le haut(copier la valeur et non pas faire mouvoir la cellule)
sinon il ajoute cette valeur dans la liste
actuellement j'ai fait ceci
Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'If ListBox1.ListIndex = -1 Then Exit Sub
Dim i As Integer
i = 4
Range("C" & i).Select
Do While Selection.Value <> ""
Range("C" & i).Select
'si la valeur existe dans la liste des cellules, le programme s'arrête
If Selection.Value = ListBox1.List(ListBox1.ListIndex) Then Exit Sub
'sinon le programme vérifie si la valeur existe en dessous
Range("C" & i).Offset(Rowoffset:=1, columnoffset:=0).Select
i = i + 1
Loop
'comme la valeur n'existe pas le programme l'ajoute
Selection.Value = ListBox1.List(ListBox1.ListIndex)
End Subchui la pour d'amples détails
comme tjrs, je compte sur vous mes ami(e)s
a+