Microsoft 365 Erreur 1004

[Gégé-45550]

Bonjour les amis, bonjour le forum
Je dois avoir les neurones complètement confinés.
Dans une boucle toute simple, j'obtiens une erreur 1004 à l’exécution et je n'arrive pas à comprendre pourquoi !
En ce jour de 8 mai, j'aimerais bien gagner cette "guerre". Merci d'avance à ceux qui voudront bien m'éclairer.

Dim ws As Worksheet
Set ws=ThisWorkBook.Sheets("test")
For i=1 to 2
   For j = 5 To fin
       valDate = Range(ws.Cells(0, 7).Offset(j, i)).Value          '<= erreur 1004 à l'exécution
       valLibelle = Range(ws.Cells(0, 8).Offset(j, i)).Value       '<= erreur 1004 à l'exécution
       valMontant = Range(ws.Cells(0, 9).Offset(j, i)).Value       '<= erreur 1004 à l'exécution
   Next j
Next i

 

[_Thierry]

Bonjour @Gégé-45550 , le Forum

Range(ws.Cells(0,
Une adresse de Cells ne peut pas être "Row = 0" ...

@+Thierry

 

[Gégé-45550]

Bonjour @_Thierry et merci pour ta réponse rapide.
Entre-temps, j'avais vu mon erreur.
En plus, il est débile d'écrire Range(ws.Cells(0, 7).Offset(j, i)) quand Range(ws.Cells(j,7+i)) suffit largement.
Merci beaucoup et bonne après-midi.

 

[jmfmarques]

Bonjour

quand Range(ws.Cells(j,7+i)) suffit

euh ... ce serait peut-être mieux avec, simplement :
ws.Cells(j,7+i)

 

[Gégé-45550]

Bonjour

euh ... ce serait peut-être mieux avec, simplement :
ws.Cells(j,7+i)

effectivement !!! Ça aussi, je l'ai vu après !
Merci beaucoup pour le coup de main amical à mes neurones évanescents !