Discussion :

[dureiken]

Bonjour,

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

Code :

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

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 :

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

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 :

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

Workbooks(Toto.xls).Close

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

Merci d'avance pour votre aide !

[mercatog]

Question 1:

Code :

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

sheets("Feuil1").usedrange.clear

Question 2 et 3:

Code :

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

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

[dureiken]

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

[mercatog]

ç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 :

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

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

[dureiken]

Super merci beaucoup, tout marche nickel !

Thanks a lot