Suppression complexe

[Armand]

Bonjour à tous

J'ai un petit probleme :

je dois supprimer une ligne sur 2 d'un fichier excel assez conséquent, ça représente trop de travail pour être fait manuellement.
Je n'ai vraiment pas idée de comment faire ça, pourriez vous me renseigner ?

Merci à ceux qui me répondront

 

[Gibson94]

Bonsoir Armand, le forum,

Voici une macro qui te permettra de supprimer 1 ligne sur 2 dans une feuille (ici la 'feuil1'). A toi de l'adapter à tes besoins.

Sub supprime()
Dim derlign As Integer, c As Integer

' ***** recherche la dernière ligne de la colonne 'A' ******

derlign = Worksheets('feuil1').Range('A65536').End(xlUp).Row

' ***** ou recherche la dernière ligne non vide dans la feuille ******

derlign = Range('A1').CurrentRegion.Rows.Count


' ***** '2' correspond à la première ligne à supprimer ****

For c = 2 To derlign Step 1
Rows(c & ':' & c).Select
Selection.Delete Shift:=xlUp
Next c
Range('A1').Select
End Sub

 

[andré]

Salut à vous,

Autre solution :

Une colonne supplémentaire avec la formule :
=SI(MOD(LIGNE();2)=0;1;'')

ou =1 suivant les lignes à supprimer

Puis :
Filtre automatique / Filtrer sur 1
Touche clavier F5 / Cellules / Cellules visibles / OK
Menu Edition / Supprimer / lignes entières.

Supprimer la colonne supplémentaire.

Ândré.

 

[armand]

merci à vous ça marche tres bien