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
j'ai tenté ça mais ça ne semble pas fonctionner ...
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
Partager