Sub Macro1() Range("N10810:N" & Range("O65536").End(xlUp).Row).NumberFormat = "[$-40C]d-mmm-yy;@" end Sub
isabelle
Bonjour,
j'ai la boucle ci-dessous qui fonctionne mais sur plus de 40000 lignes c'est un peu longuet. Comment accélérer pour le même résultat ?
" "Application.ScreenUpdating = False " "'DÉFINIR LA PLAGE DES DATES " Set plageDates = Range("N10810:N" & Range("O65536").End(xlUp).Row) " plageDates.Select " "For Each cellDate In plageDates " 'cellDate.Select " dateUneDate = cellDate.Value " cellDate.Formula = dateUneDate " cellDate.NumberFormat = "[$-40C]d-mmm-yy;@" "Next cellDate " "Application.ScreenUpdating = True " merc i de votre aide
lSteph
Bonjour, Outre virer les select , traiter la plage d'un bloc, mais...
Comme on ne voit ni Dim ni.. autre (définition et type de variable ou d'objet, control textbox label ...on ne sait pas dans quoi on est) en bref dateunedate ???c'est quoi et comment (Alors peut-être à préciser ou donner un code plus complet)
ne nous donnerait pas grand chose d'autre qu'un collage spécial valeur!
Cordialement.
-- lSteph
On 3 oct, 16:12, Le Nordiste wrote:
Bonjour,
j'ai la boucle ci-dessous qui fonctionne mais sur plus de 40000 lignes c'est un peu longuet. Comment accélérer pour le même résultat ?
" "Application.ScreenUpdating = False " "'DÉFINIR LA PLAGE DES DATES " Set plageDates = Range("N10810:N" & Range("O65536").End(xlUp).Row) " plageDates.Select " "For Each cellDate In plageDates " 'cellDate.Select " dateUneDate = cellDate.Value " cellDate.Formula = dateUneDate " cellDate.NumberFormat = "[$-40C]d-mmm-yy;@" "Next cellDate " "Application.ScreenUpdating = True " merc i de votre aide
Bonjour,
Outre virer les select , traiter la plage d'un bloc, mais...
Comme on ne voit ni Dim ni.. autre
(définition et type de variable ou d'objet, control textbox
label ...on ne sait pas dans quoi on est)
en bref dateunedate ???c'est quoi et comment
(Alors peut-être à préciser ou donner un code plus complet)
Bonjour, Outre virer les select , traiter la plage d'un bloc, mais...
Comme on ne voit ni Dim ni.. autre (définition et type de variable ou d'objet, control textbox label ...on ne sait pas dans quoi on est) en bref dateunedate ???c'est quoi et comment (Alors peut-être à préciser ou donner un code plus complet)
