VBA (Excel) Supprimer lignes
Résolu
m-a-n-u
-
lucho33 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
lucho33 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA (Excel) Supprimer lignes
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Supprimer une page word - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - 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)
