XL 2010 Repeter un macro en boucle en changeant une variable

[allarmen]

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.

 

[Usine à gaz]

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

 

[allarmen]

Bonjour Lionel pourriez-vous m'aider ?

 

[Staple1600]

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]

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

 

[Usine à gaz]

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]

Lionel

Relire le précédent message

Donc le fameux point 8

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]

Arf ok je vais chercher une autre solution alors

 

[allarmen]

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

 

[Staple1600]

Re

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

 

[Bernard_XLD]

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, @+

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]

Re

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

 

[Staple1600]

Re

Voici 500 liens, tout droit sorti de mon four

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]

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, @+

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]

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