LibeOffice calc condition date anterrieure

Fermé
dic - 1 janv. 2022 à 12:23
trotte-menu Messages postés 838 Date d'inscription dimanche 8 novembre 2020 Statut Membre Dernière intervention 10 avril 2025 - 2 janv. 2022 à 09:48
Bonjour,

Nouveau sur le forum, j’espère être au bon endroit pour demander de l'aide ?

Je suis passé de Windows a Linux et donc d'Excel a LibreOffice 7.2, et j’essaie de rapatrier une macro qui me permettait de suivre mon budget personnel.
N’étant pas très calé en Basic je fait du coup par coups.

Aujourd’hui je bute sur la comparaison de date.
Dans ma macro de devais sélectionner la cellule correspondante au moi si la date enregistré dans la variable "jour" était inférieure a celle indique dans la cellule suivante pour chaque mois de l'année :

MsgBox jour
If jour < "01/02/2021" Then ' recherche du mois en cours
ActiveCell.Offset(0, 1).Select
ElseIf jour < "01/03/2021" Then
ActiveCell.Offset(0, 2).Select

............
ElseIf jour < "01/01/2022" Then
ActiveCell.Offset(0, 12).Select
Else: MsgBox "Erreur de Saisie!date"

Mais cette commande qui marchait sous Excel ne semble pas fonctionner sous Libreoffice

J'ai essayer de change le format de la date (2021-03-01) mais ça n'a rien changé.

Si quelqu’un peut m'expliquer ou m'orienter pour trouver la solution

PS : meilleur vœux pour 2022!!!!



Configuration: Linux / Firefox 95.0
A voir également:
  • LibeOffice calc condition date anterrieure
  • Libeoffice - Télécharger - Suite bureautique

3 réponses

Raymond PENTIER Messages postés 58922 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 9 avril 2025 17 310
1 janv. 2022 à 15:33
Bonjour.

D'après le peu que j'en sais, VBA pour Calc n'est pas identique à VBA pour Excel.
Rapatrier une macro me semble donc improbable !
0
Merci,

La première partie de la macro fonctionne bien.
J'ai du modifier quelques lignes pour passer un fichier à un autre. En fait j'ai modernisé ma macro en changeant d'onglet
j'ai remplacé :

Windows("BUDGET.xls").Activate

par

Feuille = ThisComponent.Sheets(1)
ThisComponent.CurrentController.ActiveSheet = Feuille.

Et je crois qu'il me reste plus qu'a résoudre mon problème de date

et pour finir

récupérer la valeur contenue dans une cellule pour lui additionner une variable

et le tour sera joué.
0
trotte-menu Messages postés 838 Date d'inscription dimanche 8 novembre 2020 Statut Membre Dernière intervention 10 avril 2025 312
2 janv. 2022 à 09:48
0