VBA (Excel) Supprimer lignes Résolu/Fermé

Question

Bonjour à tous.
Voila je vient poster ici car face à un problème sur VBA.

Avant tout, je précise que je suis extremement nul en programmation.

Mon problème est le suivant.

Je cherche un code qui me permetterait en fait de supprimer des lignes sur une feuille donnée.

Plus précisement, J'ai créé une macro qui me fait apparaitre un userform avec un bouton "reset"
 la deuxième feuille de mon tableur s'apelle "divers".
et je voudrais qu'en cliquant sur reset, les lignes 6,7,8,9,... (de 6 au maximum en fait) ce supprimes.

Je sait j'explique mal mais je ne comprend moi même pas vraiment ce que je fait ;)

Tout ce que je sait c'est qu'il ne me manque plus que ce petit truc pour terminer mon projet ;-)

Merci donc d'avance à celui qui me dira ce que je doit mettre entre ces deux lignes:





Private Sub btreset_Click()
...........
..........
End Sub

ego · Answer

essaye un truc comme ca

Dim i As Integer
i = 0

Do While i < 4161 '4161 c est le bas de page
Range("A7", Range("A7").End(xlToRight)).Delete
i = i + 1
Loop

a modifier selon besoin 
tu peux inserer un <> "" pour la beauté du geste

m-a-n-u · Answer

Merci pour ta réponse ego.

Seulement, il me supprime toujours tout dans la première page et pas la deuxième...

Et en plus, le temps qu'il aille jusqu'a 4000 et quelques, il me fait vibrer mon écran pendant 20 secondes... :(

A la limite supprmier les lignes 7 à 100 ca suffirai.


Merci

michel_m · Answer

Bonjour à tous,

Sub supprimerlignes()
Range("A7:IV100").Delete
End Sub

Cordialement
Michel

m-a-n-u · Answer

Merci pour la réponse mais toujours le meme pb...

J'ai du mal m'exprimer.

En fait je voudrais qu où que je soit (sur la feuille 1,2,3,...), que ce ne soient que les lignes 7 à 100 DE LA FEUILLE 2 qui soient supprimées.

Avec les codes que vous m'avez donnés, si je me situe sur la feuille 1 et que j'execute ma macro, ce sont les lignes 7 à 100 de la feuille 1 qui se suppriment...

Merci

michel_m · Answer

re,

essaies:

Sub supprimerlignes()
Sheets(2).Range("A7:IV100").Delete
End Sub

Si ca te convient, signale que le pb est résolu, y compris sur developpez.com ( il est d'usage de signaler que l'on demande sur pls sites et en précisant les quels: cela s'appelle la Netiquette)

ego · Answer

Sub supprimerlignes()

Dim i As Integer
i = 0

Do While i < 107 
Sheets(1).Range("A7", Range("A7").End(xlToRight)).Delete
i = i + 1
Loop 
i = 0

Do While i < 107 
Sheets(2).Range("A7", Range("A7").End(xlToRight)).Delete
i = i + 1
Loop
 
End Sub 

ainsi tu supprimes feuil1 et feuil2

ainsi que le dit michel
Si ca te convient, signale que le pb est résolu, y compris sur developpez.com ( il est d'usage de signaler que l'on demande sur pls sites et en précisant les quels: cela s'appelle la Netiquette)

m-a-n-u · Answer

Genial ca fonctionne !!!

Merci beaucoup pour votre efficacité.

Vraiment le meilleur forum d'entraide de la toile ;)

C'est donc la solution de michel qui m'a permis de résoudre mon problème.

Merci encore et longue vie à ce forum