Créer une boucle sur un code VBA deja existant...

Bonjour a tous,

Je viens de trouver un code VBA sur internet qui pourrait repondre a mes besoins mais je dois l'adapter.

Je cherche a créer une boucle sur un code dedié a ne traiter qu'une seule ligne.

J'ai modifié le code source pour que les resultats soient restranscrits en ligne

Creer une boucle depasse largement mes competences.

Pouvez vous m'aider la dessus :


Comment faire :

Sub WriteDates()
'Updateby20150305
Dim rng As Range
Dim StartRng As Range
Dim EndRng As Range
Dim OutRng As Range
Dim StartValue As Variant
Dim EndValue As Variant
xTitleId = "KutoolsforExcel"
Set StartRng = Application.Selection
Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type:=8)
Set EndRng = Application.InputBox("End Range (single cell):", xTitleId, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
StartValue = StartRng.Range("A1").Value
EndValue = EndRng.Range("A1").Value
If EndValue - StartValue <= 0 Then
Exit Sub
End If
ColIndex = 0
For i = StartValue To EndValue
OutRng.Offset(0, ColIndex) = i
ColIndex = ColIndex + 1
Next
End Sub


Merci pour votre aide !

Source : https://www.extendoffice.com/documents/excel/2659-excel-list-all-dates-between-two-dates.html