Roland_M
XLDnaute Barbatruc
Bien le bonjour à tous,
Tout est dans le titre !
.Hyperlinks.Delete avec 20000 lignes, sur une colonne, ça n'en finit pas ! environ 2 minutes !?
à 25000 environ 3 min et parfois j'ai droit au message excel ne répond pas et c'est le plantage !?
comment faire autrement, auriez-vous une autre proposition ?
j'ai essayé, par macro, de copier les données, supprimer puis recopié.
ça ne plante pas mais c'est très long aussi.
bien entendu, avant le lancement, j'ai mis à false les événements, affichage, calculation ...
merci d'avance pour toutes vos réponses !
LA MACRO:
'annule filtre
ActiveSheet.ShowAllData: ActiveSheet.AutoFilter.Sort.SortFields.Clear
'range de données
R$ = Range(Cells(NoPremLig, NoDeCol), Cells(NoDernLig, NoDeCol)).Address
Dim Tablo As Variant
Tablo = Range(R$) 'load
With Range(R$)
.Clear 'vide
.Value = Tablo 'recolle
.Font.Name = Arial
.Font.Size = 8
.Font.ColorIndex = 1 'noir
.Font.Underline = xlUnderlineStyleNone 'sans souligne
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Tout est dans le titre !
.Hyperlinks.Delete avec 20000 lignes, sur une colonne, ça n'en finit pas ! environ 2 minutes !?
à 25000 environ 3 min et parfois j'ai droit au message excel ne répond pas et c'est le plantage !?
comment faire autrement, auriez-vous une autre proposition ?
j'ai essayé, par macro, de copier les données, supprimer puis recopié.
ça ne plante pas mais c'est très long aussi.
bien entendu, avant le lancement, j'ai mis à false les événements, affichage, calculation ...
merci d'avance pour toutes vos réponses !
LA MACRO:
'annule filtre
ActiveSheet.ShowAllData: ActiveSheet.AutoFilter.Sort.SortFields.Clear
'range de données
R$ = Range(Cells(NoPremLig, NoDeCol), Cells(NoDernLig, NoDeCol)).Address
Dim Tablo As Variant
Tablo = Range(R$) 'load
With Range(R$)
.Clear 'vide
.Value = Tablo 'recolle
.Font.Name = Arial
.Font.Size = 8
.Font.ColorIndex = 1 'noir
.Font.Underline = xlUnderlineStyleNone 'sans souligne
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With