Tableau avec variables

Version imprimable

23/09/2018, 12h21
FreshTrading

Tableau avec variables
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:

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 :)

Bonjour,

Code:

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

Code:

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

Citation:
Envoyé par boisgontierjacques
Bonjour,
Code:

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:

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

Et aussi UBound?

Merci pour l'aide :)

Citation:

Envoyé par sogedic

Code:

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 :)

23/09/2018, 13h00
boisgontierjacques

Citation:

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

cf PJ

Boisgontier
23/09/2018, 13h11
FreshTrading

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 :)
23/09/2018, 13h44
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
07/10/2018, 07h04
FreshTrading

Merci beaucoup pour tes explications très clair

Citation:

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:

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

07/10/2018, 13h03
Philippe Tulliez

Bonjour,
A lire Utiliser les variables tableaux en VBA Excel
07/10/2018, 14h30
unparia

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.
07/10/2018, 16h36
Pierre Fauconnier
Citation:

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, :fleche: mon billet à ce sujet).
07/10/2018, 17h26
Invité
Bonjour,
Microsoft.Msdn précise que Ubound retourne l'index le plus élevé.
Code:

1 2 3 dim t(5 to 10) For i =Lbound(t) to ubound(t) 'for i = 5 to 10 Next
:moinsser: Toujours pas de justifications !

Je commence à en faire autant pour tous les postes invariablement et quelque soit l'auteur.
07/10/2018, 21h27
patricktoulon

re

Citation:

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

et non!! le nombre de ligne
merci robert;):plusser:
08/10/2018, 08h00
Christophe

Citation:

:moinsser: 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.
08/10/2018, 08h46
Invité

2 pièce(s) jointe(s)

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!

Pièce jointe 418010

Pièce jointe 418042
08/10/2018, 09h44
Christophe

Citation:

6-2=5

Merci pour ce rappel mathématique :bravo:

Et en quoi cela fit avancer la discussion ?
08/10/2018, 11h08
Pierre Fauconnier
Citation:

Envoyé par dysorthographie

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

8O 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.
08/10/2018, 11h27
Invité

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.