Discussion :

[Zebulon777]

Bonjour à tous.

Voici mon problème :
Pour supprimer une plage de cellule, j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
 
    Sheets("TEMP").Select
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
    Selection.QueryTable.Delete
    Range("A1").Select

Mon problème est que je n'arrive pas à réellement tout supprimer, ainsi lorsque je recherche la dernière cellule active, il retrouve toujours quelque chose, alors qu'il ne devrait retourner que A1.

Au secours...

[antoine.dandois]

essaye d'utiliser simplement la méthode

Code :

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

Selection.Clear

?!?!

[ouskel'n'or]

Quand tu effaces, que tu supprimes des lignes, des colonnes et que tu vérifies avec

Code :

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

  Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

tu retrouves ta plage antérieure. Pour ne plus la retrouver, tu dois enregistrer ton fichier
Tu testes et tu nous dis
A+

Edit
SilkyRoad indique ici comment vérifier si une feuille est vide (avant de la supprimer) Inspire-toi de son code

PS - Tiens, comme je suis brave...

Code :

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

1
2
3
4
5
Dim Ws As Worksheet
     Set ws = activeWorkbook.activeSheet
     If Ws.UsedRange.Cells.Address = "$A$1" And _
           IsEmpty(Ws.Range("A1")) Then _
           msgbox "la feuille est vide"

Au fait, pendant que j'y suis, pour effacer toutes les cellues d'une feuille

Code :

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

Cells.clearcontents

tu n'es jamais obligé de sélectionner la plage

[Zebulon777]

Merci à tous, mais la seule solution que j'ai trouvé est supprimer la feuille et de la recréée :

Code :

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

1
2
3
4
 
Sheets("TEMP").Delete
Sheets.add
ActiveSheet.Name = "TEMP"

La question qui suit alors est comment supprimer une feuille sans avoir le message de confirmation ?

[Zebulon777]

J'ai trouvé :

Code :

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

1
2
3
4
 
Application.DisplayAlerts=false
...
Application.DisplayAlerts=true

Merci pour tout à tous ceux qui m'ont aidé.