Discussion :

[Guijack]

Bonjour
je suis nouveau sur ce site*.

Voici mon problème sous Libre office Calc

J'essaye de créer un fichier pour la gestion de plusieurs véhicules.

Je n'arrive pas à trouver la formule qui a inscrire dans les cellules «*Kilométrage précédent*»
pour être plus explicite voici un exemple

A1 B1 C1 D1
Date immatriculation km compteur km précédent

01/01/15 aaaaa 600 600 ← donnée création fichier
01/02/15 bbbbb 900 900 ← donnée création fichier
03/01/15 aaaaa 1000 ? (doit indiquer 600)
04/01/15 bbbbb 1500 ? (doit indiquer 900)
07/01/15 aaaaa 1900 ? (doit indiquer 1000)
09/01/15 bbbbb 2300 ? (doit indiquer 1500)

Pour résumer, trouver la dernière valeur maxi saisie dans colonne C1 la reporter dans colonne D1 en prenant en compte la valeur saisie dans B1

j’espère avoir été clair dans mes explications

Merci de vos conseils

[zoom61]

Voici une fonction qui fait ce que tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function DerniereValeur()
    Dim maCellule1 As Object, maCellule2 As Object, maFeuille As Object
    Dim i As Integer, ValPos As Integer, VoitureIni As String
 
    'Sélectionner la feuille en cours
    maFeuille = ThisComponent.CurrentController.ActiveSheet
 
    'Sélectionner la position de la cellule en cours
    maCellule1 = ThisComponent.CurrentSelection
    ValPos = maCellule.CellAddress.Row
 
    'Test si on est sur la première ligne
    if ValPos = 1 Then Exit Function
 
    'Enregistre le nom de la voiture
    maCellule1 = maFeuille.getCellByPosition(1,ValPos) 
    VoitureIni = maCellule1.String
 
    'Test les lignes qui précèdent
    For i = ValPos - 1 to 1 step -1
        maCellule2 = maFeuille.getCellByPosition(1,i)
        'Si les deux voitures sont identiques, récupère le kilométrage et l'ajoute dans la colonne D
        If VoitureIni = maCellule2.String Then
            maCellule1 = maFeuille.getCellByPosition(3,ValPos)
            maCellule2 = maFeuille.getCellByPosition(2,i)
            maCellule1.Value = maCellule2.Value
            Exit Function
        End If
    Next
End Function

[Guijack]

MERCI ZOOM 61

JE VAIS ESSAYER TA MACRO

J'avais trouvé une macro qui malheureusement ne fonctionne que sous Excel

La voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    nom = Target
    [A2:C1000].Sort key1:=[A2]
    [A:A].Find(what:=nom).Select
  End If
End Sub

elle permet un tri automatique des immatriculations en colonne A
j'aurais aimé que cette macro tri en ensuite les dates en colonne B tout en conservant le classement du 1er tri .

De même est-il possible de convertir cette macro pour l'utilisation sous libreoffice calc

je suis néophyte (voir ignare en macro)

Cordialement

[Guijack]

BONJOUR ZOOM61
j'ai essayé la macro que tu m'as proposé

lorsque je veux l’exécuter j'ai un message d'erreur

erreur d’exécution du BASIC
variable d'objet non définie


et la ligne ci-dessous en surbrillance
ValPos = maCellule.CellAddress.Row

a part une macro, y a t-il une formule avec fonction (EQUIV, SI , max) pour gérer mon problème

cordialement

[zoom61]

j'ai essayé la macro que tu m'as proposé

lorsque je veux l’exécuter j'ai un message d'erreur

erreur d’exécution du BASIC
variable d'objet non définie


et la ligne ci-dessous en surbrillance
ValPos = maCellule.CellAddress.Row

As-tu copié la fonction ou des morceaux ? Car cela fonctionne correctement, sous Win7 + LibreOffice et Ubuntu + LibreOffice. Quelle est la version de LibreOffice utilisée ?

a part une macro, y a t-il une formule avec fonction (EQUIV, SI , max) pour gérer mon problème

J'avais une fonction similaire, je l'ai modifié...

[Guijack]

Merci zoom61 pour ta réponse

J'utilise LibreOffice 4.3 et Windows 7

J'ai pourtant "sélectionner tout" sur ce site et copier dans Outil -Macro - Gérer les macro LibreOffice Basic

Dans Options - LibreOffice - Avancé : Activer les fonctions expérimentales et activer l'enregistreur de Marco (Limite) sont cochésE) SONT COCHÉS

Mais comme je te l'ai dit, je suis néophyte en Macro

Cordialement

et merci pour ton aide