Entetes doublon à supprimer

[Nanou42]

Bonjour à tous,

Comment fusionner plusieurs fichiers .csv (qui on chacun les même entêtes) en ayant une seule ligne
d'entête.
Pour fusionner c'est bon, mais c'est surtout pour enlever les entêtes

Merci

 

[croco40]

Bonjour,
Par exemple en supprimant tout les lignes commençant par "Etat".

Sub enlever_entete()
finlig = Range("a65536").End(xlUp).Row
For i = fin To 3 Step -1
mavariable = Cells(i, 1).Value
If mavariable = "Etat" Then
Rows(i).Delete
End If
Next i
End Sub


Suerte
Croco

 

[pierrejean]

Bonjour Nanou42

Pour supprimer les En tetes

Sub efface_en_tete()
For n = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
   If Not IsNumeric(Range("A" & n)) Then Rows(n).Delete
Next
End Sub

 

[Nanou42]

Salut Croco,
Merci de m'avoir répondu mais
A moins d'avoir dse l'avoir mal collé mais ça ne marche pas
J'ai rajouté la declaration de la variable

Sub enlever_entete()

Dim mavariable As String


finlig = Range("a65536").End(xlUp).Row
For i = fin To 3 Step -1
mavariable = Cells(i, 1).Value
If mavariable = "Etat" Then
Rows(i).Delete
End If
Next i
End Sub

 

[Nanou42]

Salut PierreJean

Ton code fonctionne parfaitement. merci à tous

 

[Lolote83]

Salut à tous,
J'arrive encore avec un train de retard.
Pose un filtre sur la ligne 2
Filtre ensuite sur Etat et lance la macro suivante

Sub SupprimeLigneEnteteEnTrop()
    Range([A3], [A3].End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete
End Sub

@+ Lolote83

 

[Nanou42]

Bonjour Lolote83,

Je viens d'essayer ton code et cela fonctionne,

merci

 

[croco40]

Nanou42,
oui désolé je me suis trompé, mais je vois que Pierrejean & Lolote83 t'on aidée.

finlig = Range("a65536").End(xlUp).Row
For i = finlig To 3 Step -1
mavariable = Cells(i, 1).Value
If mavariable = "Etat" Then
Rows(i).Delete
End If
Next i
End Sub

Suerte
croco