VBA (Excel) Supprimer lignes
Résolu/Fermé
m-a-n-u
-
5 janv. 2008 à 15:24
lucho33 Messages postés 15 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 18 juin 2008 - 27 févr. 2008 à 18:30
lucho33 Messages postés 15 Date d'inscription mercredi 27 février 2008 Statut Membre Dernière intervention 18 juin 2008 - 27 févr. 2008 à 18:30
A voir également:
- VBA (Excel) Supprimer lignes
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Formule 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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
5 janv. 2008 à 16:59
5 janv. 2008 à 16:59
Bonjour à tous,
Sub supprimerlignes()
Range("A7:IV100").Delete
End Sub
Cordialement
Michel
Sub supprimerlignes()
Range("A7:IV100").Delete
End Sub
Cordialement
Michel
lucho33
Messages postés
15
Date d'inscription
mercredi 27 février 2008
Statut
Membre
Dernière intervention
18 juin 2008
1
27 févr. 2008 à 18:30
27 févr. 2008 à 18:30
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
5 janv. 2008 à 18:10
5 janv. 2008 à 18:10
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)
