Date: prev next · Thread: first prev next last
2024 Archives by date, by thread · List index


Bonjour,
Je ne sais pas si ça peut t'aider, mais pour ma part, j'utilise des variables "globales" (en Private) accessibles à toutes les macros de mon projet :
exemple :
REM Définition des variables du programme
    Private Mon_Document, Ma_Feuille, Ma_Selection, Ma_Cellule, Ma_Validation As Object
    Private Ma_Colonne, Ma_Ligne As Object
    Private Num_Colonne, Num_Ligne As Integer
    Private Eleve_1, Eleve_1_color, Eleve_1_Bk_color, Eleve_1_size, Eleve_1_bold As Variant
Cordialement

Nicolas Paour

Le 04/04/2024 à 21:13, linux a écrit :
Merci Claude,

pour cette piste je vais tester demain, pour l'instant j'ai contourné en supprimant l'Array et rentrant pas à pas la valeur dans le tableau

a bientôt

Jean-Luc

Le 04/04/2024 à 18:40, prog.amateur@free.fr a écrit :
Voici le lien
https://help.libreoffice.org/latest/fr/text/sbasic/shared/03104200.html


Le 04/04/2024 à 18:00, linux a écrit :
Bonjour à Toutes et Tous,

j'ai une incohérence avec une Array et un ReDim Preserve dans une macro basic

j'augmente bien la dimension du tableau mais il se vide et je ne transfert pas la valeur

si quelqu'un a un début de piste je suis preneur

ci-joint le bout de programme

REM  *****  BASIC  *****

Option Explicit

Sub TraitementCLG
 Dim NomCapteurTDCLG(0 To 5) As String


  NomCapteurTDCLG = Array("0","1","Erreur","Information0","Information1","IMPCTX0002_1","IMPCTX0002_2","IMPCTX0002_3","TEMINT0001_t1")
        Print ("Nom Capteur non traité " & "TEMINT0002_t1")
        Xray NomCapteurTDCLG
        'ReDim Preserve NomCapteurTDCLG(0 To (UBound(NomCapteurTDCLG)+1)) As String         ReDim Preserve NomCapteurTDCLG((UBound(NomCapteurTDCLG)+1)) As String
        Xray NomCapteurTDCLG

        NomCapteurTDCLG(UBound(NomCapteurTDCLG))= "TEMINT0002_t1"
        Xray NomCapteurTDCLG



End Sub

Merci par avance de vos réponses

Cordialement

Jean-Luc

LibreOffice 6.4.6.2

Windows

Processeur    Intel(R) Core(TM) i3-4130 CPU @ 3.40GHz   3.40 GHz
Mémoire RAM installée    4,00 Go (3,82 Go utilisable)
ID de périphérique    106AB00C-970D-445F-BA4B-0077A545E102
ID de produit    00330-80000-00000-AA975
Type du système    Système d’exploitation 64 bits, processeur x64

Édition    Windows 10 Professionnel
Version    22H2
Installé le    ‎04/‎08/‎2020
Build du système d’exploitation    19045.2728
Expérience    Windows Feature Experience Pack 120.2212.4190.0





--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com

--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.