Discussion :

[Joseldsm]

Bonjour à tous et à toutes.

Je suis face à un problème que je ne comprends pas. Même après avoir lu les cours sur les tableaux je ne comprends toujours pas où est l'erreur.

Voici le code :

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 Bouton1_Cliquer()
 
    Dim WS As Worksheet
    Dim Var1, Var2 As Integer
    Dim Tab1() As String
 
    Set WS = Worksheets(1)
    With WS
        Var1 = Cells(1, 1).Value
        Var2 = Var1 - 1
    End With
    Set WS = Nothing
 
    ReDim Tab1(Var2, 1)
 
End Sub

La ligne de code indiquée comme étant incorrecte est la suivante :

Code :

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

1
2
 
ReDim Tab1(Var2, 1)

En remplaçant le "Var2" par une valeur entière définie (par exemple 2), cela fonctionne. Cependant je ne comprends pas pourquoi il est impossible de dimensionner un tableau avec une valeur entière récupérer dans une variable.

Merci à vous

[Trystan441]

Bonjour,

As-tu vérifier, sauf si c'est une faute de frappe, la valeur de Var4 lorsque tu attribues une valeur à Var 2 ?
Parce que à mon avis, tu dois avoir un problème à ce niveau là ! Var2 doit être égale à -1.

Si ce n'est pas une faute de frappe, penses à déclarer Var4,

[Joseldsm]

Bonjour,

As-tu vérifier, sauf si c'est une faute de frappe, la valeur de Var4 lorsque tu attribues une valeur à Var 2 ?
Parce que à mon avis, tu dois avoir un problème à ce niveau là ! Var2 doit être égale à -1.

Si ce n'est pas une faute de frappe, penses à déclarer Var4,

Merci pour ta réponse !
Cependant, c'était une erreur de ma part lorsque j'ai simplifié mon code pour que ce soit plus présentable. L'erreur est toujours bien là.

[Trystan441]

Quelle est la valeur de Var2 au moment du Redim ?

[BENNASR]

Bonjour à tous
réponse d'un autodidacte peut être à coté de la cage

Code :

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

Dim Var1, Var2 As Integer

à remplacer par

Code :

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

1
2
Dim Var1 As Integer
Dim Var2 As Integer

[Joseldsm]

Bonjour à tous
réponse d'un autodidacte peut être à coté de la cage

Code :

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

Dim Var1, Var2 As Integer

à remplacer par

Code :

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

1
2
Dim Var1 As Integer
Dim Var2 As Integer

Salut ! Merci pour ta réponse, mais malheureusement cela ne résout pas le problème :/

[Joseldsm]

Quelle est la valeur de Var2 au moment du Redim ?

Sa valeur est justement égale à 2.

[patricktoulon]

re
donc si var = 2 la seul erreur c'est LE POINT DEVANT CELL car tu n'est certainement pas sur le sheets(1) actif !!!!

[patricktoulon]

re
salut
lire les commentaires !!

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 Bouton1_Cliquer()
 
    Dim WS As Worksheet
    Dim Var1&, Var2& 'LONG PAS INTERGER!!!!!!!!!  interger a une limite !!!!!
    Dim Tab1() As String
 
    Set WS = Worksheets(1)
    With WS
        ' et je parierais a 10 contre 1 que même  si elle est numérique  ca plante ici car cell n'a pas de parent ((( le point devant!!!!)))))
        Var1 = Cells(1, 1).Value 'vérifier si c'est bien une valeur numérique
        Var2 = Var1 - 1 ' si la var1 n'est pas numérique elle vaudra 0 donc -1
    End With
    Set WS = Nothing
 
    ReDim Tab1(Var2, 1)' si var2 vaut -1 erreur !!!!!!!!!
 
End Sub