Discussion :

[alucard_xs]

Bonjour à tous,

je viens vers vous car j'ai du mal avec vba, ça fait un moment que je ne m'y suis penché et j'ai un peu voire tout oublié ...
J'ai un gros fichier excel avec une multitude d'onglets ... jusque là c'est pas méchant.
Les feuilles contiennent par exemple ceci :

onglet 1:

toto (1e valeur de la colonne 1, les valeurs en colonne 2 etc, peu importe)
titi (idem)
tata (idem)

onglet 2 :

toto (idem)
tata

Sauf que j'aimerais automatiser un process : supprimer les lignes de tous les onglets où titi n'apparait pas (la feuille 1/onglet 1 serait la feuille référence)

est ce possible simplement ?

merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton2_Click()
 
Dim J As Long
Dim Plage As Range
Dim WS_Count As Integer
Dim I As Integer
 
Set Plage = Range("A1", Range("A65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
    If Plage.Cells(J).Value = "Construction" Then
        Plage.Cells(J).EntireRow.Delete
    End If
Next
End Sub

j'ai tenté ça mais ça ne semble pas fonctionner ...

[nchal]

Salut,

J'ai pas compris un passage

supprimer les lignes de tous les onglets où titi n'apparait pas

Est ce que tu peux ré-expliquer stp ?