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

Ilino · 23 Septembre 2014

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

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 · 23 Septembre 2014

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 · 23 Septembre 2014

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

Re
puis je avoir votre aide
grazie

job75 · 23 Septembre 2014

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 :

Code:

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 · 23 Septembre 2014

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 · 23 Septembre 2014

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

Ilino à dit:
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 · 23 Septembre 2014

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

Re,
sorry maitre
ça fonctionne sans souci
grazie

laetitia90 · 23 Septembre 2014

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

bonsoir Ilino , job
on pourrait simplifier un peu

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 + 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 · 23 Septembre 2014

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 · 24 Septembre 2014

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

Re
bonne nuit tous le monde
A+

Modeste geedee · 24 Septembre 2014

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 · 24 Septembre 2014

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

Modeste geedee à dit:
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 · 24 Septembre 2014

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

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 · 24 Septembre 2014

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

re tous

question pas comprise ??? developpe

Ilino · 24 Septembre 2014

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

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

Ilino

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Discussions similaires