XL 2016 Suivi de la pandémie

[p56]

..........

 

[Usine à gaz]

Bjr Pierre,
Merci pour ce fichier de suivi
chez moi ça beugue voir ci-dessous :

Amicalement,
lionel

 

[Modeste geedee]

Le fichier, garanti sans virus, est disponible (gratuitement) sur => http://tatiak.canalblog.com/archives/2020/03/31/38153651.html
Pierre

clean et pro comme dab...
la palette des couleurs n'est totalement modifiable
couleur mini et maxi sont dans le code (RGB(245,255,245) et Clr=0 (trop funèbre à mes yeux))
un bleu pâle et un mauve ecclésiastique serait plus seyant ...

l'égout ,les douleurs ???

 

[Usine à gaz]

Re-Pierre,
lol peux pas ! ça beugue dès l'ouverture

 

[Staple1600]

Bonsoir le fil

>•tatiak
Sur le fichier Suivi_Monde, lors de la 1ere ouverture du classeur, le Combox de choix des dates ne contient que le 30/03/2020.
Et j'ai cliqué sur Recup_Data, il y a plus de 10 minutes, et Excel mouline toujours, c'est normal, Docteur?

 

[VIARD]

Bonjour à tous

Pour suivre la pandémie au niveau mondial.
ncovid19.live
vue sur FuturaScience

A+ Jean-Paul

 

[sylvanu]

Bonjour tout le monde,
Tatiak, J'ai un bug à l'ouverture. Erreur d'exécution 438 sur la ligne :

.ComboBox1.List = Tdates

Impossible de trouver pourquoi. Y a t-il une référence à activer ?
Je suis sous XL2007.

 

[Staple1600]

Bonjour le fil, tatiak, arthour973, Modeste gee dee, VIARD, sylvanu

>tatiak
Juste une question de curiosité
Pourquoi quand tu boucles sur des numéros de ligne, tu "dimes" en Variant ? (et pas en Long)
J'ai changé pour voir en: Dim i As Long
Pas constaté de pis-aller ou de mieux aller d'ailleurs

PS/ Sur Excel 2013, pas de bug.
Je vais mettre un timer pour te dire en combien de temps RecupData fait son office sur mon PC.

 

[pierrejean]

Etant dans le rhone et surpris de ne pas avoir d'infos j'ai opéré une petite modif de la macro recup

Sub Recup_Data()
Dim Rcd As Object, Elm As Object, Fld As Object
Dim Chp As Variant, T As Variant, i As Integer, j As Integer
Dim tablo
Dim n As Integer
    Chp = Array("reg_code", "region_min", "dep_code", "nom_dep_min", "date", _
                "day_hosp", "day_intcare", "tot_out", "tot_death", "sex")
    
    On Error Resume Next
    Set Rcd = Obj_Rcdst(ActiveSheet.Range("A1").Value)
    ReDim T(1 To Rcd.nhits, 1 To 11)
    For Each Elm In VBA.CallByName(Rcd, "records", VbGet)
        i = i + 1
        Set Fld = VBA.CallByName(Elm, "fields", VbGet)
        For j = 0 To 10
            T(i, j + 1) = VBA.CallByName(Fld, Chp(j), VbGet)
        Next j
    Next Elm
 
    With Sheets("Data")
        .Range("A3:J10000").ClearContents
        .Range("A3").Resize(UBound(T, 1), UBound(T, 2)) = T
        .Range("A2:J" & UBound(T, 1) + 2).Sort key1:=Range("E2"), order1:=xlAscending, _
                             key2:=Range("J2"), order2:=xlAscending, Header:=xlYes
    End With
    Set Fld = Nothing
    Set Elm = Nothing
    Set Rcd = Nothing
    tablo = Sheets("Data").Range("D3:D" & Sheets("Data").Range("D" & Rows.Count).End(xlUp).Row)
    For n = LBound(tablo, 1) To UBound(tablo, 1)
       tablo(n, 1) = UCase(OteAccents(tablo(n, 1)))
    Next
    Sheets("Data").Range("D3:D" & Sheets("Data").Range("D" & Rows.Count).End(xlUp).Row) = tablo
End Sub

 

[Lolote83]

Bonjour à tous.
Chez moi, ça bug au démarrage ici mais aucune concéquence pour la suite

Très beau travail encore une fois monsieur Tatiak
@+ Lolote83

 

[Lolote83]

Re bonjour Tatiak, Pierre pour les intimes ....
Effectivement, j'ai dézippé le fichier et ensuite exécuté comme un fichier normal ....
@+ Lolote83

 

[Staple1600]

Re

Non, monsieur tatiak!
Il y a du Dim i As Variant dans le classeur Suivi Monde

 

[sylvanu]

Re,
Merci Tatiak pour la réponse.
Mais je suis sous PC I5 (Mac c'est mal, d'accord ), XL2007 Win10 64 bits, pas le dernier PC mais encore véloce.
Je sèche. Je vais continué à gratter.

 

[Staple1600]

Re

•>tatiak
???
Bah, le fichier je l'ai pourtant téléchargé sur ton site, hier.

Ceci dit ça ne change rien au temps long de traitement ...

PS: j'avais précisé pourtant

>tatiak
Juste une question de curiosité

 

[Eric C]

Bonsoir le forum
Bonsoir tatiak, bonsoir le fil

EXCELlent travail. Bonne soirée à toutes & à tous et maintenez le confinement.
@+ Eric c