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

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