1. #1
    Nouveau Candidat au Club
    Femme Profil pro
    Étudiant
    Inscrit en
    octobre 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 23
    Localisation : Chili

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : octobre 2017
    Messages : 2
    Points : 1
    Points
    1

    Par défaut 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 :

    Nom : Capture.PNG
Affichages : 32
Taille : 14,0 Ko

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

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    août 2010
    Messages
    2 768
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : août 2010
    Messages : 2 768
    Points : 5 724
    Points
    5 724

    Par défaut

    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

  3. #3
    Nouveau Candidat au Club
    Femme Profil pro
    Étudiant
    Inscrit en
    octobre 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 23
    Localisation : Chili

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : octobre 2017
    Messages : 2
    Points : 1
    Points
    1

    Par défaut

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

Discussions similaires

  1. Rafraichissement des données avec ADOConnection -SQL Server
    Par newfsch dans le forum Bases de données
    Réponses: 4
    Dernier message: 04/01/2006, 21h48
  2. Exploration des données avec cristal Reports XI
    Par silversatch62 dans le forum SAP Crystal Reports
    Réponses: 2
    Dernier message: 17/06/2005, 09h51
  3. [format des données avec une procédure stockée]
    Par viny dans le forum PostgreSQL
    Réponses: 7
    Dernier message: 10/03/2005, 13h24
  4. Exporter seulement une partie des données avec pg_dump ?
    Par Philhz dans le forum PostgreSQL
    Réponses: 2
    Dernier message: 31/07/2004, 09h50
  5. Réponses: 13
    Dernier message: 20/03/2003, 08h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo