supprimer une ligne sur deux

[laurent999]

Bonsoir a toutes et a tous,

J'ai besoin dans un tableau de 10000 ligne de supprimer une ligne sur 2 en commencant par la ligne 3.
le faire manuellemnt est trop long.
si quelqu'un a une idé elle serait la bienvenue.
merci.

 

[ROGER2327]

Re : supprimer une ligne sur deux

Bonsoir, laurent999 :

Placez le code ci-dessous dans la feuille à traiter et exécutez-le une fois.

Option Explicit

Sub Macro1()
'
' Macro1 Macro
' Macro créée le 01/11/2008 par ROGER2327
'

'
Dim i As Long
    Application.ScreenUpdating = False
    For i = 3 To (3 + Me.Cells(1, 1).CurrentRegion.Rows.Count) \ 2
        Me.Rows(i).Delete
    Next i
    Application.ScreenUpdating = True
End Sub

Les lignes impaires, à compter de la troisième, seront supprimées, jusqu'à la première ligne vide de la feuille.
Si le résultat est satisfaisant, enregistrez le classeur.

Conseil : L'opération étant irréversible, testez la macro sur une copie du classeur.

Salut !

 

[laurent999]

Re : supprimer une ligne sur deux

Bonjour Roger,
cela fonctionne parfaitement.
Encore un grand merci.

Laurent.

 

[laurent999]

Re : supprimer une ligne sur deux

re bonjour roger,

en fait il ya un bug sur le 3+me.
il me dit que me est une utilisation incorect du mot clé.

Merci

 

[ROGER2327]

Re : supprimer une ligne sur deux

Réponse à laurent999

Je suppose que vous avez recopié le code dans un module ; si c'est le cas, l'erreur est normale.

Ce code est prévu pour opérer dans la feuille où il a été placé, conformément aux indications qui l'accompagnaient.

J'ai procédé ainsi car je trouve dangereux d'écrire une procédure supprimant une ligne sur deux d'une feuille pour n'importe quelle feuille d'un classeur.

A propos du mot clef me, je cite l'aide d'Excel© :
« (...) Lorsqu'une classe peut comporter plusieurs instances, le mot clé Me offre la possibilité de faire référence à l'instance de la classe dans laquelle le code est exécuté. (...) »
Chaque feuille d'un classeur étant une instance de la classe Sheets, vous avez l'explication de l'«erreur». (J'en profite pour corriger la ligne Rows(i).Delete en Me.Rows(i).Delete, plus logique...)

Si, le code étant placé dans une feuille, l'«erreur» persiste, veuillez me le faire savoir.

A plus tard,
ROGER2327