Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Recherche à partir de plusieurs colonnes

AnthoMTP

XLDnaute Nouveau
Bonjour la communauté,

Je suis nouveau et novice, alors pardon si le sujet a déjà été traité. Je fais appel à vos différents talents. Sur le fichier ci joint (https://docs.google.com/spreadsheet...ouid=105963854645419019484&rtpof=true&sd=true) , j'aimerais automatiser plusieurs choses :1/ dans la colonne AD, je veux voir apparaitre une recherche menant à Société.com depuis google à partir des colonnes E, F et G? et 2/ dans la colonne AE, une recherche de l'éligibilité du numéro de téléphone (colonne I) à la fibre (par exemple depuis cette adresse internet https://www.degrouptest.com/test-eligibilite , ou une autre...)
J'en ai besoin pour une recherche à effecteur dans le cadre de mes cours de commerce...
Merci d'avance
 

Pièces jointes

  • Pharmacie pagesjaunes v2.xlsx
    507.3 KB · Affichages: 3

fanch55

XLDnaute Barbatruc
Bonjour,
Colonne Ad: =LIEN_HYPERTEXTE(SetUrl($E331);"societe.com")
Puis dans un module :
VB:
Function SetUrl(Cel As Range)
    SetUrl = "https://www.societe.com/cgi-bin/liste?ens=on&ori=avance"
    SetUrl = SetUrl & "&nom=" & NoAccents(Cel.Text)
'    SetUrl = SetUrl & "&adr=" & NoAccents(Mid(Trim(Cel.Offset(, 1).Text), InStr(Trim(Cel.Offset(, 1).Text), " ") + 1))
    SetUrl = SetUrl & "&ville=" & NoAccents(Cel.Offset(, 3).Text)
    SetUrl = SetUrl & "&dep=" & Left(Cel.Offset(, 2).Text, 2)
End Function
Function NoAccents(Texte As String)
Dim I As Long
Const AChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
    NoAccents = Trim(Texte)
    For I = 1 To Len(AChars)
        NoAccents = Replace(NoAccents, Mid(AChars, I, 1), Mid(RChars, I, 1))
    Next
End Function

Pour l'éligibilité fibre optique, je ne connais pas de site permettant d'injecter des requêtes ...
 

AnthoMTP

XLDnaute Nouveau
Bonjour et merci pour cette réponse,
Pourriez-vous m'expliquer en deux mots ce qu'est un module, et comment l'inclure svp ?
Je suis vraiment débutant...

pour l'éligibilité, j'ai trouvé ça :
ou
ariase.com
ou
en appuyant sur f12, j'arrive à voir ma donnée saisie, mais je ne sais pas comment faire le lient entre ce code et mon tableau excel

Encore merci d'avance
 

fanch55

XLDnaute Barbatruc
Pourriez-vous m'expliquer en deux mots ce qu'est un module, et comment l'inclure svp ?

Classeur joint avec les propositions.

Pour la partie Fibre optique, F12 est une caverne d'ali baba et mes connaissances en html ne sont pas assez étendues pour pouvoir vous aider efficacement ...
 

Pièces jointes

  • Pharmacie pagesjaunes v2.xlsm
    534.3 KB · Affichages: 4

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…