Discussion :

[mikapwel2004]

Bonjour à tous !!!

Je suis plus que débutant en VB,j'ai fait un petit programme de suppression et exportation mais comment faire pour que la ligne supprimer dans le listbox soit la meme dans le fichier excel,je n'arrive pas à récupérer le numéro de la ligne.
voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub DeleteSelectedItem(ByRef Li As MSForms.ListBox)
Dim i As Integer
 
   'on boucle à l'envers pour eviter les erreurs
   'd'index suite à une suppression
 
   For i = Li.ListIndex To 0 Step -1
       'Si l'element est selectionner => on le supprime
 
       If Li.Selected(i) Then Call Li.RemoveItem(i)
       ActiveCell.EntireRow.Delete (i)
   Next i
 
End Sub

Merci à vous

[methylene]

Bonjour,

Déjà ton bouclage à l'envers je trouve cela fort étrange, (avec un pas de -1 ?)

Ensuite je ne vois pas trop ce que tu cherches à faire, si tu pouvais donner un peu plus de détails, merci.

[mikapwel2004]

Bonjour methylene.

c'est vrai que de ne pas voir le programme ça aide pas!

en fait ,j'ai crée une listbox qui me permets de récupérer les données d'une feuille excel afin de les trier,et ce code doit me permettre d'effacer des lignes dans le listbox(ce que j'ai réussi à faire) et la même ligne correspondante dans la feuille excel hors il m'efface que la cellule active ,je n'arrive pas à ce qu'il sache trouver la même ligne de données ou voir le numéro de cette ligne.

j'espere que j'ai été assez compréhensible ,si tu souhaites voir le fichier pour plus de compréhension fais moi en part!!!


merci d'avoir répondu

[methylene]

Donc si je comprend bien, tu as un fichier excel avec des cellules remplit, tu récupères el contenu de ces cellules dans une listbox tu fais un tri sur ta listbox, et tu supprime alors les lignes que tu "sélectionne" dans ta listbox ?

Comment choisis-tu les lignes à selectionner ?

Et oui ce serait plus rapide de joindre ton prog je pense.

Qui plus est si tu travailles dans l'onglet développer de Excel tu es dans la mauvaise section, si tu travailles sous VS en faisant appel aux méthodes excel tu es dans la bonne section (différence entre language VBA et VB.NET).

[mikapwel2004]

oui c'est exact methylene,et les lignes que je supprime dans mon listbox ,ces même lignes doivent être supprimer dans la feuille excel correspondante.
et je selectionne uniquement avec la souris.

merci beaucoup de ton aide.

[methylene]

Up le ici.

[mikapwel2004]

Bonjour à tous !!!

Je suis plus que débutant en VB,j'ai fait un petit programme de suppression et exportation mais comment faire pour que la ligne supprimer dans le listbox soit la meme dans le fichier excel,je n'arrive pas à récupérer le numéro de la ligne.
voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub DeleteSelectedItem(ByRef Li As MSForms.ListBox)
Dim i As Integer
 
   'on boucle à l'envers pour eviter les erreurs
   'd'index suite à une suppression
 
   For i = Li.ListIndex To 0 Step -1
       'Si l'element est selectionner => on le supprime
 
       If Li.Selected(i) Then Call Li.RemoveItem(i)
       ActiveCell.EntireRow.Delete (i)
   Next i
 
End Sub

pour etre plus explicite car je sais que c'est assez compliqué par écrit;en fait ,j'ai crée une listbox qui me permets de récupérer les données d'une feuille excel afin de les trier,et ce code doit me permettre d'effacer des lignes dans le listbox(ce que j'ai réussi à faire) et la même ligne correspondante dans la feuille excel hors il m'efface que la cellule active ,je n'arrive pas à ce qu'il sache trouver la même ligne de données ou voir le numéro de cette ligne.

merci beaucoup à vous!!!

[mayekeul]

bonjour,

que retrouve t-on comme information dans la listbox
il faudrait que l'information de ligne correspondante y soit pour pouvoir ensuite la faire passer comme paramêtre.

donc prevoir une colonne dans la listbox avec le numéro de ligne associé