Discussion :

[picinounours]

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

[Marc-L]

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, …

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Zelnist]

Bonjour,

Peut-être comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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