suppression de la valeur d´une cellule

Bonjour,
je voudrai just savoir comment supprimer la valeur d´une cellule sur une plage données
J´ai tenté ce code mais ca ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9

With Sheets("ExportedData") LastRow = .Range("A65000").End(xlUp).Row For i = LastRow To 3 For k = 1 To 8 Cells(i, k).Value.Delete Next k Next i   End With

---

Si qq peut m´aider ce serait sympa

Merci

Code:

---

.range("A3:H" & LastRow).clearcontents

---

Salut bakaouf et le forum
Belle tentative :mouarf:
LastRow = .Range("A65000").End(xlUp).Row
on va dire Lastrow=10
For i = LastRow To 3
Ce qui nous donne, en français :
Pour i=10 jusqu'à 3 en incrémentant i de 1
On a donc : i=10, puis i=11, i=12, etc... pas glop, pas glop

Code:

---

1 2 3 4 5 6 7 8

With Sheets("ExportedData") LastRow = .Range("A65000").End(xlUp).Row For i = LastRow To 3 Step -1 For k = 1 To 8 Cells(i, k).Value.Delete Next k Next i End With

---

Pas sûr que ce soit ce qu'il faut faire (pas assez de données), mais en utilisant ton code et une logique qui présume qu'on a une valeur de LastRow > 2
A+

J´ai trouvé tt seul

Code:

---

1 2 3 4 5 6 7 8 9 10

'Delete Data in sheet ExportedData to prepare a next exportation With Sheets("ExportedData") LastRow = .Range("A65000").End(xlUp).Row For i = LastRow To 3 Step -1 For k = 1 To 8 .Cells(i, k).Value = "" Next k Next i   End With

---

Oui certes, mais si sans boucle et en une seule instruction?

Code:

---

1 2 3 4

With Sheets("ExportedData") LastRow = .Range("A65000").End(xlUp).Row .range("A3:H" & LastRow).clearcontents.range("A3:H" & LastRow).clearcontents End With

---

si Lastrow=1200
au lieu de faire une double boucle 1197 x 8, mieux effacer directement le contenu de la plage A3:H1200