AIde pour erreur d'execution '9' dans vba

[yyrkoun]

Bonjour,

je suis débutant sur vba et j'ai un problème sur une macro, mes compétences vba restent très limités pouvez-vous m'aider sur ce sujet je vous joins le screener de ma macro vba
A noter que c'est ReDim nbjweek(1 To nbweek, 1) qui ne fonctionne pas

Je vous remercie d'avance pr votre solidarité
tres bonne année
cdt,



Sub transfoweek(nblmax1)

Dim nblweek As Variant
Dim transfomat As Variant
Dim aboutimat As Variant
Dim totaboutimat As Variant
Dim transfoaboutimat As Variant
nbweek = 0

For i = 2 To nblmax1
If Feuil1.Cells(i, 12).Value = "Total hebdo HT" Then
nbweek = nbweek + 1
End If
Next i


ReDim nbjweek(1 To nbweek, 1)
ReDim transfomat(1 To nbweek, 1)
ReDim aboutimat(1 To nbweek, 1)
ReDim totaboutimat(1 To nbweek, 1)
ReDim transfoaboutimat(1 To nbweek, 1)
firstl = 2
lastj = 0

For i = 1 To nbweek

nblweek = 0

For j = 1 To 3000
If Feuil1.Cells(j + firstl, 1).Value = Feuil1.Cells(firstl + j - 1, 1).Value Then
nblweek = nblweek + 1
Else

 

[jp14]

Re : AIde pour erreur d'execution '9' dans vba

Bonjour

A priori il manque une consonne

Dim nblweek As Variant

nbweek = 0

Il faut vérifier la valeur de cette variable.

JP

 

[yyrkoun]

Re : AIde pour erreur d'execution '9' dans vba

Merci pour votre réponse malheureusement ca ne change rien, toujours la meme erreur, sur la ligne ReDim nbjweek(1 To nbweek, 1)


avez vous une autre solution?

 

[jp14]

Re : AIde pour erreur d'execution '9' dans vba

Bonjour

Quelle est la valeur contenue dans cette variable.
Ecrire nbweek = 10 et supprimer la boucle.

JP