XL 2010 incrémentation liste url

[guytares]

Bonjour dans la colonne A j'ai des urls exemple

Sortir dans les Alpes-Maritimes avec planetekiosque - Planete Kiosque - Alpes-Maritimes , Dates, Villes, Catégories, , Dimanche 19 juillet, Lundi 20 juillet, Mardi 21 juillet, Mercredi 22 juillet, Jeudi 23 juillet, Vendredi 24 juillet, Samedi 25 juillet, Antibes (4), Beausoleil (1), ... alpes-maritimes.planetekiosque.com

https://alpes-haute-provence.planetekiosque.com/212-agenda.html

dans la colonne B j'ai des chiffres ex 6 et 8 le résultat que je veux obtenir dans la colonne C c'est

Sortir dans les Alpes-Maritimes avec planetekiosque - Planete Kiosque - Alpes-Maritimes , Dates, Villes, Catégories, , Dimanche 19 juillet, Lundi 20 juillet, Mardi 21 juillet, Mercredi 22 juillet, Jeudi 23 juillet, Vendredi 24 juillet, Samedi 25 juillet, Antibes (4), Beausoleil (1), ... alpes-maritimes.planetekiosque.com

Sortir dans les Alpes-Maritimes avec planetekiosque, page 2 - Planete Kiosque - Alpes-Maritimes , Dates, Villes, Catégories, , Dimanche 19 juillet, Lundi 20 juillet, Mardi 21 juillet, Mercredi 22 juillet, Jeudi 23 juillet, Vendredi 24 juillet, Samedi 25 juillet, Antibes (4), Beausoleil (1), ..., page 2 alpes-maritimes.planetekiosque.com

Sortir dans les Alpes-Maritimes avec planetekiosque, page 3 - Planete Kiosque - Alpes-Maritimes , Dates, Villes, Catégories, , Dimanche 19 juillet, Lundi 20 juillet, Mardi 21 juillet, Mercredi 22 juillet, Jeudi 23 juillet, Vendredi 24 juillet, Samedi 25 juillet, Antibes (4), Beausoleil (1), ..., page 3 alpes-maritimes.planetekiosque.com

Sortir dans les Alpes-Maritimes avec planetekiosque, page 4 - Planete Kiosque - Alpes-Maritimes , Dates, Villes, Catégories, , Dimanche 19 juillet, Lundi 20 juillet, Mardi 21 juillet, Mercredi 22 juillet, Jeudi 23 juillet, Vendredi 24 juillet, Samedi 25 juillet, Antibes (4), Beausoleil (1), ..., page 4 alpes-maritimes.planetekiosque.com

Sortir dans les Alpes-Maritimes avec planetekiosque, page 5 - Planete Kiosque - Alpes-Maritimes , Dates, Villes, Catégories, , Dimanche 19 juillet, Lundi 20 juillet, Mardi 21 juillet, Mercredi 22 juillet, Jeudi 23 juillet, Vendredi 24 juillet, Samedi 25 juillet, Antibes (4), Beausoleil (1), ..., page 5 alpes-maritimes.planetekiosque.com

Sortir dans les Alpes-Maritimes avec planetekiosque, page 6 - Planete Kiosque - Alpes-Maritimes , Dates, Villes, Catégories, , Dimanche 19 juillet, Lundi 20 juillet, Mardi 21 juillet, Mercredi 22 juillet, Jeudi 23 juillet, Vendredi 24 juillet, Samedi 25 juillet, Antibes (4), Beausoleil (1), ..., page 6 alpes-maritimes.planetekiosque.com

https://alpes-haute-provence.planetekiosque.com/212-agenda.html

https://alpes-haute-provence.planetekiosque.com/212-i20-agenda.html

https://alpes-haute-provence.planetekiosque.com/212-i40-agenda.html

https://alpes-haute-provence.planetekiosque.com/212-i60-agenda.html

https://alpes-haute-provence.planetekiosque.com/212-i80-agenda.html

https://alpes-haute-provence.planetekiosque.com/212-i100-agenda.html

https://alpes-haute-provence.planetekiosque.com/212-i120-agenda.html

https://alpes-haute-provence.planetekiosque.com/212-i140-agenda.html

 

[guytares]

Bonjour thierry je crois que c'est toi qui avait fait cette macrolapomme or il se trouve quelle bugue car j'ai mis une liste d'url différente en A Peut m'aider à la debbuger? merci d'avance mais je n'y connait pas grand chose en Vba
j'ai mis le résultat voulu en E

 

[_Thierry]

Re Bonjour @guytares , le Forum

Non elle n'est pas de moi, ce n'est pas du tout mon style, vu le nom et le style si @mapomme passe par là il se fera un plaisir de la débuguer pour autant qu'elle ait un bug car venant de sa part il a dû certainement faire quelque chose qui fonctionnait avec ce que tu lui a mal expliqué ou que maintenant tu transposes dans un autre context qu'à l'origine...LoL

Bonne soirée
@+Thierry

 

[guytares]

merci pour ta réponse, salutations

 

[mapomme]

Bonsoir @guytares
Bonsoir @_Thierry (je ne peux même plus avancer masqué sans que tu me reconnaisses )

Essayez ce code :

Sub Insertion()
   Dim t, i&, n&, max&, pref
   Columns("b:b").Clear
   Range("b1") = "insert"
   t = Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row)
   For i = 1 To UBound(t): n = n + Mid(t(i, 1), InStr(t(i, 1), "page=") + 5, 99): Next
   ReDim v(1 To n, 1 To 1): n = 0
   For i = 1 To UBound(t)
      pref = Left(t(i, 1), InStr(t(i, 1), "page="))
      max = 1 * Mid(t(i, 1), InStr(t(i, 1), "page=") + 5, 99)
      For j = 1 To max: n = n + 1: v(n, 1) = pref & j: Next
   Next i
   Range("b2").Resize(UBound(v)) = v
End Sub

 

[guytares]

merci thierry barbatruc, ca marche super

 

[guytares]

Salut thierry j'ai une erreur au lieu de https://openagenda.com/saint-roch?lang=fr?page=1
j'ai https://openagenda.com/saint-roch?lang=fr?p1 comme résultat