Discussion :

[Amartin1]

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 :



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 !!!

[Theze]

Bonjour,

Une piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Amartin1]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!