Discussion :

[bassiste]

Salut
J'ai un tableau à remplir au fur et à mesure, mais j'ai besoin de savoir à partir de quelle position pour ne pas écraser les données déjà présentes.

Pour info, je ne dois pas utiliser de base de données pour ce projet.
Je récupère chaque nouvelle valeur d'un textbox, que j'insère dans une listbox, et j'affecte toutes les valeurs de la listbox dans le tableau. C'est quand je recommence cette action que j'écrase les données du tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'Déclarations
Public TabNouvellesVilles(1 To MaxNbVilles) As String
Dim i As Integer
Dim nb_nouv_villes As Integer

'Calcul du nombre de villes
nb_nouv_villes = lst_nouvelles_villes.ListCount

' Si le tableau est vide
If TabNouvellesVilles(1) = "" Then
   For i = 1 To nb_nouv_villes
      TabNouvellesVilles(i) = lst_nouvelles_villes.List(i)
   Next i

'Si le tableau n'est pas vide
ElseIf TabNouvellesVilles(1) <> "" Then
   For i = ? To ? + nb_nouv_villes
      TabNouvellesVilles(i) = lst_nouvelles_villes.List(i)
   Next i
End If

Merci

[AnneCa]

Que penses-tu de ça??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim i,j as Long
Dim premiereplacelibre as Long
'Etape1: retrouver la position de la première cellule vide
premiereplacelibre = 0
For i = 0 To nb_nouv_villes - 1
      if trim(lst_nouvelles_villes.List(i)) = '"" then
          premiereplacelibre  = i
          exit for
      end if
   Next i
'Etape2: remplir le tableau
For j = 0 To nb_nouv_villes -1
      TabNouvellesVilles(j+premiereplacelibre ) = lst_nouvelles_villes.List(i)
Next i

Petite remarque: revérifie plutôt 2 fois qu'une les index

[Mr NGANZI]

eclaircis nous un peu. est ce que ce que tu veux c'est recopier tous les elements de la listbox vers un tableau?

[bassiste]

AnneCa merci mais t'aurai pu expliquer aussi, tu cherche la dernière position de la listbox il me semble, mais je remet à zéro pr ne pas insérer les memes valeurs. Je voulais juste savoir si on pouvait compter le nbre de valeurs qu'il y a dans un tableau ou un truc du genre.. tu as compris mtn Mr NGANZI?

[ProgElecT]

compter le nbre de valeurs qu'il y a dans un tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim MeTableau() As String
ReDim MeTableau(3 To 10)
MsgBox "indice bas: " & LBound(MeTableau) & _
    "   indice haut: " & UBound(MeTableau) & vbCrLf & _
    "Nombre d'indice : " & UBound(MeTableau) - LBound(MeTableau) + 1

si j'ai compris ce que tu voulais dire par valeurs

[bassiste]

tu as pensé que je cherchais le nombre maximum d'élément que je peux insérer dans le tableau? qui est si simple à trouver acec ubound ? dans ton exemple ça va renvoyer 10 MAIS si le tableau contient que 4 valeurs/données je veux trouver 5 !

[AnneCa]

Hello!
Je dirais que le nombre de valeurs dans le tableau est la valeur de ma variable premièreplacelibre -1 càd

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Total = premiereplacelibre -1

[iclic]

Bonjour Bassiste,

Tu peux te servir de l'indice '0 de ton tableau pour garder la valeur du dernier indice ajouté dans ton tableau.
J'explique et voir les rem

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
'Déclarations
 
'1 d'abord mettre un indice '0 à ton tableau
Public TabNouvellesVilles(0 To MaxNbVilles) As String
 
'2 et ajouter une nouvelle variable j
Dim i, j As Integer
Dim nb_nouv_villes As Integer
 
'3 initialiser l'indice '0 de ton tableau
TabNouvellesVilles(0) = "0"
 
'Calcul du nombre de villes
nb_nouv_villes = lst_nouvelles_villes.ListCount
 
' Si le tableau est vide ,tu trouves la valeur 0 dans l'indice '0 du tableau
If Val(TabNouvellesVilles(0)) = 0 Then
   For i = 1 To nb_nouv_villes
 
      '4 chercher l'indice du tableau dans l'indice '0 du tableau
      j = Val(TabNouvellesVilles(0)) + 1
      TabNouvellesVilles(j) = lst_nouvelles_villes.List(i)
 
      '5 mettre la nouvelle valeur dans l'indice 0 du tableau
      TabNouvellesVilles(0) = Str(j)
   Next i
    'Si le tableau n'est pas vide...un simple 'else suffit
          Else
   For i = 1 To nb_nouv_villes
 
      '6 chercher l'indice du tableau dans l'indice '0 du tableau
      j = Val(TabNouvellesVilles(0)) + 1
      TabNouvellesVilles(j) = lst_nouvelles_villes.List(i)
 
      '7 mettre la nouvelle valeur dans l'indice '0 du tableau
      TabNouvellesVilles(0) = Str(j)
   Next i
End If

[bassiste]

merci pr vos réponses