OVH Cloud OVH Cloud

Supprimer une ligne sur 2

1 réponse
Avatar
alain.bazire
Bonjour à toutes et tous
Dans un tableau de 12000 lignes comment supprimer une ligne sur 2 ? Merci de
votre collaboration. Amitiées Alain

1 réponse

Avatar
jps
bonjour alain
de l'incontournable mais saturable michel du québec...
HTH
jps


Sub SupprimerUneLigneSurDeux()

Dim Rg As Range, A As Long
Set Rg = Selection

If TypeName(Selection) <> "Range" Then Exit Sub
If Selection.Cells.Rows.Count < 2 Then Exit Sub

For A = Rg.Rows.Count To 1 Step -2
If A < 1 Then Exit For
Rg(A).Resize(, Rg.Columns.Count).Delete xlUp
Next
Set Rg = Nothing

End Sub
"" a
écrit dans le message de
news:
Bonjour à toutes et tous
Dans un tableau de 12000 lignes comment supprimer une ligne sur 2 ? Merci
de

votre collaboration. Amitiées Alain