LibeOffice calc condition date anterrieure
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!!!!
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
3 réponses
-
ContributeurBonjour.
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 !
-
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é. -
