Squoltahthx94
XLDnaute Occasionnel
Bonjour,
Je souhaite enlever les lignes dans des onglets référencés 'Sxxxx' (type "S0101"...) contenant " devis " ou "rdv" mais avant de supprimer les lignes je souhaite voir pour chaque onglet les lignes concernées.
J'ai commencé de la manière suivante :
Mais ça ne marche pas et je vois pas le problème
Quelqu'un peu m'aider..merci
Je souhaite enlever les lignes dans des onglets référencés 'Sxxxx' (type "S0101"...) contenant " devis " ou "rdv" mais avant de supprimer les lignes je souhaite voir pour chaque onglet les lignes concernées.
J'ai commencé de la manière suivante :
Code:
Dim i As Byte 'déclare la variable i (Incrément)
For i = 3 To Sheets.Count 'boucle sur tous les onglets (en partant du troisième)
Range("A1:E65000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= mots, Unique:=False
sup = MsgBox("Etes-vous sur de supprimer ces lignes ?", vbYesNo, "Avertissement")
If sup = vbYes Then
Set r = Range("_FilterDataBase")
r.Offset(2, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData
Else
ActiveSheet.ShowAllData
Exit Sub
End If
next i
Mais ça ne marche pas et je vois pas le problème
Quelqu'un peu m'aider..merci