Conversion intervalle de nombre

Bonjour

Je suis actuellement à la recherche d'un moyen pour convertir des intervalles de nombre en une suite de nombres.

Exemple:
6-13, 21, 25
en
6, 7, 8, 9, 10, 11, 12, 13, 21, 25

Etant donné que ça fait très longtemps que je n'ai plus fait de VB, je rame un peu.

Cordialement

Bonjour,

voir déjà dans l'aide VBA interne l'aide de l'instruction For … Next pour effectuer une boucle entre les bornes,
sans oublier les tutoriels à disposition sur ce forum …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

re
cette sub te donne l'interval (en nombre de fois les item precedents )pour chaque item precedent le nombre est arrondi

Code:

---

1 2 3 4 5 6 7 8

Sub test() serie = Array(6, 13, 21, 25) For i = 1 To UBound(serie) For a = 0 To i Debug.Print serie(i) & " contient " & Round(serie(i) / serie(a)) & " fois " & serie(a) Next Next End Sub

---

Bonjour,

Peut-être comme ceci ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() serie = Array("6-13", "21", "25") For i = LBound(serie) To UBound(serie) borne = Split(serie(i), "-") For j = borne(LBound(borne)) To borne(UBound(borne)) strOut = strOut & j & "," Next Next MsgBox Left(strOut, Len(strOut) - 1) End Sub

---

Cordialement

Edit : mise en forme