Poser votre question

Profil de guy85 - activité

2019-04-15 00:21:55 +0200 médaille reçue  Question remarquable (source)
2019-04-15 00:21:55 +0200 médaille reçue  Question populaire (source)
2018-12-06 16:24:17 +0200 a commenté une réponse Lignes manquantes

Ok, je vais regarder ça. Merci de votre aide Effectivement, avec cette formule, (j'aurais du y penser) cela permet de r

2018-12-06 16:23:24 +0200 marquée comme meilleure réponse Lignes manquantes

Bonjour, Comment puis-je compléter les lignes manquantes en prenant celle du dessus ou du dessous. Ce qui doit faire au total 1440 lignes. Sur l'exemple, il manque plusieurs lignes. Voir, là ou il y a les cellules en jaunes

Fichier joint .csv pour LibreOfice https://www.cjoint.com/doc/18_12/HLfo...

Voici la macro qui est sur Excel

Sub Rétablir_LignesManquantes()
Dim lgn, n&, i&, j%, k%, t&, dt&
With Worksheets("Recuperation_des_donnees")
   n = .Cells(.Rows.Count, 1).End(xlUp).Row
   t = (.Cells(n, 2) \ 100) Mod 100 + (.Cells(n, 2) \ 10000) * 60
   Application.ScreenUpdating = False
   For i = n To 3 Step -1
      t = (1440 + t - 1) Mod 1440
      dt = (.Cells(i - 1, 2) \ 100) Mod 100 + (.Cells(i - 1, 2) \ 10000) * 60
      If dt <> t Then
         j = t - dt - 1: lgn = .Cells(i - 1, 1).Resize(, 62).Value
         .Range(.Cells(i, 1), .Cells(i + j, 1)).EntireRow.Insert
         For k = 0 To j
              .Cells(i + k, 1).Resize(, 62).Value = lgn
              .Cells(i + k, 2) = (((dt + k + 1) \ 60) * 100 + (dt + k + 1) Mod 60) * 100
         Next k
         t = dt
      End If
   Next i
End With
End Sub
2018-12-06 16:23:24 +0200 médaille reçue  Scolaire (source)
2018-12-06 10:28:24 +0200 a commenté une réponse Lignes manquantes

Ok, je vais regarder ça. Merci de votre aide

2018-12-06 08:23:40 +0200 a répondu à une question Lignes manquantes

Bonjour, Bonjour, 1) J'ai une station météo qui récupère les données de plusieurs sondes (Pression, température, humid

2018-12-05 19:00:20 +0200 a posé une question Lignes manquantes

Lignes manquantes Bonjour, Comment puis-je compléter les lignes manquantes en prenant celle du dessus ou du dessous. Ce