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

Résolu/Fermé
Guy72 Messages postés 924 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 27 septembre 2024 - Modifié le 5 déc. 2018 à 19:33
OOoForum Messages postés 3871 Date d'inscription jeudi 20 mars 2008 Statut Membre Dernière intervention 10 juin 2024 - 6 déc. 2018 à 14:55
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
A voir également:

3 réponses

OOoForum Messages postés 3871 Date d'inscription jeudi 20 mars 2008 Statut Membre Dernière intervention 10 juin 2024 960
6 déc. 2018 à 14:55
Multiplier les lignes ne permet pas de pêcher plus de poissons.
http://beaussier.com/sections/viewtopic.php?f=8&t=1582


.
3
Guy72 Messages postés 924 Date d'inscription dimanche 18 novembre 2007 Statut Membre Dernière intervention 27 septembre 2024 20
Modifié le 6 déc. 2018 à 13:42
Ça permet d'avoir plusieurs solutions
Et malgré tout ça, je n'arrive pas à avoir de solution.
Donc j'abandonne.
0