Encore des boucles...

[Hulk]

Hello,

Me tourne encore vers vous, car décidemment, j'ai de la peine avec ces foutues boucles 😡

Dur d'expliquer, le mieux est de voir le fichier joint 😀

Encore merci à tous d'avance pour vos lumières !

Cdt, Hulk.

 

[Cousinhub]

Re : Encore des boucles...

Bonsoir,

un petit essai (0.15 s pour les 13 608 données)

PS, je fais une première boucle, pour commencer en juillet de cette année

Sub hulk()
Application.ScreenUpdating = False
For a = 2009 To 2009
    For m = 7 To 12
        [B65000].End(xlUp)(3).Resize(35, 1) = Application.Proper(Format("01/" & m & "/" & a, "mmmmyyyy"))
    Next m
Next a
For a = 2010 To 2040
    For m = 1 To 12
        [B65000].End(xlUp)(3).Resize(35, 1) = Application.Proper(Format("01/" & m & "/" & a, "mmmmyyyy"))
    Next m
Next a
Range("B2").Delete Shift:=xlUp
End Sub

 

[Hulk]

Re : Encore des boucles...

Hello,

Désolé pour ma réponse tardive !

Impec Bhbh, un grand merci... t'imagines sans macros... 😛

A tout bientôt !

Cdt, Hulk.

 

[Mytå]

Re : Encore des boucles...

Salut le forum

Une autre façon avec déclaration des variables

Sub hulk()
Dim a As Integer
Dim m As Byte
Application.ScreenUpdating = False
For a = 2009 To 2040
Select Case a
Case 2009
    For m = 7 To 12
        [B65000].End(xlUp)(3).Resize(35, 1) = Application.Proper(Format("01/" & m & "/" & a, "mmmmyyyy"))
    Next m
Case Else
    For m = 1 To 12
        [B65000].End(xlUp)(3).Resize(35, 1) = Application.Proper(Format("01/" & m & "/" & a, "mmmmyyyy"))
    Next m
End Select
Next a
Range("B2").Delete Shift:=xlUp
End Sub