Travail sur des plages téléchargées

Bonsoir Albert et le forum,


As-tu essayé une boucle du style :

Sub Format()
Do While ActiveCell.Value <> ''
ActiveCell.Value = CDbl(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement

Bernard

merci CBernardT,

j'ai testé, le code recopie toute la plage au-dessous d'elle-même, ça aurai pu être intéressant pour dédoublonner, supprimer les virgules...
malheureusement, ça ne marche pas.

Jai testé une autre piste :
&&&&&&&&&&&&&&&&&&&&&&
For n = 1 To Now
With ActiveSheet.QueryTables.Add(Connection:='URL;, Destination:=[A65536].End(xlUp)(2))
.WebFormatting = xlWebFormattingNone
.RefreshPeriod = 1
.WebTables = '8'
.Refresh BackgroundQuery:=False
End With
SuppDoublons
Range('A3').Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = 'h:mm'
virgules
Next

&&&&&&&&&&&&&&&&&&&&

mais là encore, c'est incomlpet : le sablier est activé en permanence et si le tri des doublon est efficace, les virgules, elles, par contre, ne sont pas supprimées

Eurékâ, j’ai trouvé une solution avec

Temps = 30 'Temporisation en secondes

chronos = Now
periode = Temps / (CLng(24 * 60) * 60)

While Now < chronos + periode
DoEvents
Wend

A présent, il n’y a plus qu’à vérifier lundi si ça fonctionne, pendant la journée ce bourse


[file name=telechargetest_20050528151956.zip size=28188]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/telechargetest_20050528151956.zip[/file]