Bonjour,

Le 29/05/2017 à 11:10, angelosa a écrit :
Bonjour, j'ai converti un classeur excel sous libreoffice, des macros ne
fonctionnent plus dont une macro evenementielle BeforeDoubleclick, sous
excel je cliquais sur F1 apres avoir selectionné le mot cle a rechercher
pour avoir de l'aide mais sous libreoffice je ne trouve rien.
Voici la macro qui me permettait de changer la couleur de fond par
doubleclick
Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'If Target.Column = 1 Then
    Select Case Target.Interior.ColorIndex
    Case 4: Target.Interior.ColorIndex = xlNone 'vert > blanc
    Case 6: Target.Interior.ColorIndex = 38 'jaune > rose
    Case 3: Target.Interior.ColorIndex = 4 'rouge > vert
    Case 38: Target.Interior.ColorIndex = 3 'rose > rouge
    Case xlNone: Target.Interior.ColorIndex = 6 'blanc > jaune
    End Select
    Cells(Target.Row + 1, 1).Select
'End If
End Sub

J'ai l'erreur suivante
Une erreur de structure de script s'est produite lors de l'exécution du
script VBAProject.Feuil1.Worksheet_BeforeDoubleClick de Basic.
Message : wrong number of parameters!


À première vue -- et sans explorer plus avant votre Sub --, et compte tenu du message d'erreur que vous recevez, je supprimerais le deuxième paramètre dans la déclaration, de façon à avoir :

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range)

Tenez-nous au courant.

PS : Si j'ai bien compris, vous voulez changer la couleur d'arrière-plan d'une cellule par double-clic sur cette cellule ?
En fonction de quoi cette couleur est-elle établie ?
Un formatage conditionnel ne permettrait-il pas de réaliser la même action ?

Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux


--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à 
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne 
pourront pas être supprimés

Répondre à