Nettoyer des données avec un hyperlien

Version imprimable

07/10/2017, 17h02
Amartin1

1 pièce(s) jointe(s)

Nettoyer des données avec un hyperlien

Bonjour à tous :) !!

Je suis en train de travailler sur des données de statuts facebook postées par des entreprises.
Voici par exemple le type de données que je traite :

Pièce jointe 317762

Le but serait de sortir l'hyperlien, de le mettre dans une nouvelle colonne puis de compter +1 dans une dernière colonne. Enfin, s'il y a hyperlien dans la phrase, la colonne "Post Type" devrait changer de STATUS à LINK.
Deux problèmes se posent pour moi : je ne sais pas comment coder le fait de reconnaître un lien http://... et aussi la place du lien peut être n'importe laquelle dans la phrase.

Est-ce que l'un d'entre vous aurait une idée sur la manière de réaliser ça ?

Merci beaucoup pour toute aide !!! :)

Bonjour,

Une piste :

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    Dim Chaine As String
 
    'le lien hypertexte est sensé ne pas contenir d'espace !
    Chaine = "Dans cette phrase, il y a un lien hypertexte de cette discussion https://www.developpez.net/forums/d1760555/logiciels/microsoft-office/excel/macros-vba-excel/nettoyer-donnees-hyperlien/ mais il peut être difficile de le retrouver et si il contient un espace, il sera tronqué !"
    MsgBox Mid(Chaine, InStr(Chaine, "http"), InStr(InStr(Chaine, "http"), Chaine, " ") - InStr(Chaine, "http"))
 
End Sub

Bonjouuur, merci pour ta réponse ! A partir de la fonction Mid, j'ai rédigé le Sub suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub FindLink() Dim i As Integer For i = 2 To 92 Dim Status As String Dim CleanStatus As String Dim Link As String Set Status = Cells(i, 1).Value Set Link = Mid(Status, InStr(Status, "http"), InStr(InStr(Status, "http"), Status, " ") - InStr(Status, "http")) If Link <> Null Then CleanStatus = Replace(Status, Link, "") Else: CleanStatus = Status End If Set Cells(i, 10).Value = CleanStatus Next End Sub
Lorsque je le compile, j'obtiens l'erreur à la ligne Set Status : "Objet requis"
J'ai regardé le guide correspondant à cette erreur, mais je n'arrive pas à comprendre d'où elle provient : j'aurais mal déclaré ma chaîne Status ? Ou la fonction cells.value ne renvoie pas une chaîne de caractère ?

Merci beaucoup pour l'aide !! :)