david54520
XLDnaute Nouveau
Bonjour les sachants VBA
Ca coince depuis ce matin.....
A la fin de la macro ci dessous (Delete) excel ferme tous les tableaux ouverts et bien sûr....ne réalise pas l'opération demandée : supprimer les lignes filtrées
- I2 est la dernière ligne remplie
- plf est la première ligne visible suite au filtrage
si quelqu'un, quelqu'une a une idée de ce qui se passe....je suis totalement preneur et serais trés reconnaissant !
merci d'avance !!
Sub essai_2()
Dim i2 As Integer
Dim plf As Integer
i2 = Workbooks("mon_tableau.xlsm").Sheets("base").Range("d6").Value - 1
Windows("mon_tableau.xlsm").Activate
plf = ActiveSheet.Range("$AR$31:$AU$" & i2).Offset(1, 0).Resize(Range("$AR$31:$AU$" & i).Rows.Count - 1).SpecialCells(xlCellTypeVisible).Row
Application.CutCopyMode = False
Range("a" & plf & ":a" & i2).EntireRow.Select
Selection.Delete
End Sub
merci d'avance !!
David
Ca coince depuis ce matin.....
A la fin de la macro ci dessous (Delete) excel ferme tous les tableaux ouverts et bien sûr....ne réalise pas l'opération demandée : supprimer les lignes filtrées
- I2 est la dernière ligne remplie
- plf est la première ligne visible suite au filtrage
si quelqu'un, quelqu'une a une idée de ce qui se passe....je suis totalement preneur et serais trés reconnaissant !
merci d'avance !!
Sub essai_2()
Dim i2 As Integer
Dim plf As Integer
i2 = Workbooks("mon_tableau.xlsm").Sheets("base").Range("d6").Value - 1
Windows("mon_tableau.xlsm").Activate
plf = ActiveSheet.Range("$AR$31:$AU$" & i2).Offset(1, 0).Resize(Range("$AR$31:$AU$" & i).Rows.Count - 1).SpecialCells(xlCellTypeVisible).Row
Application.CutCopyMode = False
Range("a" & plf & ":a" & i2).EntireRow.Select
Selection.Delete
End Sub
merci d'avance !!
David