freddycruger59
XLDnaute Nouveau
Bonjour,
J'ai un petit problème avec un fichier excel issu d'un fichier texte extrait d'un AS400....mon fichier texte de base contient plusieurs pages avec sur chaque page une ligne qui reprend les en-tête de colonne....du coup après mon extraction et l'importation sur excel je me retrouve avec un fichier ou la première ligne d'en-tête se répète plusieurs fois (voir fichier joint pour une meilleure compréhension du pb)....
Mon pb est que je n'arrive pas à supprimer les lignes indésirables sans supprimer la première ligne qui est identique....j'ai essayé le code suivant mais ça me vire toutes les en-têtes même la première ligne alors que je voudrais la garder celle-là...
code essayé: Range("D2😀65530").Select
ActiveCell.CurrentRegion.Select
For Each Cell In Selection
If InStr(1, Cell, "Cau") > 0 Then
Cell.EntireRow.Delete
End If
Next Cell
J'espère que je suis assez clair dans mes explications...
Quelqu'un pourrait-il m'aider à résoudre ce pb SVP?
Merci d'avance!!
Cordialement.
J'ai un petit problème avec un fichier excel issu d'un fichier texte extrait d'un AS400....mon fichier texte de base contient plusieurs pages avec sur chaque page une ligne qui reprend les en-tête de colonne....du coup après mon extraction et l'importation sur excel je me retrouve avec un fichier ou la première ligne d'en-tête se répète plusieurs fois (voir fichier joint pour une meilleure compréhension du pb)....
Mon pb est que je n'arrive pas à supprimer les lignes indésirables sans supprimer la première ligne qui est identique....j'ai essayé le code suivant mais ça me vire toutes les en-têtes même la première ligne alors que je voudrais la garder celle-là...
code essayé: Range("D2😀65530").Select
ActiveCell.CurrentRegion.Select
For Each Cell In Selection
If InStr(1, Cell, "Cau") > 0 Then
Cell.EntireRow.Delete
End If
Next Cell
J'espère que je suis assez clair dans mes explications...
Quelqu'un pourrait-il m'aider à résoudre ce pb SVP?
Merci d'avance!!
Cordialement.
Dernière édition: