[RISOLUTO]HELP: supprimer des lignes d'une feuille a partir d'une autre feuille

[Ilino]

😎Bonsoir forum
ci joint un fichierdont mon souci est le suivant , je souhaite supprimer des lignes de la feuille 1 via un bouton dans la feuille 2
a quel niveau je modifié le code

Private Sub CommandButton1_Click()
Dim i As Integer
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
Range("a" & i + 5).EntireRow.Delete
End If
Next i
ListBox1.Clear
majlistbox1

End Sub

Sub majlistbox1()
Dim c As Range
For Each c In Range("a5:a" & Range("a65000").End(xlUp).Row)
ListBox1.AddItem c.Value
Next c
End Sub

Private Sub UserForm_Initialize()
majlistbox1
End Sub

GRAZIE par avance

 

[laetitia90]

Re : [RISOLUTO😎]HELP: supprimer des lignes d'une feuille a partir d'une autre fe

re 🙂 je regarde

 

[Ilino]

Re : [RISOLUTO😎]HELP: supprimer des lignes d'une feuille a partir d'une autre fe

Re
GRAZIE😎
A+

 

[laetitia90]

Re : [RISOLUTO😎]HELP: supprimer des lignes d'une feuille a partir d'une autre fe

re 🙂
une facon de faire regarde bien
dans listbox proprietee

j'ai modifier la largeur columnwidths

80 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;80 pt

dans columnCount =14

code user je vais jusqu'a N

Sub majlistbox1()
 ListBox1.List = Feuil1.Range("a5:n" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value
End Sub

 

[Ilino]

Re : [RISOLUTO😎]HELP: supprimer des lignes d'une feuille a partir d'une autre fe

Re,
Molte grazie LAETITIA
grazie 😎🙄

 

[Ilino]

Re : [RISOLUTO😎]HELP: supprimer des lignes d'une feuille a partir d'une autre fe

Re,
apres avoir modifier et adapter le code a mon fichier, j'ai recontré ce bug

Erreur d'exection 1004
la Methode de Delete de la classe Range a échoué

dans ce code

Private Sub CommandButton1_Click()
Dim i As Long
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) Then Feuil1.Rows(i + 2).Delete
Next i
majlistbox1
End Sub

Sub majlistbox1()
 ListBox1.List = Feuil1.Range("a2:n" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value
End Sub
Private Sub UserForm_Initialize()
majlistbox1
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

a cette ligne

......
If ListBox1.Selected(i) Then Feuil1.Rows(i + 2).Delete
.....

Merci par avance

EDIT : Listebox pour afficher deux colonnes

 

[Ilino]

Re : [RISOLUTO😎]HELP: supprimer des lignes d'une feuille a partir d'une autre fe

RE
forum , j'ai besoin de votre aide
A+

 

[Si...]

Re : [RISOLUTO😎]HELP: supprimer des lignes d'une feuille a partir d'une autre fe

salut

une toute autre programmation :

Option Explicit
Dim L As Long, R As Range
Private Sub UserForm_Initialize()
  With ListBox1
    .Clear
    L = Feuil1.[A65000].End(xlUp).Row
    If L = 3 Then End
    For Each R In Feuil1.Range("A5:A" & L)
      .AddItem R
      .List(.ListCount - 1, 1) = R(1, 14)
    Next
  End With
  
 End Sub
Private Sub CommandButton1_Click()
  For L = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(L) Then Feuil1.Rows(L + 5).Delete
  Next
  UserForm_Initialize
End Sub

J'ai modifié les formules pour éviter les messages d'erreur mais, il serait intéressant de passer par la fonction Tableau !

 

[Ilino]

Re : [RISOLUTO😎]HELP: supprimer des lignes d'une feuille a partir d'une autre fe

Bonsoir SI
merci pour la modif ,
GRAZIE