Supprime Lien Hypert celon Texte Affiché

[ChTi160]

Bonsoir le Forum
je viens de copier la liste des Liens du Forum correspondants a Combobox par exemple
mon désir et de ne conserver que le lien Question donc j'avais pensé
faire une Macro qui Supprime Les Lignes Ou le texte Affiché du lien commence par les deux lettres 'RE', mais je n'y arrive pas par le texte de la cellule
exemple

Sud SuppLien()
Dim derlgn As Integer
Dim cel As Range
With ActiveWorkSheet
derlgn = .Range('B65536'Â'Â').End(xlUp).Row
For Each cel In .Range('B3:B' & derlgn)
If Left(cel.Value, 2) = 'Re' Then
Rows(cel.Row).EntireRow.Delete
End If
Next
End With
End Sub

je pense qu'il faut récupérer le text a partir du lien mais comment
Merci d'avance
Amicalement
Jean Marie

New Edition
je ne sais pas ce que j'ai fait mais ma macro fonctionne
milles excuses
Jean Marie

Message édité par: ChTi160, à: 08/05/2005 22:08

 

[myDearFriend!]

Salut Chti160,

Tu peux peut-être essayer :

Sub SuppLien()
Dim derlgn As Integer
Dim L As Long
      With ActiveSheet
            derlgn = .Range('B65536').End(xlUp).Row
            For L = derlgn To 1 Step -1
                  If Left(Cells(L, 2).Value, 2) = 'Re' Then
                        Cells(L, 2).EntireRow.Delete
                  End If
            Next
      End With
End Sub

Tu étais sur la bonne voie, mais :[ol][ul][li]'Sud SuppLien()'... ça marchera pas ![/li]
[li]'ActiveWorkSheet'.... non plus lol ![/li][/ul][/ol]
Cordialement,

Message édité par: myDearFriend!, à: 08/05/2005 22:19

 

[ChTi160]

Salut Didier
Oui j'ai Mer.. mais il m'a fallu du temps pour comprendre Lol
je me demandais ce qui n'allait pas merci quand même
je copie ton code et je garde
bonne fin de Soirée
Amicalement
Jean Marie