Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour,
sub supp1sur3 application.ScreenUpdatingúlse z=range("b65536").end(xlup).row for i=1 to z step 3 cells(i,2).clearcontents next i application.ScreenUpdating=true end sub
devrait faire l'affaire -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Olivier" a écrit dans le message de news: d5qalk$tff$
Bonjour,
Est ce que qqun pourrait me donner le code à utiliser pour effacer une cellule toutes les trois lignes en VBA pour l'instant j'ai :
et comme j'ai 1800 cellules a effacer, ca m'aiderais grandement d'avoir le code avec une boucle. Merci d'avance
olivier
Bonjour,
sub supp1sur3
application.ScreenUpdatingúlse
z=range("b65536").end(xlup).row
for i=1 to z step 3
cells(i,2).clearcontents
next i
application.ScreenUpdating=true
end sub
devrait faire l'affaire
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Olivier" <opontecaille@partnerinterim.com> a écrit dans le message de news:
d5qalk$tff$1@s1.news.oleane.net...
Bonjour,
Est ce que qqun pourrait me donner le code à utiliser pour effacer une
cellule toutes les trois lignes en VBA
pour l'instant j'ai :
sub supp1sur3 application.ScreenUpdatingúlse z=range("b65536").end(xlup).row for i=1 to z step 3 cells(i,2).clearcontents next i application.ScreenUpdating=true end sub
devrait faire l'affaire -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Olivier" a écrit dans le message de news: d5qalk$tff$
Bonjour,
Est ce que qqun pourrait me donner le code à utiliser pour effacer une cellule toutes les trois lignes en VBA pour l'instant j'ai :
et comme j'ai 1800 cellules a effacer, ca m'aiderais grandement d'avoir le code avec une boucle. Merci d'avance
olivier
Pierre Fauconnier
Bonjour
Sub Effacer_Lignes() Dim i As Integer
For i = Range("a65536").End(xlUp).Row To 1 Step -3 Rows(i).Delete Next i End Sub
Il faut commencer par le bas pour qu'Excel balaie bien toutes les lignes.
Il faut également adapter le saut ( step ) au nombre de lignes que tu veux ignorer, et adapter le i de départ. Dans la macro que je donne, il commence en supprimant la dernière ligne dans laquelle il y a quelque chose en colonne A
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Olivier" a écrit dans le message de news: d5qalk$tff$
Bonjour,
Est ce que qqun pourrait me donner le code à utiliser pour effacer une cellule toutes les trois lignes en VBA pour l'instant j'ai :
et comme j'ai 1800 cellules a effacer, ca m'aiderais grandement d'avoir le code avec une boucle. Merci d'avance
olivier
Bonjour
Sub Effacer_Lignes()
Dim i As Integer
For i = Range("a65536").End(xlUp).Row To 1 Step -3
Rows(i).Delete
Next i
End Sub
Il faut commencer par le bas pour qu'Excel balaie bien toutes les lignes.
Il faut également adapter le saut ( step ) au nombre de lignes que tu veux
ignorer, et adapter le i de départ. Dans la macro que je donne, il commence
en supprimant la dernière ligne dans laquelle il y a quelque chose en
colonne A
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Olivier" <opontecaille@partnerinterim.com> a écrit dans le message de news:
d5qalk$tff$1@s1.news.oleane.net...
Bonjour,
Est ce que qqun pourrait me donner le code à utiliser pour effacer une
cellule toutes les trois lignes en VBA
pour l'instant j'ai :
For i = Range("a65536").End(xlUp).Row To 1 Step -3 Rows(i).Delete Next i End Sub
Il faut commencer par le bas pour qu'Excel balaie bien toutes les lignes.
Il faut également adapter le saut ( step ) au nombre de lignes que tu veux ignorer, et adapter le i de départ. Dans la macro que je donne, il commence en supprimant la dernière ligne dans laquelle il y a quelque chose en colonne A
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Olivier" a écrit dans le message de news: d5qalk$tff$
Bonjour,
Est ce que qqun pourrait me donner le code à utiliser pour effacer une cellule toutes les trois lignes en VBA pour l'instant j'ai :
et comme j'ai 1800 cellules a effacer, ca m'aiderais grandement d'avoir le code avec une boucle. Merci d'avance
olivier
Olivier
Merci a tous
"Philippe.R" a écrit dans le message de news:
Bonjour,
sub supp1sur3 application.ScreenUpdatingúlse z=range("b65536").end(xlup).row for i=1 to z step 3 cells(i,2).clearcontents next i application.ScreenUpdating=true end sub
devrait faire l'affaire -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Olivier" a écrit dans le message de news:
d5qalk$tff$
Bonjour,
Est ce que qqun pourrait me donner le code à utiliser pour effacer une cellule toutes les trois lignes en VBA pour l'instant j'ai :
et comme j'ai 1800 cellules a effacer, ca m'aiderais grandement d'avoir le
code avec une boucle. Merci d'avance
olivier
Merci a tous
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:OsI2AEWVFHA.3424@TK2MSFTNGP09.phx.gbl...
Bonjour,
sub supp1sur3
application.ScreenUpdatingúlse
z=range("b65536").end(xlup).row
for i=1 to z step 3
cells(i,2).clearcontents
next i
application.ScreenUpdating=true
end sub
devrait faire l'affaire
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Olivier" <opontecaille@partnerinterim.com> a écrit dans le message de
news:
d5qalk$tff$1@s1.news.oleane.net...
Bonjour,
Est ce que qqun pourrait me donner le code à utiliser pour effacer une
cellule toutes les trois lignes en VBA
pour l'instant j'ai :
sub supp1sur3 application.ScreenUpdatingúlse z=range("b65536").end(xlup).row for i=1 to z step 3 cells(i,2).clearcontents next i application.ScreenUpdating=true end sub
devrait faire l'affaire -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Olivier" a écrit dans le message de news:
d5qalk$tff$
Bonjour,
Est ce que qqun pourrait me donner le code à utiliser pour effacer une cellule toutes les trois lignes en VBA pour l'instant j'ai :