XL 2019 Recherche à partir de plusieurs colonnes

[AnthoMTP]

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

 

[fanch55]

Bonjour,
Colonne Ad: =LIEN_HYPERTEXTE(SetUrl($E331);"societe.com")
Puis dans un module :

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]

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 :

Fibre ou ADSL ? Vérifiez l’éligibilité d’un logement

La fibre optique est-elle arrivée dans votre commune ? Testez rapidement l'éligibilité de votre logement avec votre adresse ou votre numéro de fixe.

boutique.orange.fr

ou
ariase.com
ou

Test d'éligibilité Fibre et ADSL - SFR

Effectuez le test d'éligibilité en quelques clics pour connaître les offres internet disponibles pour votre logement : Fibre, THD, ADSL ou Box 4G+ .

www.sfr.fr

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]

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

Créer des fonctions personnalisées dans Excel - Support Microsoft

Bien Excel intègre une multitude de fonctions de feuille de calcul intégrées, il y a des chances qu’elles n’ont pas de fonction pour chaque type de calcul que vous effectuez. Les fonctions personnalisées, telles que les macros, utilisent le langage de programmation Visual Basic pour Applications...

support.microsoft.com

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

 

[AnthoMTP]

Trop fort @fanch55 !!

Merci, c'est déjà trop bien !! merci encore