effacer une ligne dans listbox

[Dennnisss]

Salut a tous

J'ai une exemple de listbox et j'essaie de faire effacer une ligne dans la feuille de calcul , il le fait tres bien dans la listbox mais n'efface pas la ligne choisie dans la feuille de calcul

alors j'ai besoin de votre aide svp

merci

dennnisss

 

[Compte Supprimé 979]

Re : effacer une ligne dans listbox

Salut Dennnisss,

Dans ton USF, ta procédure de suppression, il faut mettre

Private Sub supprimer_Click()
  [COLOR=blue]Dim NumLig As Long
[/COLOR][COLOR=green]  ' Calculer le numéro de la ligne
  ' 1 = ligne d'entête + numéro dans ListBox + 1 = ListBox commence à zéro et non 1
[/COLOR]  [COLOR=blue]NumLig = 1 + Me.ListBox1.ListIndex + 1
[/COLOR]  ' Supprimer de la ListBox
  ListBox1.RemoveItem (ListBox1.ListIndex)
 [COLOR=green] ' supprimer la ligne sur la feuille
[/COLOR]  [COLOR=blue]Sheets("feuil1").Rows(NumLig).EntireRow.Delete
[/COLOR]End Sub

Voili, voilà

 

[Dennnisss]

Re : effacer une ligne dans listbox

Salut bruno M45

Dans ta reponse oui il fait bien sont travail , ma question est peut-on definir les lignes a supprimer

exemple j'aimerais supprimer les cellules C a W
au lieu d'une rangee complete car il detruit quelques formules sur les lignes selectionnees

Sheets("feuil1").Rows(NumLig).EntireRow.Delete

dons encore besoin de toi bruno

merci

dennnisss

 

[Compte Supprimé 979]

Re : effacer une ligne dans listbox

Re,

Tu peux essayer en remplaçant

[COLOR=#0000ff]Sheets("feuil1").Rows(NumLig).EntireRow.Delete[/COLOR]

par

[COLOR=#0000ff]Sheets("feuil1").Range("C" & NumLig & ":W" & NumLig).ClearContents[/COLOR]

Voilà

 

[BERRACHED said]

Re : effacer une ligne dans listbox

Salut,Deeenisse,BrunoM45

je crois que la réponse est aussi a cet endroit: https://www.excel-downloads.com/threads/listbox-effacer-ligne.104903/

donc évite de multiplier les poste pour un meme sujet

Cordialement