Obtenir tous les chiffres entre deux intervalles

Bonjour à tous,

J'ai tenté de modifier une macro qui avait été publiée ici afin d'afficher une liste compris entre deux valeur.

J'aimerai la modifier pour pouvoir afficher ces valeurs non dans une liste mais dans une même cellule séparée par un ";".

Par exemple pour la cellule D8: 1935;1936;1937 (etc.)1940.

J'ai tenté d'utiliser la fonction print mais je ne suis du pas sûr de l'usage.

Pourriez-vous me donner un petit indice :) ?

Merci d'avance !

15test-annee.xlsm (21.78 Ko)

Bonjour,

une solution possible par macro :

Sub MaMacro()
Dim T1, T2, TT, i As Long, j As Integer, DL As Long, Année As Integer
With Worksheets("Feuil1")
DL = .Range("B" & Rows.Count).End(xlUp).Row
T1 = .Range("B1:B" & DL)
T2 = .Range("C1:C" & DL)

ReDim TT(1 To DL)

For i = 1 To DL
    TT(i) = T1(i, 1)
    For j = T1(i, 1) + 1 To T2(i, 1)
        TT(i) = TT(i) & ";" & j
    Next
Next

.Range("E1").Resize(DL, 1) = Application.Transpose(TT)
End With
End Sub

A+

Parfait, ça fonctionne !

Merci :)

Rechercher des sujets similaires à "obtenir tous chiffres entre deux intervalles"