Compléter les lignes absentes dans "LibreOffice -Calc"
Résolu
Guy72
Messages postés
1048
Statut
Membre
-
OOoForum Messages postés 4148 Statut Membre -
OOoForum Messages postés 4148 Statut Membre -
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 :
Mais comment faire avec "LibreOffice-Calc" ?
Voici une capture du fichier.

Je ne vois pas comment mettre un fichier.
Merci de votre aide
Cordialement
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:
- Évariste souhaite télécharger le logiciel libreoffice depuis le site de son éditeur. sélectionnez le résultat de recherche sur lequel il doit cliquer.
- Site de telechargement - Accueil - Outils
- Télécharger clavier arabe - Télécharger - Divers Web & Internet
- Logiciel de sauvegarde gratuit - Guide
- Éditeur de vidéo windows - Guide
- Site de partage de photos - Guide
3 réponses
Multiplier les lignes ne permet pas de pêcher plus de poissons.
http://beaussier.com/sections/viewtopic.php?f=8&t=1582
.
http://beaussier.com/sections/viewtopic.php?f=8&t=1582
.
Question postée un peu partout sur le net :
https://ask.libreoffice.org/fr/question/175189/lignes-manquantes/
https://forum.openoffice.org/fr/forum/viewtopic.php?f=4&t=59385
https://www.developpez.net/forums/d1919102/logiciels/logiciels-libres-open-source/bureautique/openoffice-libreoffice/rechercher-lignes-manquantes/
https://ask.libreoffice.org/fr/question/175189/lignes-manquantes/
https://forum.openoffice.org/fr/forum/viewtopic.php?f=4&t=59385
https://www.developpez.net/forums/d1919102/logiciels/logiciels-libres-open-source/bureautique/openoffice-libreoffice/rechercher-lignes-manquantes/