Désirant créer une liste de lien vers différentes pages sur un site
intranet je me retrouve dans l'impossibilité de faire une copie
incrémenter d'un lien dans une feuille Excel ayant le format suivant :
je voudrais remplacé automatiquement a?? par a01 à a99 puis ensuite b01
à b99 etc. etc.
Comment puis-je faire cela ?
Bye, bon surf et sortez couvert !
" - J'ai bon caractère mais j'ai le glaive vengeur et le bras
séculier. L'aigle va fondre sur la vieille buse.
- Ça c'est chouette comme métaphore.
- Ce n'est pas une métaphore c'est une périphrase.
- Ah fait pas chier !
- Ça c'est une métaphore."
Michel Audiard - Faut pas prendre les enfants du Bon Dieu pour des
canards sauvages - 1968
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Sub zz_Links() Application.ScreenUpdating = False With Sheets("Feuil1") x = 1 For i = 97 To 122 For j = 1 To 99 .Hyperlinks.Add .Cells(x, 1), "http://monsite/repertoireliste/" _ & Chr(i) & Format(j, "00") & "/list.html" x = x + 1 Next Next End With End End Sub
AV
Sub zz_Links()
Application.ScreenUpdating = False
With Sheets("Feuil1")
x = 1
For i = 97 To 122
For j = 1 To 99
.Hyperlinks.Add .Cells(x, 1), "http://monsite/repertoireliste/" _
& Chr(i) & Format(j, "00") & "/list.html"
x = x + 1
Next
Next
End With
End
End Sub
Sub zz_Links() Application.ScreenUpdating = False With Sheets("Feuil1") x = 1 For i = 97 To 122 For j = 1 To 99 .Hyperlinks.Add .Cells(x, 1), "http://monsite/repertoireliste/" _ & Chr(i) & Format(j, "00") & "/list.html" x = x + 1 Next Next End With End End Sub
AV
Anywhere
Merci !!!
"AV" a écrit dans le message de news:bohv7h$s8c$
Sub zz_Links() Application.ScreenUpdating = False With Sheets("Feuil1") x = 1 For i = 97 To 122 For j = 1 To 99 .Hyperlinks.Add .Cells(x, 1), "http://monsite/repertoireliste/" _
& Chr(i) & Format(j, "00") & "/list.html" x = x + 1 Next Next End With End End Sub
AV
Merci !!!
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:bohv7h$s8c$1@news-reader2.wanadoo.fr...
Sub zz_Links()
Application.ScreenUpdating = False
With Sheets("Feuil1")
x = 1
For i = 97 To 122
For j = 1 To 99
.Hyperlinks.Add .Cells(x, 1),
"http://monsite/repertoireliste/" _
& Chr(i) & Format(j, "00") & "/list.html"
x = x + 1
Next
Next
End With
End
End Sub
Sub zz_Links() Application.ScreenUpdating = False With Sheets("Feuil1") x = 1 For i = 97 To 122 For j = 1 To 99 .Hyperlinks.Add .Cells(x, 1), "http://monsite/repertoireliste/" _
& Chr(i) & Format(j, "00") & "/list.html" x = x + 1 Next Next End With End End Sub
