[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

 

[Ilino]

Re : HELP: supprimer des lignes d'une feuille a partir d'une autre feuille

rE,
j'ai essayé de modifier cette ligne

............
Worksheets("feuil1").Range("a" & i + 5).EntireRow.Delete
...............

Mais ça n'a pas fonctionné
GRAZIE

 

[Ilino]

Re : HELP: supprimer des lignes d'une feuille a partir d'une autre feuille

Re
puis je avoir votre aide
grazie

 

[job75]

Re : HELP: supprimer des lignes d'une feuille a partir d'une autre feuille

Bonsoir Ilino, le forum,

Juste un petit coucou depuis Venise, c'est chez toi Ilino

C'est vraiment très très classique, il suffisait de préciser la feuille devant tous les Range :

Private Sub CommandButton1_Click()
Dim i As Integer
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
Feuil1.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 Feuil1.Range("a5:a" & Feuil1.Range("a65000").End(xlUp).Row)
ListBox1.AddItem c.Value
Next c
End Sub

Feuil1 étant le CodeName de la feuille.

A+

 

[Ilino]

Re : HELP: supprimer des lignes d'une feuille a partir d'une autre feuille

Bonsoir MAITRE et La vostra accoglienza.

qui pourra nous faire oublier Venise !.

GRAZIE pour la réponse, autre eclaircessement maitre et si je mets la feuille1 en veryhidden ???
A+

 

[job75]

Re : HELP: supprimer des lignes d'une feuille a partir d'une autre feuille

autre eclaircessement maitre et si je mets la feuille1 en veryhidden ???

Ah oui, vraiment très sombre quand on a la flemme de tester soi-même

Allez bonne nuit.

 

[Ilino]

Re : HELP: supprimer des lignes d'une feuille a partir d'une autre feuille

Re,
sorry maitre
ça fonctionne sans souci
grazie

 

[laetitia90]

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

bonsoir Ilino , job
on pourrait simplifier un peu

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 + 5).Delete
Next i
majlistbox1
End Sub
Sub majlistbox1()
 ListBox1.List = Feuil1.Range("a5:a" & 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

buonasera laetitia, job
encore un code tres simple
grazie

 

[Ilino]

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

Re
bonne nuit tous le monde
A+

 

[Modeste geedee]

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

Ciao Ilino, può essere più facile per voi a vedere qui sarebbe:

https://groups.google.com/forum/#!forum/microsoft.public.it.office.excel

 

[Ilino]

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

Ciao Ilino, può essere più facile per voi a vedere qui sarebbe:

https://groups.google.com/forum/#!forum/microsoft.public.it.office.excel

Ciao Modeste,
Grazie per il link .
A+

 

[Ilino]

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

Bonsoir Forum
dans le meme fichier , je souhaite afficher dans la listBox deuxieme colonne N pour avoir afficher les info de A et N
ci joint le code

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

Grazie A+

 

[laetitia90]

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

re tous
question pas comprise ??? developpe

 

[Ilino]

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

CIAO LAETITIA
Dans le fichier post#1 j'ai une listBox qui affiché une toutes les données de la colonne A , maintenant je souhaite dans la meme ListeBox afficher deux colonnes (A et N)
Grazie