[fr-users] incohérence avec une Array et un ReDim Preserve dans macro basic

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