création VBA pour ne sélectionner que les URL dans une page

[petit eden]

Bonjour a tous!
Est ce que vous savez comment créer un module pour qu'il ne sélectionne que les URL sur une page?
Ou s'il y a une formule ca serait encore mieux !
Ou un autre moyen!!😕
Je suis désespérée!!🙁

 

[Modeste]

Re : création VBA pour ne sélectionner que les URL dans une page

Bonsoir petit eden et bienvenue,

Si tu es désespérée, nul doute que tu repasseras par ici ... ce qui tomberait assez bien, parce que ta demande est un peu laconique!
- Les "URL" en question sont sous forme de simple texte ou de liens?
- Qu'appelles-tu "sélectionner les URL"?
- Tant qu'à faire, déposer un petit fichier exemple (de taille raisonnable et sans données confidentielles!!) te paraîtrait envisageable?

Sinon, l'aide d'Excel renseigne ce qui suit:

Hyperlinks, objet
Représente la collection de liens hypertexte d'une plage ou d'une feuille de calcul.

Exemple:
For Each h in Worksheets(1).Hyperlinks
If Instr(h.Name, "Microsoft") <> 0 Then h.Follow
Next

 

[petit eden]

Re : création VBA pour ne sélectionner que les URL dans une page

Par exemple sur un guide de voyage ou autres, ils indiquent les liens des hotels (www.hotel.com) , ce que je cherche c'est un moyen de pouvoir regrouper les liens sur une autre feuille.
Tu peux avoir en attachement le fichier contenant une page ou il y a des URL.
Merci d'avance 🙂

 

[Modeste]

Re : création VBA pour ne sélectionner que les URL dans une page

Bonjour,

Ça a l'air d'aller: ton désespoir ne semble pas si intense, finalement 😉
Par contre, tu parles de liens, mais ce vers quoi pointent tes flèches, dans ton fichier ... n'en sont pas!?

Un premier essai, donc, en pièce jointe:
- en colonne A de la Feuil1, une formule qui indique le n° de la ligne en cours, si la colonne B commence par "url :" (on peut évidemment placer cette formule dans n'importe quelle autre colonne et elle peut même être masquée, si besoin)
- en colonne A de la Feuil2, une formule qui "récupère" le texte de la colonne B de la Feuil1 si son n° de colonne figure en colonne A de ladite Feuil1.

Dis-nous déjà si ça correspond à ta demande ...
Si oui, on peut mettre en place un système pour que n'apparaissent plus les messages d'erreur #NOMBRE!
Sinon, essaye de préciser ta demande, quitte à placer "à la main" en Feuil2 les résultats souhaités.

 

[Si...]

Re : création VBA pour ne sélectionner que les URL dans une page

salut

pour continuer à tisser des (hyper)liens avec VBA - n'est-ce pas Modeste 😀 :

Sub Liens()
  Dim h As Hyperlink
  Feuil2.[A:A] = ""
  For Each h In ActiveSheet.Hyperlinks
    Range(h.Range.Address).Copy Feuil2.Cells(65000, 1).End(xlUp)(2)
  Next
End Sub

 

[Modeste]

Re : création VBA pour ne sélectionner que les URL dans une page

Salut,

Tissons, mon bon ami 🙂, tissons ... c'est une autre façon de se croiser. Au moins ça nous tiendra chaud pendant l'hiver ... et puis, au jardin de (petit) eden, y a pas grand chose à se mettre sur le dos!