Incompatibilité de type sous Excel

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

-->

Code:

---

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

---

Voici le code complet !

Code:

---

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

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

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:

---

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

---

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:

---

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

---

En résumé,

Cette ligne fonctionne :

Code:

---

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

---

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

Code:

---

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

---

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:

---

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

---

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

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:

---

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

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:

---

set obj_granulometrie(0)=MonObject

---

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:

---

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

---

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

Bonne journée :)