XL 2010 Repeter un macro en boucle en changeant une variable

allarmen · 19 Mars 2022

Bonjour, j'aimerais répéter ces lignes d'une macro jusqu'à Range("5000"). Mais c'est trop long. Existe t'il un moyen de le faire avec une boucle simple en macro ?
Un très grand merci à l'expert qui pourrait m'aider. Je suis étudiante et j'ai besoin de ce code pour créer une petit programme pour créer des liens hypertext.

Bernard_XLD · 19 Mars 2022

Bonjour allarmen, lionel, staple1600, le forum

Voici un exemple créant en boucle des liens vers Excel-Downloads, non fonctionnels si les valeurs en colonne A ne sont pas des noms de page valides et accessibles.
j'ai supprimé vos liens du post 1, merci de respecter la charte Xld

Bien cordialement, @+

VB:

Sub Creer_Hyperlinks()
Dim Cel_ref As Range
With ActiveSheet
    For Each Cel_ref In .Range("A6:A5000")
        .Hyperlinks.Add Anchor:=Cel_ref, Address:="https://www.excel-downloads.com/threads/" & Cel_ref.Value2
    Next Cel_ref
End With
End Sub

Usine à gaz · 19 Mars 2022

Bonjour
Un fichier test joint vous permettra certainement d'avoir plus de réponses.
lionel

allarmen · 19 Mars 2022

Bonjour Lionel pourriez-vous m'aider ?

Staple1600 · 19 Mars 2022

Bonjour

Le site en question m'amène ici

Votre connexion n’est pas privée
Des individus malveillants tentent peut-être de subtiliser vos informations personnelles sur le site candidat.fr (mots de passe, messages ou numéros de carte de crédit, par exemple). En savoir plus
NET::ERR_CERT_COMMON_NAME_INVALID

Et Lionel (bonjour) en tant qu'ancien membre du forum aurait du te parler du point 8 de la charte du forum.
Comme je suis aussi un vieux de vielle c'est moi qui m'y colle

Usine à gaz · 19 Mars 2022

Peut-être mais pas sur que je sois du niveau.
Mais de tout façon pas sans fichier test.

Usine à gaz · 19 Mars 2022

Staple1600 à dit:
Bonjour

Le site en question m'amène ici
Votre connexion n’est pas privée
Des individus malveillants tentent peut-être de subtiliser vos informations personnelles sur le site candidat.fr (mots de passe, messages ou numéros de carte de crédit, par exemple). En savoir plus
NET::ERR_CERT_COMMON_NAME_INVALID

Et Lionel (bonjour) en tant qu'ancien membre du forum aurait du te parler du point 8 de la charte du forum.
Comme je suis aussi un vieux de vielle c'est moi qui m'y colle

Bonjour "Vieux" lol

Staple1600 · 19 Mars 2022

Lionel

Relire le précédent message

Donc le fameux point 8

La charte à dit:
2.8 - Les demandes de développements relatives à des extractions de données sur des sites interdisant ces pratiques dans leurs conditions générales sont interdites.

Or comme on ne connait les CGU ni les mentions légales de candidat.fr
(voir mon précédent message)

allarmen · 19 Mars 2022

Arf ok je vais chercher une autre solution alors

allarmen · 19 Mars 2022

En fait le lien hypertext n'existe pas. Je souhaite seulement faire un exemple de macro permettant de repeter ces lignes

Staple1600 · 19 Mars 2022

Re

Avant de chercher ailleurs
Que disent les CGU et/ou les mentions légales du site ?

Bernard_XLD · 19 Mars 2022

Bonjour allarmen, lionel, staple1600, le forum

Voici un exemple créant en boucle des liens vers Excel-Downloads, non fonctionnels si les valeurs en colonne A ne sont pas des noms de page valides et accessibles.
j'ai supprimé vos liens du post 1, merci de respecter la charte Xld

Bien cordialement, @+

VB:

Sub Creer_Hyperlinks()
Dim Cel_ref As Range
With ActiveSheet
    For Each Cel_ref In .Range("A6:A5000")
        .Hyperlinks.Add Anchor:=Cel_ref, Address:="https://www.excel-downloads.com/threads/" & Cel_ref.Value2
    Next Cel_ref
End With
End Sub

Staple1600 · 19 Mars 2022

Re

allarmen
Tu veux donc créer une boucle qui créé 500 liens hypertextes ?
Mais ces liens pointeront vers quoi ?

Staple1600 · 19 Mars 2022

Re

Voici 500 liens, tout droit sorti de mon four

VB:

Sub Boucle_d_or()
Dim malité&
For malité = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Cells(malité, 1), Address:="", SubAddress:="Feuil1!A" & malité, ScreenTip:="Staple1600 +" & malité
Next
End Sub

EDITION: Damned! Mon navigateur n'avait rafraichi la page.
Grillé par Bernard (que je salue au passage)

allarmen · 19 Mars 2022

Bernard_XLD à dit:
Bonjour allarmen, lionel, staple1600, le forum

Voici un exemple créant en boucle des liens vers Excel-Downloads, non fonctionnels si les valeurs en colonne A ne sont pas des noms de page valides et accessibles.
j'ai supprimé vos liens du post 1, merci de respecter la charte Xld

Bien cordialement, @+

VB:

Sub Creer_Hyperlinks() Dim Cel_ref As Range With ActiveSheet For Each Cel_ref In .Range("A6:A5000") .Hyperlinks.Add Anchor:=Cel_ref, Address:="https://www.excel-downloads.com/threads/" & Cel_ref.Value2 Next Cel_ref End With End Sub

Extra !!!! Formidable c'est exactement cela. Un très grand merci à vous. Je ne peux pas vous embrasser mais le coeur y est

allarmen · 19 Mars 2022

Merci à tous pour votre formidable sens de l'entraide, je suis trop contente

XL 2010 Repeter un macro en boucle en changeant une variable

allarmen

XLDnaute Junior

Bernard_XLD

Usine à gaz

XLDnaute Barbatruc

allarmen

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

allarmen

XLDnaute Junior

allarmen

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

allarmen

XLDnaute Junior

allarmen

XLDnaute Junior

Discussions similaires