Double clique sur ListBox qui peut soit ajouter soit supprimer les données

[GS82]

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

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 Sub

chui la pour d'amples détails

comme tjrs, je compte sur vous mes ami(e)s
a+

 

[GS82]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

les valeurs donc que je vais manipuler existent dans la colonne C:C (a partir de la ligne 4)

 

[GS82]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

je compte su vous, merci.

 

[GS82]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

j'ai essayé divers truc mais ça veut pas marché comme je cherche
exemple (qui donne un résultat ridicule:'(

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim i As Integer
i = 4
Range("C" & i).Select
Do While Selection.Value <> ""
Range("C" & i).Select
If Selection.Value = ListBox1.List(ListBox1.ListIndex) Then

Do While Selection.Value <> ""
Selection.Value = Range("C" & i).Offset(Rowoffset:=1, columnoffset:=0).Value
i = i + 1

Loop
End If
Range("C" & i).Offset(Rowoffset:=1, columnoffset:=0).Select
i = i + 1

Loop
Selection.Value = ListBox1.List(ListBox1.ListIndex)


End Sub

 

[GS82]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

pleaz SOS my freinds

 

[Staple1600]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

Bonsoir


Patience est mère de sureté.

 

[GS82]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

salut Staple1600
vous avez raison mon ami
en fait je panique car je dois présenter le boulot après demain a mon superieur
en fait je crois que j'ai pu résoudre le problème

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim i As Integer
i = 4
Range("C" & i).Select
Do While Selection.Value <> ""
Range("C" & i).Select
If Selection.Value = ListBox1.List(ListBox1.ListIndex) Then

Do While Selection.Value <> ""


Range("C" & i).Value = Range("C" & i).Offset(Rowoffset:=1, columnoffset:=0).Value
Range("C" & i).Offset(Rowoffset:=1, columnoffset:=0).Select
i = i + 1
Loop
Exit Sub

End If
Range("C" & i).Offset(Rowoffset:=1, columnoffset:=0).Select
i = i + 1

Loop
Selection.Value = ListBox1.List(ListBox1.ListIndex)


End Sub

merci de vérifier
je crois à priori que ça marche (c'est ce les tests m'ont donné jusque la)
j'attend vos commentaires

a +

 

[Staple1600]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

Re



Une modeste contribution

Selection.Value = Range("C" & i).Offset(Rowoffset:=1, columnoffset:=0).Value

peut se simplifier en

Selection.Value = Range("C" & i).Offset(1, 0).Value

voir peur-être aussi en : (à tester)

Selection= Range("C" & i).Offset(1, 0)

 

[Lii]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

Bonsoir Tous,

pas toujours évident hors contexte.
Si tu avais donné au moins un bout de fichier, tu n'aurais pas eu à attendre des plombes !

Vois si cela t'inspire.

 

[GS82]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

merci infiniment pour vos astuces
BN

 

[GS82]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

salut lii et merci pour ton fichier
en fait ce que ta fait est super interressant pour moi
c'est pas ce que je cherchais exactement mais c'est utile pour mon apprentissage du VBA
(chui pas un informaticien et j'ai jamais fais de cours VB ni VBA, c'est ici, dans ce forum que je m'initie)
Merci encore et A très bientot

 

[hich24]

Re : Double clique sur ListBox qui peut soit ajouter soit supprimer les données

bonjour, je voudrer m'ispirer de votre experiense pour remplire ma listbox voila :

1- j'ai une listbox a 6 colonne

2- colonne de ( A & i ) a ( F & i ) " le i et variable "

3- je selectionne plusieur ligne a la fois exemple [ (A1:F1) + (A4:F4) + (A100:F100) ]

4- j'aimerais remplire ma listbox avec les valeur de ces cellule

5- j'ai essayer de les nommer mais la liste est apparut vide

merci de votre aide