Discussion :

[Sebphyto]

Bonjour à tous,

Bon j'ai un souci, je ne trouve pas comment faire ceci et j'ai cherché mais en vain

J'ai un tableau dimensionné comme cela

Code :

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

tablo(1 To 22)

Dans une boucle je renseigne mon tableau automatiquement
Selon avec quoi je le renseigne il peut n'y avoir que 19 variables de remplie

Comment faire pour qu'il redimensionne le tableau en fonction de ce qu'il comporte?

De plus, ce tableau comporte des liens (url), qui me servent par la suite à ouvrir des pages web et récupérer des données
Je "navigue" dans tablo de 1 à 22 par le biais d'une boucle for/next, mais lorsque j'arrive à tablo(20), j'ai une erreur évidemment parce qu'il n'y a rien dans la variable.

Ce tablo sert également à redimensionner un autre tableau, mais je n'ai pas la syntaxe
c surement avec

Code :

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

Ubound

par la suite qu'il faut gérer çà.

Merci d'avance pour votre éclaircissement
Seb

[Philippe Tulliez]

Bonjour,
A lire Utiliser les variables tableaux en VBA Excel et éventuellement Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

[Sebphyto]

Merci Philippe pour ces liens, je connaissais bien évidemment le 1er...mais pas le deuxième qui est fort intéressant...

Par contre, je ne dois certainement pas saisir quelque chose!!!!

j'ai mon tablo(1 to 22)
donc 22 lignes dedans

Je remplis seulement 19 lignes (valeur dans l'espion)

donc j'ai 3 lignes vides

c'est là que je bloque, je souhaite redimensionner mon tablo en (1 to 19) automatiquement versus (1 to 22) en fonction de ce qui s'y trouve???

Cela me parait si simple....mais....


seb

[joe.levrai]

Bonjour,

si tu dimensionnes un tableau lors de sa déclaration (Dim MonTablo(X to Y)) c'est un tableau figé qui n'est pas variable, tu ne peux pas le Redim


tu as deux solutions pour ton cas :

1) si tu conserves un tableau dimensionné dans sa déclaration : tu utilises une variable initialisée à Lbound-1 de ton tableau (0 donc dans ton exemple) et à chaque ajout tu incrémentes la variable.

A la fin de l'alimentation, tu connais la position du dernier élément ajouté : tu parcours ton tableau avec une boucle For i = Ubound(MonTablo) to 'la variable'

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
Sub toto()
Dim MonTablo(1 To 22)
Dim Cpt As Integer
 
Cpt = LBound(MonTablo) - 1
 
For i = 1 To 20
    MonTablo(i) = i
    Cpt = Cpt + 1
Next i
 
For i = LBound(MonTablo) To Cpt
    Debug.Print MonTablo(i)
Next i
 
MsgBox "il y a " & Cpt & " éléments dans votre tableau"
End Sub

2) tu peux déclarer un tableau variable (Dim MonTablo()) que tu redimensionnes à chaque ajout, un exemple parmi d'autres possibilités :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub toto()
Dim MonTablo(): ReDim MonTablo(1)
    For i = 1 To 20
        If UBound(MonTablo) = 1 Then
            MonTablo(1) = i
        Else
            ReDim Preserve MonTablo(UBound(MonTablo) + 1): MonTablo(UBound(MonTablo)) = i
        End If
    Next i
End Sub

[Sebphyto]

re,
Salut Joe,
Merci pour tout

Mais je viens de trouver, c tout simple....
en faite, j'ai obtenu la même chose que ton 2ème code....

MErci à vous
Seb