Problème de type

[Turbo]

Bonjour a tous


Voila comme l'indique le titre, je ne parviens pas a mettre mes variables dans des types compatibles.

Voici le code :

Dim TabQ As Integer
TabQ = Array(19, 32, 43, 50, 59, 66, 73, 80, 91, 98, 105, 116, 123, 130, 141, 152, , 159, 166, 173, 180, 187, 194, 201, 212, 219, 226, 237, 244, 251, 258, 269, 276, 283, 294, 301, 308)
For i = 0 To 35
          Cells(TabQ(i), 6) = "0"
          Cells(TabQ(i) + 309, 6) = "0"
          Cells(TabQ(i) + 309, 6) = "0"
Next i

Message d'erreur : Tableau attendu

Dim TabQ As Variant
TabQ = Array(19, 32, 43, 50, 59, 66, 73, 80, 91, 98, 105, 116, 123, 130, 141, 152, , 159, 166, 173, 180, 187, 194, 201, 212, 219, 226, 237, 244, 251, 258, 269, 276, 283, 294, 301, 308)
For i = 0 To 35
          Cells(TabQ(i), 6) = "0"
          Cells(TabQ(i) + 309, 6) = "0"
          Cells(TabQ(i) + 309, 6) = "0"
Next i

Message d'erreur : Incompatibilité de type

Merci a vous de m'expliquer comment remédier a ce léger soucis.

 

[pierrejean]

Re : Problème de type

bonjour Turbo

teste:

Dim TabQ() As Variant

 

[Turbo]

Re : Problème de type

Salut Pierre Jean

J'ai mis 2 exemples de code qui ne fonctionne pas, et tu viens de me conseiller de faire le 2ém

 

[pierrejean]

Re : Problème de type

Re

Relis STP
Dim TabQ() As Variant

 

[Turbo]

Re : Problème de type

Re

Oua ! désolé j'avais pas vu les parenthèses.

Je teste

Edit : Même message d'erreur que quand je met le Variant : "Incompatibilité de type"
Je me suis dit qu'il devait pas aimer additionner un variant avec un integer, donc j'ai mis 309 dans une variable de type variant, mais ça n'a rien changé

 

[Turbo]

Re : Problème de type

Je poste pour préciser que j'ai mis le résultat de ce que tu me suggérais en éditant mon dernier message, tu l'as donc certainement pas vu.

 

[Pierrot93]

Re : Problème de type

Bonjour Turbo, PierreJean

tu as un élément manquant dans ton tableau :

Sub test()
Dim TabQ As Variant, i As Integer
TabQ = Array(19, 32, 43, 50, 59, 66, 73, 80, 91, 98, 105, 116, 123, 130, 141, 152, [B][COLOR="Red"]XXX [/COLOR][/B], 159, 166, 173, 180, 187, 194, 201, 212, 219, 226, 237, 244, 251, 258, 269, 276, 283, 294, 301, 308)
For i = 0 To 35
          Cells(TabQ(i), 6) = "0"
          Cells(TabQ(i) + 309, 6) = "0"
          Cells(TabQ(i) + 309, 6) = "0"
Next i
End Sub

petite question; pourquoi 2 fois

Cells(TabQ(i) + 309, 6) = "0"

bon après midi

 

[pierrejean]

Re : Problème de type

Re

testée chez moi la macro bute sur le fait que TabQ a un vide (entre 152 et 159)
apres modif ça tourne

Salut Pierrot
toujours content de te croiser

 

[Turbo]

Re : Problème de type

Salut Pierrot
Re Pierre Jean

D'abord merci de m'avoir répondu, je testerai vos réponses tout à l'heure.
Pierrot : Ben tu viens de me faire remarquer une petite erreur que j'aurais pas remarqué avant d'avoir réussi a faire marcher mon petit bout de code.
Donc en faite j'ai un formulaire pour 3 produits, on pose donc 3 fois les mêmes questions aux dégustateurs. Les dégustateurs/utilisateurs de mon fichier cliquent sur des cases options pour valider leurs réponses sur un produit ( c'est en général une échelle de 1 à 9 ou de 1 à 5 pour tes questions types ( épaisseurs, aspect global, couleur. etc... ). Les différentes cases options sont regroupées dans des zones de groupe, et j'enregistre le résultat dans une cellule liée.
Quand on rentre "0" manuellement dans la cellule liée d'une zone de groupe avec ses cases options, la case option qui était coché redevient décoché.
En gros ca réinitialise le formulaire.
La réponse sera donc :

For i = 0 To 35
          Cells(TabQ(i), 6) = "0"
          Cells(TabQ(i) + 309, 6) = "0"
          Cells(TabQ(i) + 618, 6) = "0"
Next i

Edit : Merci les gars, ça marche Je suis un peu vert de la nature de mon erreur, mais ça m'apprendra à être plus vigilant la prochaine fois quand je recopie des valeurs...