Extraire le contenu d'un lien avec une condition

[bobylaroche]

Bonjour XLDnautes,

J'ai essayé de modifier des macros existantes pour réaliser une extraction mais je bug.
Plus j'essaye de choses <> et plus je m'embrouille, je m'en remets donc à vos compètences.
Pas à l'aise avec les cells, boucles imbriquées et autres petites bêtes.

Pour infos :

Deux feuilles :
Une feuille "liens" pouvant contenir 50 liens en colonne B.
Une feuille "Extraction" contenant l'extraction ou pas de l'un de ces 50 liens.

L'extraction à réaliser :
Extraire le contenu du premier lien rencontré en colonne B ayant une valeur égale à 100 en colonne L.
Si aucune valeur égale à 100 n'est trouvée alors aucune d'extraction.
Cette extraction devrait s'effectuer en B2 de la feuille "extraction" au format texte comme dans l'exemple.

Voir le fichier pour plus de commodité.

Bon, je vais mettre ma tête dans un sceau de glace pour refroidir.

Voili voila,

 

[Modeste]

Re : Extraire le contenu d'un lien avec une condition

Bonjour bobylaroche,

Quand tu sortiras la tête de ton seau de glace 🙄 il faudra que tu nous commentes un peu le rapport entre le contenu de ta feuille "Extraction" et tes explications ... le contenu de B2, en particulier, il correspondra systématiquement à la partie après le dernier '/' 😕

[Edit:] tant que j'y suis, le mot "Portail" ne serait pas sytématiquement présent, tant qu'on y est?

Et que fait-on du "Portail:informatique" (le '100' suivant en colonne L)? On l'ignore?

Si une formule permet éventuellement de faire la même chose, tu n'es pas preneur?

 

[bobylaroche]

Re : Extraire le contenu d'un lien avec une condition

Bonsoir Modeste,


Merci pour ta réponse.

Quelques explications.

"le contenu de B2, en particulier, il correspondra systématiquement à la partie après le dernier '/'"

Non car les liens de la feuille "Liens" peuvent être différents.
La cellule B2 de la feuille "Extraction" est la cellule choisie comme point de départ pour coller l'extraction de la page internet au format texte.


"Et que fait-on du "Portail:informatique" (le '100' suivant en colonne L)? On l'ignore?"

Je pensai l'avoir souligné, désolé. C'est cela, on l'ignore, seul le premier trouvé est pris en compte
pour l'extraction.

Une formule capable de faire cette manipulation, ça existe 🙂

Merci



Voili, voila,

 

[Modeste]

Re : Extraire le contenu d'un lien avec une condition

Re,

Non car les liens de la feuille "Liens" peuvent être différents.

Il faudrait, alors, nous mettre des exemples différents ... et nous expliquer comment on identifie la partie du lien à extraire😕

Une formule capable de faire cette manipulation, ça existe 🙂

Alors, ça ... au stade actuel, je n'en sais fichtrement rien 😀 ... mais on ne sait jamais!

 

[Lone-wolf]

Re : Extraire le contenu d'un lien avec une condition

Bonsoir bobylaroche,


voici le fichier en retour, j'ai changé les données de la colonne L par la colonne D, plus pratique pour la macro. J'ai aussi rajouté un condition pour le format des cellules ayant 100 comme valeur. Rergarde si cela convient.

EDIT: Petite correction, copie ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("d8:d68")) Is Nothing Then
If Target.Value = 100 Then
Target.Interior.Color = vbYellow
Target.Font.Bold = True
req_web (Target.Offset(0, -2))
Else
Target.Interior.ColorIndex = xlNone
Target.Font.Bold = False
Exit Sub
End If
 Sheets("Requête").Cells.Delete
  Sheets("Extraction").Activate
End If
End Sub

A+ 😎

 

[bobylaroche]

Re : Extraire le contenu d'un lien avec une condition

Bonsoir Lone-wolf,

C'est nickel, pile poil ce que je souhaitai 🙂
Merci à toi,

@+

 

[bobylaroche]

Re : Extraire le contenu d'un lien avec une condition

Merci Modeste le Barbatruc

 

[Lone-wolf]

Re : Extraire le contenu d'un lien avec une condition

Re bobylaroche,

non, merci à MJ(13 je suppose) pour le code.

EDIT: Bonsoir Modeste et un petit cou-cou à MJ 😉


A+ 😎

 

[bobylaroche]

Re : Extraire le contenu d'un lien avec une condition

Merci à vous deux ou plutôt vous trois 😀

 

[Modeste]

Re : Extraire le contenu d'un lien avec une condition

Bonsoir le fil,

Je ne suis pas à remercier: j'en suis toujours à me demander comment, de la demande initiale, on a pu aboutir au code fourni 😕

 

[bobylaroche]

Re : Extraire le contenu d'un lien avec une condition

Bonsoir Barbapapa,

A chacun son interprétation des choses, c'est ce qui rend la différence interessante 🙂

 

[bobylaroche]

Re : Extraire le contenu d'un lien avec une condition

Bonjour Lone Wolf,

Super le code 🙂

"j'ai changé les données de la colonne L par la colonne D"

Est il possible de se baser sur la colonne L comme prévue initialement car la D contient parfois des données et occasionne des soucis. Je pensais modifier ton code mais ce n'est pas si simple !

Une bonne journée,

@+

 

[Lone-wolf]

Re : Extraire le contenu d'un lien avec une condition

Bonjour bobylaroche,

bien sûr que c'est possible, comme tu peux le voir.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("l8:l68")) Is Nothing Then
If Target.Value = 100 Then
Target.Interior.Color = vbYellow
Target.Font.Bold = True
req_web (Target.Offset(0, -10))
Else
Target.Interior.ColorIndex = xlNone
Target.Font.Bold = False
Exit Sub
End If
 Sheets("Requête").Cells.Delete
  Sheets("Extraction").Activate
End If
End Sub

Très bonne journée 😎

 

[bobylaroche]

Re : Extraire le contenu d'un lien avec une condition

Hello Lone Wolf,

Merci bien pour la modification "req_web (Target.Offset(0, -10))", le décalage de cellule 🙂
Sympa.

Une bonne soirée,

@+

 

[bobylaroche]

Re : Extraire le contenu d'un lien avec une condition

Bah, j'ai une autre question.

Lorsque je fais un copié collé de données, il faut que je selectionne la cellule contenant le chiffre 100 et que je valide avec la touche entrée pour que l'importation s'execute. Normal ou pas ? Faut-il remplacer la fonction If Target.Value par une boucle ?

@+