Optimiser suppression + 2 autres questions

Bonjour,

1-j'ai fait un petit code qui me supprime toutes les lignes de mon tableau :

Code:

---

1 2 3 4

While Cells(PremiereLigne, 2) <> "" Cells(PremiereLigne, 2).Select Selection.EntireRow.Delete Wend

---

Mais comme j'ai 5000 lignes c'est un peu long, une idée pour l'optimiser ? :)

Sinon j'avais 2 petites questions subsidiaires :

2-j'utilise cette ligne pour ouvrir un fichier :

Code:

---

Workbooks.Open Filename:="toto.XLS"

---

qui est protégé à l'écriture. Une façon de lui dire que je voudrai l'ouvrir en lecture seule sans forcément devoir rester devant le PC et cliquer sur lecture seule ?

3-Lorsque je ferme le fichier toto, comme j'ai fait des modifs il me demande de sauvegarder ou non, en utilisant la commande :

Code:

---

Workbooks(Toto.xls).Close

---

, une façon de lui dire automatiquement de ne pas sauvegarder les modifs ?

Merci d'avance pour votre aide !

Question 1:

Code:

---

sheets("Feuil1").usedrange.clear

---

Question 2 et 3:

Code:

---

1 2 3 4 5 6 7 8

Sub aaa() Dim wb As Workbook   Set wb = Workbooks.Open("C:\Users\user\Desktop\MonFichierCree.xls", ReadOnly:=True) 'ton code avec la varaible wb = ton fichier ouvert wb.Close False Set wb = Nothing End Sub

---

Nickel pour les questions 2 et 3

Mais pour la 1, ça me supprime tout au lieu de commencer à la ligne 23 du coup c'est pas bon :(

Merci

Citation:

---

ça me supprime tout au lieu de commencer à la ligne 23 du coup c'est pas bon

---

Pour moi, ma réponse était excellente par rapport à la question initiale. Tu n'as jamais parler de la ligne 23.
Maintenant pour ta question 1bis, je réponds comme ceci

Code:

---

1 2 3 4 5 6

Dim LastLig As Long   With Sheets("Feuil1") ' à adaper LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row If LastLig >= 23 Then .Rows("23:" & LastLig).Clear End With

---

Bien sûr cette réponse a été rédigée en prenant comme hypothèse qu'on peut récupérer la dernière ligne vide à partir de la colonne B

Super merci beaucoup, tout marche nickel !

Thanks a lot