Discussion :

[jarault]

Bonjour,
Cela fait trois jours que j'essaye désesperement de finaliser cette ligne de code.
Pour résumer, j'affecte à ma variable x le numéro de ligne, puis je souhaite effacer la ligne correspondante sur la feuille DEPOTS: il existe un décalage que je dois maintenir de 338 lignes et la zone a effacer va de la colonne A à la colonne DR.

Donc si je suis sur la ligne 10, il faut que dans la feuille DEPOTS, la zone A348 à DR348 soit éffacée.
A l'heure actuelle j'ai un message d'erreur 1004.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("DEPOTS").Range(Cells(x + 338, 1), Cells(x + 338, 122)).ClearContents

[fring]

Bonjour,

Lorsque tu insères des "Cells" dans une "Range", les "Cells" doivent également être attribuées à une feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(1).Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(2, 2)).ClearContents

Pour une écriture et une lecture du code plus fluide tu peux procéder comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Sh As Worksheet
 
Set Sh = Sheets("DEPOTS")
Sh.Range(Sh.Cells(x + 338, 1), Sh.Cells(x + 338, 122)).ClearContents

[jarault]

Merci Fring çà a marché du premier coup, merci beaucoup pour ton aide.
Jarault