Erreur 9

le message d'erreur dit l'indice ne correspond pas à la sélection. Autant pour moi c'est nb au lieu de id

j'ai mis Option Base 1 au début de la feuille de calcul

avec les structures suivantes

'Structures pour la supervision

Type dataTab_sup
    localisation As String
    type_sup As String
    ipAddr As String
    numLicense As String
    memPhi As String
    dateAcqui As String
    dd As String
    os As String
    resEcran As String
    printer As String
End Type
Type local_sup
    dataTab() As dataTab_sup
End Type
Type batiment_sup
    id As Integer
    locals() As local_sup
End Type

'Structures pour l'automation

Type dataTab_aut
    type As String
    ip As String
    tension As String
    obs As String
End Type
Type armoire
    dataTab() As dataTab_aut
End Type
Type local_aut
    arms() As armoire
End Type
Type batiment_aut
    locals() As local_aut
End Type
Public bat0_aut As batiment_aut
Public bat0_sup As batiment_sup

Donc avec vos remarques j'en déduit que je devais faire ceci mais cela ne fonctionne toujours pas j'ai la même erreur au même endroit

 'Déclaration et initialisation des structures batiments
    Dim i As Integer
    'boucle initialisation
    ReDim bat0_sup.locals(1)
    ReDim bat0_aut.locals(1)
    ReDim bat0_aut.locals.arms(1)
    For i = 1 To 2
        ReDim bat0_sup.locals(1).dataTab(i)
        ReDim bat0_aut.locals(1).arms(1).dataTab(i)
        bat0_sup.locals(1).dataTab(i).localisation = "0"
        bat0_sup.locals(1).dataTab(i).type_sup = "0"
        bat0_sup.locals(1).dataTab(i).ipAddr = "0"
        bat0_sup.locals(1).dataTab(i).numLicense = "0"
        bat0_sup.locals(1).dataTab(i).memPhi = "0"
        bat0_sup.locals(1).dataTab(i).dateAcqui = "0"
        bat0_sup.locals(1).dataTab(i).dd = "0"
        bat0_sup.locals(1).dataTab(i).os = "0"
        bat0_sup.locals(1).dataTab(i).resEcran = "0"
        bat0_sup.locals(1).dataTab(i).printer = "0"
        bat0_aut.locals(1).arms(1).dataTab(i).type = "0"
        bat0_aut.locals(1).arms(1).dataTab(i).ip = "0"
        bat0_aut.locals(1).arms(1).dataTab(i).tension = "0"
        bat0_aut.locals(1).arms(1).dataTab(i).obs = "0"
    Next i
    
    'Gestion du nombre de batiments
    bat0_sup.id = 1
    bat0_aut.id = 1
   

Bonjour,
J'aurai du complete mon info hier.
Dans le cas de definition par type, vous devez definir directement vos tableaux, le redim ne marche pas. Exemple ci-dessous

Option Base 1
Type dataTab_sup
    localisation As String
    type_sup As String
    ipAddr As String
    numLicense As String
    memPhi As String
    dateAcqui As String
    dd As String
    os As String
    resEcran As String
    printer As String
End Type
Type local_sup
    dataTab(2) As dataTab_sup
End Type
Type batiment_sup
    id As Integer
    locals(2) As local_sup
End Type

'Structures pour l'automation

Type dataTab_aut
    type As String
    ip As String
    tension As String
    obs As String
End Type
Type armoire
    dataTab(2) As dataTab_aut
End Type
Type local_aut
    arms(2) As armoire
End Type
Type batiment_aut
    locals(2) As local_aut
End Type
Public bat0_aut As batiment_aut
Public bat0_sup As batiment_sup

Sub test()
 'Déclaration et initialisation des structures batiments
    Dim i As Integer
    'boucle initialisation
    For i = 1 To 2
        bat0_sup.locals(1).dataTab(i).localisation = "0"
        bat0_sup.locals(1).dataTab(i).type_sup = "0"
        bat0_sup.locals(1).dataTab(i).ipAddr = "0"
        bat0_sup.locals(1).dataTab(i).numLicense = "0"
        bat0_sup.locals(1).dataTab(i).memPhi = "0"
        bat0_sup.locals(1).dataTab(i).dateAcqui = "0"
        bat0_sup.locals(1).dataTab(i).dd = "0"
        bat0_sup.locals(1).dataTab(i).os = "0"
        bat0_sup.locals(1).dataTab(i).resEcran = "0"
        bat0_sup.locals(1).dataTab(i).printer = "0"
        bat0_aut.locals(1).arms(1).dataTab(i).type = "0"
        bat0_aut.locals(1).arms(1).dataTab(i).ip = "0"
        bat0_aut.locals(1).arms(1).dataTab(i).tension = "0"
        bat0_aut.locals(1).arms(1).dataTab(i).obs = "0"
    Next i
    
    'Gestion du nombre de batiments
    bat0_sup.id = 1
    bat0_aut.id = 1
   
End Sub

je ne connais pas le nombre de cases que comportera le tableau à l'avance comment faire ?

Bonjour,

En utilisant une variable qui servira d'index du tableau et de redimensionner le tableau au fur et à mesure avec l'instruction:

ReDim Preserve monTab(index)

ça je le met où dans le code ? dans le Type ?

C'est pas très propre mais si j'ai pas le choix ....

Re,

J'ai trouve, ce n'est pas le redim qui pose probleme, c'est vos declarations de variables. J'ai retester redim sur des declarations de variable type end type et ca marche (heureusement, c'est fait pour). Je regarde de plus pres vos declarations de variables type, il faut peut-etre simplifie.

A+

c'est quoi le problème dans mes déclarations dans ce cas ?

Bonsoir F894009,

J'ai déjà employé cette forme, mais en fait ce n'est pas la structure, qui est un Type de variable, que l'on redimensionne mais le tableau du type de la structure.

Bonjour Polux31,

Sur une déclaration simple, c'est ok, mais la c'est une succession de définition en tableaux (trois niveaux). C'est la seule solution que j'ai trouve, parce qu'en général dans ce genre de définition type end type les dimensions des tableaux sont écrites directement (c'est ce que je fais).

Bye

dans ce cas même problème avec locals que j'ai remplacé par local_s et local_a même chose effectivement pour dataTab dataTab_s et dataTab_a. il n'y a qu'une seule armoire qu'un seul local donc on aurait le code suivant :

'Redimensionnement des tableaux
    For x = 1 To i
        ReDim Preserve bat0_sup.local_s(x).dataTab_s(i)
        ReDim Preserve bat0_aut.local_a(x).arms(x).dataTab_a(i)
    Next x
    'Initialisation des structures
    For j = 1 To 2
        bat0_sup.local_s(1).dataTab_s(j).localisation = "0"
        bat0_sup.local_s(1).dataTab_s(j).type_sup = "0"
        bat0_sup.local_s(1).dataTab_s(j).ipAddr = "0"
        bat0_sup.local_s(1).dataTab_s(j).numLicense = "0"
        bat0_sup.local_s(1).dataTab_s(j).memPhi = "0"
        bat0_sup.local_s(1).dataTab_s(j).dateAcqui = "0"
        bat0_sup.local_s(1).dataTab_s(j).dd = "0"
        bat0_sup.local_s(1).dataTab_s(j).os = "0"
        bat0_sup.local_s(1).dataTab_s(j).resEcran = "0"
        bat0_sup.local_s(1).dataTab_s(j).printer = "0"
        bat0_aut.local_a(1).arms(1).dataTab_a(j).type = "0"
        bat0_aut.local_a(1).arms(1).dataTab_a(j).ip = "0"
        bat0_aut.local_a(1).arms(1).dataTab_a(j).tension = "0"
        bat0_aut.local_a(1).arms(1).dataTab_a(j).obs = "0"
    Next j

Qui ne fonctionne pas ...

Re,

Avez-vous regarde le code que j'ai utilise pour redimensionner les tableaux !!!!!!!!!!!

Oui mais votre code comporte plusieurs armoires et plusieurs locals tant dit qu'il y a 1 armoire et un local donc le code se simplifie en celui que j'ai posté précédemment

Re,
s'il n'y a qu'un local et une armoire, pourquoi vous utilisez des tableaux ?????

parce que ce sont les deux structures de base... Par la suite, j'utiliserais les types défini convenablement pour le moment je voulais savoir comment avoir accès à justement une donnée de cette structure de base ...