VBA (Excel) Supprimer lignes
Résolu
m-a-n-u
-
lucho33 Messages postés 15 Statut Membre -
lucho33 Messages postés 15 Statut Membre -
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
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
A voir également:
- VBA (Excel) Supprimer lignes
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Supprimer page word - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
7 réponses
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
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
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
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
Bonjour à tous,
Sub supprimerlignes()
Range("A7:IV100").Delete
End Sub
Cordialement
Michel
Sub supprimerlignes()
Range("A7:IV100").Delete
End Sub
Cordialement
Michel
Salut Michel!!
j' me permet de te solliciter car t'as l'air de bien toucher en prog!!! moi j'en suis vraiment au balbuciment!!
en fait j'importe des données en continue dans un fichier Excel quelconque!!!
les données s'affichent sous la forme de 2 colonnes et une multitude de lignes étant donné que c'est en continue!! moi en fait je souhaite supprimer les cellules A1 et B1 lorsque les cellules A10 et B10 viennent de se remplir. ceci pour faire glisser les valeurs vers le haut!!! et rendre les cellules A10 et B10 vides en attendant la prochaine saisie!!
pourrais-tu m'aider????
merci d'avance!!
c'est très basique mais j'avais pensé à
if cells (A10,B10) >0
cells A1,B1).delete
ligne=ligne-1
end If
j'ai essayé mais je suis loin du compte!!
j' me permet de te solliciter car t'as l'air de bien toucher en prog!!! moi j'en suis vraiment au balbuciment!!
en fait j'importe des données en continue dans un fichier Excel quelconque!!!
les données s'affichent sous la forme de 2 colonnes et une multitude de lignes étant donné que c'est en continue!! moi en fait je souhaite supprimer les cellules A1 et B1 lorsque les cellules A10 et B10 viennent de se remplir. ceci pour faire glisser les valeurs vers le haut!!! et rendre les cellules A10 et B10 vides en attendant la prochaine saisie!!
pourrais-tu m'aider????
merci d'avance!!
c'est très basique mais j'avais pensé à
if cells (A10,B10) >0
cells A1,B1).delete
ligne=ligne-1
end If
j'ai essayé mais je suis loin du compte!!
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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)
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)
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)
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)
