Entetes doublon à supprimer

C

croco40

XLDnaute Occasionnel

• 28 Juin 2017

• #2

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Juin 2017

• #3

Bonjour Nanou42

Pour supprimer les En tetes

Code:

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

 

Vote positif 0 Vote négatif

Nanou42

XLDnaute Nouveau

• 28 Juin 2017

• #4

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

 

Vote positif 0 Vote négatif

Nanou42

XLDnaute Nouveau

• 28 Juin 2017

• #5

Salut PierreJean

Ton code fonctionne parfaitement. merci à tous

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 28 Juin 2017

• #6

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

Code:

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

@+ Lolote83

 

Vote positif 0 Vote négatif

Nanou42

XLDnaute Nouveau

• 28 Juin 2017

• #7

Bonjour Lolote83,

Je viens d'essayer ton code et cela fonctionne,

merci

 

Vote positif 0 Vote négatif

C

croco40

XLDnaute Occasionnel

• 28 Juin 2017

• #8

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

 

Vote positif 0 Vote négatif