Supprimer toutes lignes ayan un lien hypertext et pas simplement supprimer les liens

[zeltron]

Bonjour à tout le forum,


J'aimerais pouvoir supprimer toute les lignes dont la cellule de la colonne F a un lien hypertexte.
Ce qui m'interesse c'est vraiment de supprimer la ligne et pas simplement supprimer les liens hypertexte ( sur ce dernier points il y a beaucoup de réponse sur le site).
Comment repérer une ligne ayant un lien hyypertexte en colonne F?

Pouvez vous m'aider?

Vous en remerciant par avance

Cordialement

Zeltron

 

[Pierrot93]

Re : Supprimer toutes lignes ayan un lien hypertext et pas simplement supprimer les l

Bonjour,

essaye ceci :

Option Explicit
Sub test()
Dim l As Hyperlink
For Each l In ActiveSheet.Hyperlinks
    If l.Parent.Column = 6 Then l.Parent.EntireRow.Delete
Next l
End Sub

bonne journée
@+

 

[zeltron]

Re : Supprimer toutes lignes ayan un lien hypertext et pas simplement supprimer les l

Merci Pierrot,

Cela fonctionne super bien

Merci encore et bonne journée

Cordialement

Zeltron