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


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


--
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.