Suppression des lignes précédentes a une valeur en colonne A

[Profane]

Bonjour a tous
lorsque je fais un extract d'une base,
j'ai un fichier avec des lignes vides (nombre de ligne vides variable) + texte qui varie
précédent les entetes de mon tableau
j'aimerai juste une macro qui me permettent de supprimer les lignes précédent la valeur Hostname en colonne A
voir fichier
@+

 

[Robert]

Re : Suppression des lignes précédentes a une valeur en colonne A

Bonjour Profane, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim r As Range 'déclare la variable r (Recherche)
Dim li As Byte 'déclare la variable li (LIgne)

Set r = Sheets("Feuil1").Columns(1).Find("Hostname", , xlValues, xlWhole) 'définit la recherche r
If Not r Is Nothing Then li = r.Row - 1 'si il existe au moins une occurrence trouvé, définit la ligne li
If r > 1 Then Rows("1:" & li).Delete 'supprime les ligne de 1 à li
End Sub

 

[Profane]

Re : Suppression des lignes précédentes a une valeur en colonne A

Merci robert, cela fonctionne parfaitement
j'étais parti sur la piste suivante
Sub Hostname()
For i = [A1].End(xlDown).Row To 1 Step -1
If Cells(i, 1) <> "Hostname" Then Rows(i).Delete Shift:=xlUp
Next i
End Sub
mais je rencontrai quelques soucis
@+