Menu

Compléter les lignes absentes dans "LibreOffice -Calc"

Messages postés
490
Date d'inscription
dimanche 18 novembre 2007
Dernière intervention
6 décembre 2018
-
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

Le code pour Excel est le suivant :

Sub RétablirLignesManquantes()
Dim lgn, n&, i&, j%, k%, t&, dt&
With Worksheets("Récupération 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


Mais comment faire avec "LibreOffice-Calc" ?
Voici une capture du fichier.

Je ne vois pas comment mettre un fichier.

Merci de votre aide
Cordialement





Configuration: Windows 10, Google Chrome
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
3419
Date d'inscription
jeudi 20 mars 2008
Dernière intervention
6 décembre 2018
1
Merci
Multiplier les lignes ne permet pas de pêcher plus de poissons.
http://beaussier.com/sections/viewtopic.php?f=8&t=1582


.

Merci OOoForum 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM a aidé 32603 internautes ce mois-ci

Commenter la réponse de OOoForum
Commenter la réponse de OOoForum
Messages postés
490
Date d'inscription
dimanche 18 novembre 2007
Dernière intervention
6 décembre 2018
0
Merci
Ça permet d'avoir plusieurs solutions
Et malgré tout ça, je n'arrive pas à avoir de solution.
Donc j'abandonne.
Commenter la réponse de Guy72