Discussion :

[bakaouf]

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 :

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

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

[mercatog]

Code :

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

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

[Gorfael]

Salut bakaouf et le forum
Belle tentative
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 :

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

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+

[bakaouf]

J´ai trouvé tt seul

Code :

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

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

[mercatog]

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

Code :

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

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