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

Bonjour,
J'avais eu ce problème une fois et c'est parce que la fonction Array 
renvoie un variant. Donc soit tu types ton tableau en variant soit tu ne 
le types pas et cela fonctionne.
Claude

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

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