Tableau avec variables

**FreshTrading** · 23/09/2018, 12h21

Bonjour à tous,

Je souhaite sous VBA créer un Array avec le nombre de ligne et de colonne demandé à l'utilisateur, et ensuite remplir ce tableaux par des nombre aléatoires. Voici mon code qui ne fonctionne pas:
Cela m'indique "constante expression required"

Code :

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

1
2
3
4
5
6
Dim nrow As Integer
Dim ncol As Integer
nrow = InputBox("Type number of rows")
ncol = InputBox("Type number of columns")
Dim Arrayvariable(nrow To ncol) As Integer
Arrayvariable = Rnd()

Merci pour votre aide

**boisgontierjacques** · 23/09/2018, 12h36

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub essai()
Dim nrow As Integer
Dim ncol As Integer
nrow = InputBox("Type number of rows")
ncol = InputBox("Type number of columns")
Dim ArrayVariable(): ReDim ArrayVariable(1 To nrow, 1 To ncol)
For i = 1 To UBound(ArrayVariable)
  For j = 1 To UBound(ArrayVariable, 2)
    ArrayVariable(i, j) = Rnd()
  Next j
Next i
[A1].Resize(UBound(ArrayVariable), UBound(ArrayVariable, 2)) = ArrayVariable
End Sub

Boisgontier

**sogedic** · 23/09/2018, 12h46

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim nrow As Integer
Dim ncol As Integer
Dim Arrayvariable() as variant
nrow = CInt(InputBox("Type number of rows"))
ncol = CInt(InputBox("Type number of columns"))
 
ReDim Arrayvariable(1 To nrow, 1 To ncol)
 
For i = 1 To nrow
    For j = 1 To ncol
        Arrayvariable(i, j) = Rnd()
    Next j
Next i

**FreshTrading** · 23/09/2018, 12h51

Envoyé par boisgontierjacques

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub essai()
Dim nrow As Integer
Dim ncol As Integer
nrow = InputBox("Type number of rows")
ncol = InputBox("Type number of columns")
Dim ArrayVariable(): ReDim ArrayVariable(1 To nrow, 1 To ncol)
For i = 1 To UBound(ArrayVariable)
  For j = 1 To UBound(ArrayVariable, 2)
    ArrayVariable(i, j) = Rnd()
  Next j
Next i
[A1].Resize(UBound(ArrayVariable), UBound(ArrayVariable, 2)) = ArrayVariable
End Sub

Boisgontier

Merci beaucoup, pourrais tu m'expliquer ce que veut dire

Code :

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

[A1].Resize(UBound(ArrayVariable), UBound(ArrayVariable, 2)) = ArrayVariable

Et aussi UBound?

Merci pour l'aide

**FreshTrading** · 23/09/2018, 12h52

Envoyé par sogedic

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim nrow As Integer
Dim ncol As Integer
Dim Arrayvariable() as variant
nrow = CInt(InputBox("Type number of rows"))
ncol = CInt(InputBox("Type number of columns"))
 
ReDim Arrayvariable(1 To nrow, 1 To ncol)
 
For i = 1 To nrow
    For j = 1 To ncol
        Arrayvariable(i, j) = Rnd()
    Next j
Next i

Merci pour l'aide
Le code ne fonctionne pas ca me marque toujours:constant expression required
Que signifie le CInt?

Merci

**boisgontierjacques** · 23/09/2018, 13h00

Le code ne fonctionne pas ca me marque toujours:constant expression required

cf PJ

Boisgontier

**FreshTrading** · 23/09/2018, 13h11

Ton code à toi fonctionne, c'était l'autre qui ne fonctionnait pas.
Merci pour le lien c'est top. Car je ne connais pas grand chose encore et du coup ton avant derniere ligne j'ai du mal à comprendre ce que c'est

**boisgontierjacques** · 23/09/2018, 13h44

Ubound(ArrayVariable) donne le nb de lignes (pour un Array dimensionné par Dim ArrayVariable(1 to NbLignes,1 to Nbcol)
Ubound(ArrayVariable,2) donne le nb de colonnes

Boisgontier

**FreshTrading** · 07/10/2018, 07h04

Merci beaucoup pour tes explications très clair

**patricktoulon** · 07/10/2018, 12h25

Envoyé par boisgontierjacques

Ubound(ArrayVariable) donne le nb de lignes (pour un Array dimensionné par Dim ArrayVariable(1 to NbLignes,1 to Nbcol)
Ubound(ArrayVariable,2) donne le nb de colonnes

Boisgontier

Bonjour boisgontierjacques
(Lbound/Ubound)
je dirais plutot que ca donne la premiere et la derniere ligne ou colonne
attention a la meprise en fonction de base 0 ou 1
exemple pour les lignes

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim tablo(10, 8), tablo2(1 To 10, 1 To 8)
a = 0
For i = LBound(tablo) To UBound(tablo): a = a + 1: Next
MsgBox LBound(tablo) & " to " & UBound(tablo) & " Nblignes= " & a
a = 0
For i = LBound(tablo2) To UBound(tablo2): a = a + 1: Next
MsgBox LBound(tablo2) & " to " & UBound(tablo2) & " Nblignes= " & a
End Sub

et pareil pour les colonnes

**Philippe Tulliez** · 07/10/2018, 13h03

Bonjour,
A lire Utiliser les variables tableaux en VBA Excel

**unparia** · 07/10/2018, 14h30

Bonjour

La réponse de boisgontierjacques était parfaite :
Ce n'est pas un "~~numéro~~", que retourne Ubound, mais bel est bien un nombre (une D I M E N S I O N, pour être précis)
Que l'expression de cette DIMENSION dépende de l'option choisie (base 0 ou base 1) ne change absolument rien à ce principe fondamental.
Mon intervention ici n'a d'autre but que celui de remettre les pendules à l'heure et ne pas confondre "double patte et patachon".
Afin que les choses soient plus claires dans tous les esprits ...

Amitiés à tous.

**Pierre Fauconnier** · 07/10/2018, 16h36

Envoyé par unparia

[...]
Ce n'est pas un "~~numéro~~", que retourne Ubound, mais bel est bien un nombre (une D I M E N S I O N, pour être précis)[...]

UBound renvoie le plus grand indice d'une dimension d'un tableau, et pas du tout une dimension ni un nombre (de lignes ou de quoi que ce soit d'autre) => il ne sert à rien de crier, Jacques, car c'est bien un numéro que renvoient UBound et LBound.

Il se fait que, comme précisé par Jacques Boisgontier, pour un tableau de base 1 (il le précise clairement dans son propos), le dernier indice disponible de la dimension 1 du tableau correspond au nombre de lignes dudit tableau. Sans connaître la base du tableau (1, 0 ou n'importe quoi d'autre), UBound ne sert pas à grand chose.

Dans l'absolu et d'une façon générique, pour connaître le nombre d'indices disponibles dans une dimension d'un tableau sans se tracasser de sa base, on utilise
UBound - LBound +1. Par exemple, pour la dimension 1 d'un tableau, on utilise UBound(a) - LBound(a) + 1 (que la base soit 0, 1, 1000 ou -20).

Et il est important à mon avis de connaître l'incidence (ou la non-incidence) de la ligne Option Base^* en haut de module, car certains outils du VBA sont insensibles à cette option:

VBA.Array (toujours base 0);
Split (toujours base 0);
Conversion de plage en tableau (toujours base 1);
Déclaration de la base lors de la déclaration du tableau (base définie lors de la déclaration).

^* D'où, se méfier des Option de module (sauf pour Option Explicit qui doit être présent au début de tout module VBA,

mon billet à ce sujet).

Invité · 07/10/2018, 17h26

Bonjour,
Microsoft.Msdn précise que Ubound retourne l'index le plus élevé.

Code :

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

1
2
3
dim t(5 to 10)
For i =Lbound(t) to ubound(t) 'for i = 5 to 10
Next

Toujours pas de justifications !

Je commence à en faire autant pour tous les postes invariablement et quelque soit l'auteur.

**patricktoulon** · 07/10/2018, 21h27

Microsoft.Msdn précise que Ubound retourne l'index le plus élevé.

et non!! le nombre de ligne
merci robert

**chrtophe** · 08/10/2018, 08h00

Toujours pas de justifications !

Ben si le lien donné, qui est la documentation officielle de la fonction.

En complément avec exemple :
https://silkyroad.developpez.com/vba/tableaux/#LV

Par indice, il faut comprendre plus grande valeur possible dans la dimension, voir exemple dans la doc officielle.

Invité · 08/10/2018, 08h46

Bonjour,
à ma concrescence le nombre de ligne est 6-5=2 sachant qu'un table commence a zéro!

dommage que je ne puisse pas vous coller -2 , mais j'espère arriver à faire comme Marc_L qui na rien posté depuis Avril!

Nom : Test.gif
Affichages : 691
Taille : 17,6 Ko

Nom : Test.gif
Affichages : 691
Taille : 17,6 Ko

Nom : Sans titre.png
Affichages : 684
Taille : 1,5 Ko

**chrtophe** · 08/10/2018, 09h44

6-2=5

Merci pour ce rappel mathématique

Et en quoi cela fit avancer la discussion ?

**Pierre Fauconnier** · 08/10/2018, 11h08

Envoyé par dysorthographie

[…]à ma concrescence le nombre de ligne est 6-5=2 sachant qu'un table commence a zéro![…]

Si ta table commence à 5, elle ne commence pas à 0. J'ai donné la formule générique plus haut dans le fil de discussion: UBound - LBound + 1, quelle que soit la base de la table:

dim a(1 to 6): Ubound - LBound + 1 = 6 - 1 + 1 = 6 lignes;
dim a(6): UBound - LBound + 1 = 6 - 0 +1 = 7 lignes;
dim a(123 to 456): UBound - LBound + 1 = 456 - 123 + 1 = 334 lignes;
dim a(-2 to 3): UBound - LBound + 1 = 3 - (-2) + 1 = 6 lignes.

Je ne vois pas ce que ça appelle comme commentaires.

Invité · 08/10/2018, 11h27

je suis désolé mais dans le poste précédent je démontre qu'il y a bien que deux ligne fenestre espion.

Lbound donne l'index min et ubound l'index max!

@chrtophe le fait de donner le lien d'msdn don j'ai parlé plus haut fait avancer la discussion!

Il.est évident que devant une telle mauvaise fois je ne peux que capituler.

Tableau avec variables

Macros et VBA Excel

Discussions similaires

Partager

Partager