Erreur sur Range

[Joshua1969]

Bonjour,
je fais des essais concernant des tableaux variables (je débute en VBA)
J'ai écris ce code et il y a un message d'erreur : la méthode Range de l'objet Global a échoué. et bien entendu, je ne comprends pas pourquoi...

Quelqu'un peut-il m'aider.
d'avance merci.

Option Explicit
Option Base 1



Sub Tournéemanquante()
Dim i As Byte
Dim j As Byte
Dim k As Byte
Dim e As Byte
Dim f As Byte
Dim Tabréf As Variant
Dim Tableau As Variant
Dim Résultat As Variant
Dim fintableau As Long
'se positionne sur la feuille "Janvier"
Sheets("Janvier").Select
'Donne le numéro de la dernière ligne remplie avec les données tournées
fintableau = Range("C65536").End(xlUp).Row
'Rempli le tableau avec les données du mois
Tableau = Range(Cells(7, 4), Cells(fintableau, 31))
'rempli le tableau référence
Tabréf = Range(Cells(7, 3), Cells(fintableau, 3))
'rempli le tableau résultat
ReDim Résultat((fintableau - 6), 31)
For e = 1 To 31
For f = 1 To (fintableau - 6)
Résultat(f, e) = Range(Cells((f + 6), 3))
Next f
Next e

End Sub

 

[Joshua1969]

Re : Erreur sur Range

J'ai oublié de préciser que l'erreur se situe sur la ligne

Résultat(f, e) = Range(Cells((f + 6), 3))

Merci

 

[Efgé]

Re : Erreur sur Range

Bonjour Joshua1969,
Essai plutot:

Résultat(f, e) = Cells(f + 6, 3)

Cordialement

 

[Joshua1969]

Re : Erreur sur Range

Super.
Cela fonctionne.
Mais si je peux me permettre d'abuser, pourquoi la fonction Range marche pour alimenter un tableau précédent dans ma macro, et que sur cette ligne, cela ne fonctionne pas ?

Merci encore pour la réponse

 

[Pierrot93]

Re : Erreur sur Range

Bonjour,

si tu veux utiliser "range" :

Résultat(f, e) = Range("C" & f + 6)

bon après midi
@+

 

[Joshua1969]

Re : Erreur sur Range

Ok j'ai compris le truc.
Merci beaucoup