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]

re

excuse moi j'étais en réunion!!
tiens voici le lien du fichier:http://dl.free.fr/duRwarPzl

si je peux le présenter cet aprem ça sera un miracle!!

[methylene]

Tu développes avec quel logiciel ? Je ne peux pas ouvrir ces fichiers là moi :/

[mikapwel2004]

C'est du Excel 2010 avec du Visual Basic. Tu veux que je le mette sous un autre format ?

[methylene]

Je sais pas je ne peux ni l'ouvrir avec excel 2007 ni avec Visual Studio 2008 donc ...

And take care to caps plz !

[mikapwel2004]

Tiens le voici en Excel 2007 :http://dl.free.fr/uvtvWWOl9

Et que veux dire caps???


Merci.

[methylene]

C'est bien ce que je dit tu es en VBA et non en VB.NET tu poste dans la mauvaise section.

Le VBA c'est ici : Forum Excel VBA

Et "Caps" = Capital letters

Je vais check quand même ton fichier voir le problème.

[methylene]

Bien quelle est la listbox en question ? Car chez moi elles sont toutes vide quand je lance ton programme.

[mikapwel2004]

Bonjour methylene,

sorry pour hier mais c'était réunion et formation toute la day.
je n'ai pas très bien compris ton dernier message?le programme ne se lance pas?chez moi il n'y a aucun souci!!

au fait merci d'avoir déplacé le sujet ,now je connais la vrai différence entre VBA et VB.net!!loool

[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é