Re: [fr-users] pb conversion macros excel

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+unsubscribe@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