supprimer des lignes dans un listing

[hannoun]

Bonjour à tous

mon probleme j'ai importe un listing dans excel
il comporte 110 pages donc 110 en tete de pages ma question comment peut on faire en VBA pour supprimer les entetes inutiles dans mon fichier excel ?

Merci pour votre aide

H@nnoun

 

[Marc]

Bonjour,

Peut-être par une macro comme dans l'exemple qui teste le contenu de la première cellule de l'entête

Il faut l'adapter en fonction du nombre de lignes de l'entête.

J'ai deux fois l'instruction suivante parce que j'ai deux lignes d'entête
Selection.Delete Shift:=xlUp

A+

 

[Le rital]

Bonjour le forum,

J'ai une autre idée qui consiste à supprimer les en-têtes manuelement.

Exemple, si tes en-têtes si situent plus ou moins sur les mêmes lignes dans chaque feuille.

Procède de la façon suivante:

1 - Selectionne les 110 feuilles (Ctrl+Shift+PgSuivante)

2 - Selectionne toute les lignes que tu veux supprimer

3 - Ensuite appuis sur Ctrl+(-)

Cordialement

Le Rital

 

[hannoun]

Re Bonjour le forum merci a MARC et le RITAL pour vos reponses

l'idee de Marc est interessantes mais mon probleme c'est que j'ai lignes d'entete voir fichier joint

Merci a tous
H@nnoun

 

[jp]

Bonsoir hannoun, Bonsoir Marc, Bonsoir Le rital et bonsoir le Forum,

Une petite question. Comment récupères-tu tes données ? Car c'est peut-être en amont qu'il faut gérer le problème.. Maintenant cela dépend aussi de ton programme et de sa façon de gérer les exports.

Dans tonexemple, il y a systématiquement 21 lignes, est-ce une normalitée..?

Sinon, Selection de toutes les feuilles, selection de toutes les lignes (sauf les jaunes) Trie sur la colonne A et en fin de piste suprression de toutes les lignes roses.. Cela suppose que toutes les feuilles aient le même nombres le lignes et la même structure.... Mais est-ce bien aussi facile....?

Plus d'explications semble nécessaires,

En attendant, bonne soirée à tous,

jp

 

[LaurentTBT]

Bonsoir à tous.

Voici une petite macro toute simple qui fera le travail:

Sub SupprEnTêtes()
For i = Range("A65536").End(xlUp).Row To 22 Step -1
If Not IsNumeric(Range("A1").Cells(i, 1)) Or Range("A1").Cells(i, 1) = "" Then _
Range("A1").Cells(i, 1).EntireRow.Delete
Next i
End Sub


En espérant avoir répondu au problème,

Laurent.

 

[hannoun]

Re Bonsoir a tous

Pour repondre à JP le listing je l'extrait depuis un spool de SAP sur AS400

dans mon exemple j'ai mis quelque lignes pour ilustrer ma question
mon fichiers comprte plus de 11O entetes sur environs 6500 lignes
l'ecart entre chaque entete peut etre de 60 à 30 lignes
l'ecart est irregulier

Je test le code de LaurentBT

Merci a tous pour vos reponses


H@nnoun

 

[Sylvain]

bonsoir,

une autre idée s'il s'agit d'un fichier texte :
l'ouvrir dans word et faire :
remplacer ^p^p par ^p
en le faisant plusieurs fois on supprime toutes les lignes vides rapidement.
puis on peut faire aussi remplacer :
Nom Prénom adresse
par rien du tout
et c'est fini.

A+

 

[hannoun]

Re Bonsoir a tous le forum

merci a tous pour vos reponses j'ai opte pour le code de Marc
que j'ai inclus dans mon code et qui fonctionne bien



Encore Merci A TOUS

A+ H@nnoun