Comment gagner du temps

Le
Le Nordiste
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4964091
bonjour le nordiste,

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
Le #4964031
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)

parceque sinon...

" dateUneDate = cellDate.Value
" cellDate.Formula = dateUneDate
En bref cellDate.Formula = cellDate.Value


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


Publicité
Poster une réponse
Anonyme