Discussion :

[Okiinox]

Bonjour, quelqu'un aurait une idée de pourquoi j'ai une incompatibilité de type avec cette ligne

-->

Code :

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

résultat_granulometrie = obj_granulometrie(h + (k * nbr_pièce_testé) - 1).Value

Voici le code complet !

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
Public obj_granulometrie() As Object
Dim résultat_granulometrie As Double
 
 
nbr_pièce_testé = Val(nbr_pièces_UserForm.nbr_pièces.Value)
 
 
For k = 0 To 1
For h = 1 To nbr_pièce_testé
 
résultat_granulometrie = obj_granulometrie(h + (k * nbr_pièce_testé) - 1).Value
Worksheets("Décanteurs_").Range(Chr(caractere) & LaDernièreLigne + h - 1) = résultat_granulometrie
 
Next h
 
caractere = caractere + 1
Next k

Merci de votre aide

[riaolle]

Bonjour,
Qu'est-ce que obj_granulometrie ? Où est-ce que tu le définies et comment ?

[Okiinox]

Il sagit d'un tableau dans lequel je range différentes valeurs, et le but de ce code est d'afficher une à une les valeurs du tableau :
C'est un tableu global définie en dehors de ma fonction

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
Public obj_granulometrie() As Object
ReDim obj_granulometrie(nbr_pièce_testé * 10)
 
 
For t1 = 1 To nbr_pièce_testé * 10
Set obj_granulometrie(t1 - 1) = Me.Controls.Add("forms.TextBox.1")
 
    If t1 <= nbr_pièce_testé Then
 
        With obj_granulometrie(t1 - 1)
            .Name = "valeur_" & t1
            .Left = 100
            .Top = 30 * t1 + 40
            .Width = 50
            .Height = 20
        End With

[Okiinox]

En soit le tableau ne pose pas problème je crois, le problème apparait dès que j'ajoute la variable nbr_pièce_testé dans la ligne :

Code :

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

résultat_granulometrie = obj_granulometrie(h + (k * nbr_pièce_testé) - 1).Value

En résumé,

Cette ligne fonctionne :

Code :

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

résultat_granulometrie = obj_granulometrie(h + k  - 1).Value

Celle me dit que j'ai une incompatibilité de type :

Code :

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

résultat_granulometrie = obj_granulometrie(h + (k * nbr_pièce_testé) - 1).Value

[joe.levrai]

Bonjour,

pourquoi tu déclares ton tableau comme un objet ?
Pourquoi tu déclares en public cette variable DANS la procédure ?
Pourquoi on ne voit pas la déclaration de procédure ? (Sub()...)
que vaut nbr_pièce_testé ?
Récupérer la valeur d'un tableau ne passe pas par une propriété .Value

Que vallent tes variables quand la procédure plante ?

Code :

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

1
2
3
4
5
6
7
8
Public obj_granulometrie()
 
Sub toto()
nbr_pièce_testé = UnChiffreDeTonChoix
ReDim obj_granulometrie(nbr_pièce_testé * 10)
MonToto = obj_granulometrie(14)  ' par exemple
....
End Sub

[unparia]

Bonjour
Difficile de déterminer avec assurance ce qui ne va pas parmi tant d'imprécisions.
Je souscris totalement à ce sujet à la remarque de joe.levrai

[Okiinox]

Car je me sers de mon tableau dans un de mes formulaires, en fait je génére un formulaire dynamiquement en fonction de la valeur de nbr_pièce_testé ( nbr_pièce_testé est une variable qui prend une valeur rentré par l'utilisateur dans mon tout premier formulaire ).

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
Public obj_granulometrie() As Object
 
Sub Remplissage()
 
Dim nbr_pièce_testé As Integer
'On récupère la valeur du nombre de pièce que l'on test
    nbr_pièce_testé = Val(nbr_pièces_UserForm.nbr_pièces.Value)
'On calcule la dernière ligne pour pouvoir en ajouter une
    LaDernièreLigne = Range("A65536").End(xlUp).Offset(1, 0).Row
 
'.......
 
'Déclaration des variables
Dim résultat_granulometrie As Double
Dim caractere As Integer
 
 
caractere = 89
 
For k = 0 To 1
For h = 1 To nbr_pièce_testé
 
résultat_granulometrie = obj_granulometrie(h + (k * nbr_pièce_testé) - 1).Value
Worksheets("feuil1").Range(Chr(caractere) & LaDernièreLigne + h - 1) = résultat_granulometrie
 
Next h
caractere = caractere + 1
Next k
 
End Sub

Quand ca plante nbr_pièce_testé vaut la valeur que je lui ai donné dans le formulaire, h vaut 1 et k vaut 0

[Invité]

bonjour,
ce qui est important ce n'est pas vraiment où tu utilises ton tableau, quoique! mais avant tout ou tu gère ses instance!

Code :

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

set obj_granulometrie(0)=MonObject

[joe.levrai]

Ta variable obj_granulometrie n'est pas un objet mais un Tableau

Là maintenant, nous n'avons même plus la partie de la procédure où tu redimensionnes ton tableau

La ligne 27 est inutile, autant utiliser caractere + k en ligne 24

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
Public obj_granulometrie()
 
Sub Remplissage()
Dim résultat_granulometrie As Double
Dim caractere As Integer
Dim nbr_pièce_testé As Integer
    nbr_pièce_testé = Val(nbr_pièces_UserForm.nbr_pièces.Value)
    LaDernièreLigne = Range("A65536").End(xlUp).Offset(1, 0).Row
    caractere = 89
 
    For k = 0 To 1
        For h = 1 To nbr_pièce_testé
            résultat_granulometrie = obj_granulometrie(h + (k * nbr_pièce_testé) - 1).Value
            Worksheets("feuil1").Range(Chr(caractere + k) & LaDernièreLigne + h - 1) = résultat_granulometrie
        Next h
    Next k
End Sub

[Okiinox]

C'est bon avec quelques bidouilles j'ai réussi. En effet le tableau déclaré en objet y était pour quelque chose !
Merci beaucoup

Bonne journée