Code qui ne fonctionne pas

Bonjour. J'ai entré ce code dans une feuil en VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As String
i = 8

'Pour E
Do Until i = 34
i = i + 1

Range((Range("A" & i).Value) & 4) = Range("A" & (Range(("B") + 8) - (Range("C2").Value)))

Loop

End Sub

et Excel me dit : Erreur d’exécution '1004': La méthode 'Range' de l'objet '_Worksheet' a échoué.

Que faire ? Je suppose que soit les parenthèses sont mal placées, soit on ne peut pas du tout faire ce que j'ai fait comme ça

Merci si vous arrivez à trouver pourquoi ça ne fonctionne pas

Cordialement

Edit

En fait j'ai trouvé tout seul... Merci tout de même à tout ceux qui ont cherché !

J'ai édité afin de ne pas remonter le post

Bonjour,

ta ligne ne veut pas dire grand chose, explique ce que tu veux faire.

eric

Bonjour Stéphane, bonjour le forum

Syntaxe incorrecte : Range(("B") + 8 ) ensuite, que vaut (pour I=8 par exemple) : A8 ?

Il faudrait que tu expliques ce que tu voudrais que le code fasse pour qu'on puisse le corriger car là il est incohérent...

[Édition]

Bonjour Éric on s'est croisé

Bonjour,

A mon sens il manque au moins un ou 2 value, voire 3

Range((Range("A" & i).Value) & 4).value = Range("A" & (Range(("B") + 8).value - (Range("C2").Value))).value

question de cohérence, après mystère = on ne sait pas ce que tu veux faire !

Bonjour le fil, bonjour le forum,

la propriété [Value] étant la propriété par défaut d'un objet de type Range, il n'est pas obligatoire de l'écrire dans le code. Je veux dire que ce n'est pas cela qui fera planter le code. Mais, comme toi, je préconise de l'écrire pour une raison de clarté.