Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a
écrit dans le message de
news:1754F87F-17B5-41A6-BD1F-63F449089BC1@microsoft.com...
Bonjour à toutes et tous
Dans un tableau de 12000 lignes comment supprimer une ligne sur 2 ? Merci
de