EXCEL VBA - Bug pour affecter valeurs dans tableau

[ExcelMans]

Bonjour,
Je desire affecter des valeurs dans un tableau sous VBA Excel avec le code ci-dessous :

Sub Affecter_Valeurs_Tab()

Dim TabValeurs() As Single
Dim CompteurLignes As Byte
Dim CompteurColonnes As Byte


Sheets("Parametrages" ).Select
For CompteurLignes = 1 To 20 'DerLigne

For CompteurColonnes = 1 To 6
TabValeurs(CompteurLignes, CompteurColonnes) = Cells(CompteurLignes + 11, CompteurColonnes + 1)
Next CompteurColonnes

Next CompteurLignes


End Sub

Le problème qui me bloque c'est le message sur la ligne rouge :

Type incompatible (erreur 13)

J'ai tourné le Pb dans tous les sens, sans résultat.

Si quelqu'un pouvais me dépanner ce serait super !

ExcelMans

 

[dg62]

Re : EXCEL VBA - Bug pour affecter valeurs dans tableau

Bonjour ExcelMans


Dim TabValeurs(20, 6) As Single
Dim CompteurLignes As Single
Dim CompteurColonnes As Single

avec ces déclarations ça marche.

 

[ExcelMans]

Re : EXCEL VBA - Bug pour affecter valeurs dans tableau

Avec ces instructions pour moi j'ai toujours le même message, d'autre parts il s'agit d'un tableau qui doit pouvoir évoluer ( le nombre de lignes peut augmenter voir diminuer). Je ne peux donc pas figer le nombre de colonnes et de lignes (Dim TabValeurs(20, 6) As Single) .

Mon pb reste entier...

 

[ExcelMans]

Re : EXCEL VBA - Bug pour affecter valeurs dans tableau

Bonjour Didier,

Je viens, en même temps que toi de mettre le doigt sur mon Pb :
Comme tu me l'indiques, le tableau ne doit pas être "avec un type". Il doit être de la forme : Dim TabValeurs().

Desormais ça fontionne inpec.

Merci à tous.

 

[ExcelMans]

Re : EXCEL VBA - Bug pour affecter valeurs dans tableau

Je viens à l'instant de mettre le doigt sur mon Pb :
Le tableau ne doit pas être "avec un type". Il doit être de la forme :
Dim TabValeurs().

Desormais ça fontionne inpec.

Merci à tous.