Discussion :

[DenisHen]

Bonjour à la communauté.

Voilà, je suis passé à Linux et LibreOffice 5.0.6.3. Je reprend donc toutes mes routines faites sous Excel en VBA, mais là, je tombe sur un os, impossible de trouvé quelque-chose qui remplacerait InStr... Pour l'instant, j'ai un dernier PC sous Windows 8 avec MSOffice sur lequel je fais mes "conversion"...

Si quelqu'un a une astuce, un conseil ou une idée, je suis preneur...

[jurassic pork]

hello,
la fonction InStr existe bien aussi sous LibreOffice ooobasic ( essayé sous UBUNTU LibreOffice 5.1.1.2) et fonctionne. Mets-tu une option particulière au début de ton code (du genre Option VbaSupport 1) ? Peux-tu nous montrer ton code ?

Ami calmant, J.P

[zoom61]

Salut,

Je confirme ce que dit @jurassic pork la fonction InStr fonctionne de la même façon dans oBasic que dans VBA.

Cdlt.

[DenisHen]

Bonjour à tous et merci pour vos réponses.

Je n'ai rien trouvé dans l'aide de LibO sur InStr, c'est pour cela que je pensais qu'elle n'existait pas.

Voici mon Code qui colore une cellule selon le code couleur (0 à 255) qu'elle contient. Elle fait référence à une feuille qui comporte toutes les couleurs :

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
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub ChangeCouleur
    'Application.EnableEvents = False
    'Dim FCible As ThisComponent.getSheets, FSource As sheets, Lign As Integer
    Dim Couleur, r, g, b As Integer
    Dim oDoc as object
    Dim oFeuilles as Object    
    Dim FCible As object ' com.sun.star.sheet.
    Dim FSource As object 'com.sun.star.sheet.XSpreadsheet
    Dim Plage as object
 
    oDoc = ThisComponent
    oFeuilles = oDoc.Sheets
    'uneFeuille = lesFeuilles.getByName("Feuille1")
 
 
    FCible =oFeuilles.getByName("Calques")
    FSource = oFeuilles.getByName("CouleurRGB")
    Lign = 2
 
    Do While FCible.getCellByPosition(Lign, 1).getValue() <> ""
        If FCible.getCellByPosition(Lign, 1).getValue()<>FCible.getCellByPosition(Lign, 2).getValue() Then
            If InStr(Cells(Lign, 2), ",") = 0 Then
                Couleur = FCible.Cells(Lign, 2).Value
                If Couleur <= 0 Or Couleur > 255 Then Application.EnableEvents = True: Exit Sub
                r = FSource.Cells(Couleur, 2)
                g = FSource.Cells(Couleur, 3)
                b = FSource.Cells(Couleur, 4)
                FCible.Cells(Lign, 2).Interior.Color = RGB(r, g, b)
                FCible.Cells(Lign, 3).Value = "&H" & Hex(FCible.Cells(Lign, 2).Interior.Color)
            Else
                chaine$ = Cells(Lign, 2)
                r = Left(chaine$, InStr(chaine$, ",") - 1)
                chaine$ = Right(chaine$, Len(chaine$) - InStr(chaine$, ",")):
                g = Left(chaine$, InStr(chaine$, ",") - 1)
                chaine$ = Right(chaine$, Len(chaine$) - InStr(chaine$, ",")):
                b = chaine$
                FCible.Cells(Lign, 2).Interior.Color = RGB(r, g, b)
            End If
        End If
        Lign = Lign + 1
    Loop
End Sub

Le message s'arrête à la ligne 22 et est :

Erreur d'exécution BASIC.
Sous-procédure ou procédure de fonction non définie

Encore merci à vous...

PS : après relecture, c'est peut-être le Cells qui "déconne"... Non ?

[Jipété]

PS : après relecture, c'est peut-être le Cells qui "déconne"... Non ?

Pitêtre pitêtre... Car en effet, sur ta ligne 22 comment le BASIC peut-il savoir si Cells se rapporte à FCible ou à FSource, mmmh ?

[DenisHen]

Effectivement, je suis en train de réécrire tout mon code...

Merci encore à vous...