> Tous les forums > Forum Bureautique
 Macro - LibreOffice
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Saturnien
  Posté le 04/12/2018 @ 17:43 
Aller en bas de la page 
Astucien

Bonjour
Est-il possible d'utiliser une macro d'Excel dans LibreOffice (ou de la modifiée) ? Voici le code 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

Merci de votre aide

Publicité
poussebois
 Posté le 04/12/2018 à 17:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Bonjour ,

Il n'y a pas compatibilité entre les macros d'Excel qui utilise le langage VBA et celles de Calc qui utilise le langage Ooo.

Pour faire sous Ooo ce que fait VBA, il faut tout réécrire

@ +

Papibois
 Posté le 05/12/2018 à 09:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

merci à toi Poussebois pour cette info qui m'explique clairement le problème que je n'ai pas réussi à régler la semaine dernière !

Saturnien
 Posté le 12/12/2018 à 13:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

D'accord

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
In-serrer un titre avec LibreOffice calc
Macro VBa copier /coller dans autre feuille a modifier ??
Lancer macro automatiquement à chaque modif cellule
fusionner des cellules par macro
modifie une macro
Petit macro qui ne fonctionne pas
Macro
Macro %
Dernière partie macro ne fonctionne pas
libreoffice
Plus de sujets relatifs à Macro - LibreOffice
 > Tous les forums > Forum Bureautique