[Rés]Incrémentation, redimenssionnement, valeur d'une liste modifiable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Rés]Incrémentation, redimenssionnement, valeur d'une liste modifiable

rohffr

Bonjour,

J'ai les structure suivantes :

Code :

Type dataTab_sup
id As String
name As String
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
id As Integer
name As String
dataTab_s() As dataTab_sup
End Type
Type batiment_sup
id As Integer
name As String
local_s() As local_sup
End Type

A la suite je déclare la variable suivante :

Code :

Public tab_bat_sup() As batiment_sup

J'ai un formulaire que je vous joins
http://cjoint.com/?0Aeo5gXhzTT
Dans ce formulaire j'ai le code suivant :

Code :

Option Explicit
Public indice_bat As Integer
'Initialisation du formulaire
Private Sub UserForm_Initialize()
Dim cmp As Integer
On Error GoTo fin:
If UBound(tab_bat_sup) <> -1 Then
'Ajout dans la liste déroulante modifiable tous les batiments déjà créés
For cmp = 0 To UBound(tab_bat_sup)
bat_sup.AddItem tab_bat_sup(cmp).name, cmp
Next cmp
End If
fin:
End Sub
Private Sub Suivant_bat_sup_Click()
Unload Me
Loc_form_sup.Show
End Sub
Private Sub Ajouter_bat_sup_Click()
'Variable statique qui permet de savoir le numero du batiment que l'on souhaite ajouter
Static i As Integer
'Variable statique initialisée à 0
ReDim Preserve tab_bat_sup(i)
tab_bat_sup(i).id = i
tab_bat_sup(i).name = CStr(bat_sup.Value)
indice_bat = i
'Incrémentation du compteur
i = i + 1
End Sub

Le but de ce code est d'enregistrer les informations saisies dans la structure et d'ajouter les noms de bâtiments dans la liste modifiable.

Seulement voila ma variable i ne s'incrémente pas ! Impossible de redimensionner le tableau ! Impossible d'affecter la valeur saisie dans la liste !

Une variable statique est censée garder sa valeur à chaque appel de fonction cela ne veut pas dire que l'on ne peut pas y toucher --'. J'ai vu des exemples sur le forum qui me le prouve !

Merci d'avance

Cordialement

Winflow

Message édité par rohffr le 05-01-2014 à 18:32:15

Publicité

Marc L

Bonjour,

statique oui mais peut-être plus lorsque l'Userform est déchargé !

Tester Me.Hide à la place de Unload Me pour voir …

rohffr

Yes ! Comment fermer le formulaire sans perdre les données ? Parce que Hide ...

Marc L

Pour fermer définitivement c'est bien Unload …

Ouvrir la fenêtre des Variables locales puis placer un point d'arrêt et suivre le code et les variables via la touche F8
afin de comprendre comment fonctionne VBA …

rohffr

i passe bien de 0 à 1 et après cela me dit qu'elle est hors contexte ce qui est vrai puisqu'elle est interne à la fonction

rohffr

j'ai regardé avec ce que tu m'as dit, mais comme je l'ai dit plus haut i n'est visible que dans la fonction d'ajout ...

Marc L

Oui tout à fait normal comme elle est déclarée à l'intérieur de la procédure …

Si cette variable i ne sert qu'à redimensionner la variable tableau d'après le peu de code posté,
en fait, avec quelque peu de logique, elle n'est absolument pas nécessaire ‼

Une piste ? Regarder du côté de la fonction UBound par exemple …

rohffr

la variable i sert à savoir combien de fois on passe dans cette fonction et combien il y a de batiments je pense qu'elle est tout à fait nécessaire pour savoir où j'en suis dans les ajouts et seulement dans un second temps elle me sert à redimensionner mon tableau ...

Marc L

En clair, d'une manière générale, pour incrémenter la dimension d'un tableau il n'y a pas besoin de variable
vu que sa dimension est connue …

rohffr

je pense avoir réglé mon problème en utilisant une variable globale (pas bien) si jamais cela ne fonctionne pas comme je l'espérais j'utiliserais la technique du Ubound()+1 que tu m'as suggéré

Publicité

rohffr

en tout cas merci beaucoup =)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Rés]Incrémentation, redimenssionnement, valeur d'une liste modifiable

Sujets relatifs
[Mysql] Modification d'une partie d'une valeur	Copier une partie d'une liste doublement chaînée
Liste de puces sur un blog : personnalisation	Garder en mémoire une liste déroulante
Enregistrer telle quelle la valeur d'un JPasswordField dans la BD	[Résolu] Détecter le sens de parcours d'une liste de coordonnées
Écrire dans un txt depuis un formulaire et incrémentation	Afficher une Liste.
Sumif avec intervalle de valeur	Problème Scrit qui liste les fichiers
Plus de sujets relatifs à : [Rés]Incrémentation, redimenssionnement, valeur d'une liste modifiable

Page générée en 0.055 secondes