en sachant que c'est la ligne Rows("15:25").Select
qui pose problème car selon le filtre ce ne sont jamais les même numéros de ligne
comment faire ?
merci d'avance je continue à chercher
Bonjour.
Essaie :
Rows("15:25").SpecialCells(xlCellTypeVisible).Delete
Cordialement.
Daniel
"andrea" <andrea.parker@laposte.net> a écrit dans le message de news:
%23GKsxS$CHHA.2328@TK2MSFTNGP02.phx.gbl...
en sachant que c'est la ligne Rows("15:25").Select
qui pose problème car selon le filtre ce ne sont jamais les même numéros de ligne
comment faire ?
merci d'avance je continue à chercher
JB
Bonsoir,
Sub suppression() If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp ActiveSheet.ShowAllData Else MsgBox "Annulé" End If End Sub
en sachant que c'est la ligne Rows("15:25").Select
qui pose problème car selon le filtre ce ne sont jamais les même numéros de ligne
comment faire ?
merci d'avance je continue à chercher
Bonsoir,
Sub suppression()
If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then
Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete
Shift:=xlUp
ActiveSheet.ShowAllData
Else
MsgBox "Annulé"
End If
End Sub
Sub suppression() If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp ActiveSheet.ShowAllData Else MsgBox "Annulé" End If End Sub
en sachant que c'est la ligne Rows("15:25").Select
qui pose problème car selon le filtre ce ne sont jamais les même numéros de ligne
comment faire ?
merci d'avance je continue à chercher
andrea
impec merci
JB a écrit:
Bonsoir,
Sub suppression() If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp ActiveSheet.ShowAllData Else MsgBox "Annulé" End If End Sub
en sachant que c'est la ligne Rows("15:25").Select
qui pose problème car selon le filtre ce ne sont jamais les même numéros de ligne
comment faire ?
merci d'avance je continue à chercher
impec
merci
JB a écrit:
Bonsoir,
Sub suppression()
If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then
Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete
Shift:=xlUp
ActiveSheet.ShowAllData
Else
MsgBox "Annulé"
End If
End Sub
Sub suppression() If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _ Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp ActiveSheet.ShowAllData Else MsgBox "Annulé" End If End Sub
