Bonjour,
Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème.
Serait-il possible de copier dans une autre feuille le résultat de la macro
sans supprimer les éléments bien sûr ?
Sub apure()
Dim n As Long
Application.ScreenUpdating = False
For n = 1000 To 1 Step -1
Select Case UCase(Range("B" & n))
Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE"
Rows(n).Delete
End Select
Next
Application.ScreenUpdating = True
End Sub
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
isabelle
bonjour Jol,
voilà,
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1 To 10 Select Case UCase(Sheets("Feuil1").Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" x = Sheets("Feuil2").Range("B65535").End(xlUp).Row + 1 Sheets("Feuil1").Rows(n).Copy Sheets("Feuil2").Range("A" & x) End Select Next Application.ScreenUpdating = True End Sub
-- isabelle
Le 2011-04-21 04:17, Jol a écrit :
Bonjour, Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème. Serait-il possible de copier dans une autre feuille le résultat de la macro sans supprimer les éléments bien sûr ?
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next Application.ScreenUpdating = True End Sub
Merci à vous
bonjour Jol,
voilà,
Sub apure()
Dim n As Long
Application.ScreenUpdating = False
For n = 1 To 10
Select Case UCase(Sheets("Feuil1").Range("B" & n))
Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE"
x = Sheets("Feuil2").Range("B65535").End(xlUp).Row + 1
Sheets("Feuil1").Rows(n).Copy Sheets("Feuil2").Range("A" & x)
End Select
Next
Application.ScreenUpdating = True
End Sub
--
isabelle
Le 2011-04-21 04:17, Jol a écrit :
Bonjour,
Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème.
Serait-il possible de copier dans une autre feuille le résultat de la macro sans supprimer les éléments bien sûr ?
Sub apure()
Dim n As Long
Application.ScreenUpdating = False
For n = 1000 To 1 Step -1
Select Case UCase(Range("B" & n))
Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE"
Rows(n).Delete
End Select
Next
Application.ScreenUpdating = True
End Sub
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1 To 10 Select Case UCase(Sheets("Feuil1").Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" x = Sheets("Feuil2").Range("B65535").End(xlUp).Row + 1 Sheets("Feuil1").Rows(n).Copy Sheets("Feuil2").Range("A" & x) End Select Next Application.ScreenUpdating = True End Sub
-- isabelle
Le 2011-04-21 04:17, Jol a écrit :
Bonjour, Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème. Serait-il possible de copier dans une autre feuille le résultat de la macro sans supprimer les éléments bien sûr ?
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next Application.ScreenUpdating = True End Sub
Merci à vous
MichD
Bonjour,
Sub Test() Dim DerLig As Long, N As Long Application.ScreenUpdating = False With Worksheets("Feuil1") 'Nom Feuille à adapter DerLig = .Range("B1000").End(xlUp).Row For N = DerLig To 1 Step -1 Select Case UCase(.Range("B" & N).Value) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" .Rows(N).Hidden = True End Select Next With .Range("B1:B" & DerLig).EntireRow.SpecialCells(xlCellTypeVisible) .Copy Worksheets("Feuil2").Range("A1") .Range("B1:B" & DerLig).EntireRow.Hidden = False End With End With Application.ScreenUpdating = True End Sub
MichD -------------------------------------------- "Jol" a écrit dans le message de groupe de discussion : ioop62$r5s$
Bonjour, Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème. Serait-il possible de copier dans une autre feuille le résultat de la macro sans supprimer les éléments bien sûr ?
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next Application.ScreenUpdating = True End Sub
Merci à vous
Bonjour,
Sub Test()
Dim DerLig As Long, N As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'Nom Feuille à adapter
DerLig = .Range("B1000").End(xlUp).Row
For N = DerLig To 1 Step -1
Select Case UCase(.Range("B" & N).Value)
Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE"
.Rows(N).Hidden = True
End Select
Next
With .Range("B1:B" & DerLig).EntireRow.SpecialCells(xlCellTypeVisible)
.Copy Worksheets("Feuil2").Range("A1")
.Range("B1:B" & DerLig).EntireRow.Hidden = False
End With
End With
Application.ScreenUpdating = True
End Sub
MichD
--------------------------------------------
"Jol" a écrit dans le message de groupe de discussion : ioop62$r5s$1@speranza.aioe.org...
Bonjour,
Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème.
Serait-il possible de copier dans une autre feuille le résultat de la macro
sans supprimer les éléments bien sûr ?
Sub apure()
Dim n As Long
Application.ScreenUpdating = False
For n = 1000 To 1 Step -1
Select Case UCase(Range("B" & n))
Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE"
Rows(n).Delete
End Select
Next
Application.ScreenUpdating = True
End Sub
Sub Test() Dim DerLig As Long, N As Long Application.ScreenUpdating = False With Worksheets("Feuil1") 'Nom Feuille à adapter DerLig = .Range("B1000").End(xlUp).Row For N = DerLig To 1 Step -1 Select Case UCase(.Range("B" & N).Value) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" .Rows(N).Hidden = True End Select Next With .Range("B1:B" & DerLig).EntireRow.SpecialCells(xlCellTypeVisible) .Copy Worksheets("Feuil2").Range("A1") .Range("B1:B" & DerLig).EntireRow.Hidden = False End With End With Application.ScreenUpdating = True End Sub
MichD -------------------------------------------- "Jol" a écrit dans le message de groupe de discussion : ioop62$r5s$
Bonjour, Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème. Serait-il possible de copier dans une autre feuille le résultat de la macro sans supprimer les éléments bien sûr ?
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next Application.ScreenUpdating = True End Sub
Merci à vous
Jol
Merci, mais pour Isabelle seule la 1° occurence est copiée, pour MichD toutes les occurences sont copiées
"Jol" a écrit dans le message de news:ioop62$r5s$
Bonjour, Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème. Serait-il possible de copier dans une autre feuille le résultat de la macro sans supprimer les éléments bien sûr ?
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next Application.ScreenUpdating = True End Sub
Merci à vous
Merci, mais pour Isabelle seule la 1° occurence est copiée, pour MichD
toutes les occurences sont copiées
"Jol" <angmedia@free.fr> a écrit dans le message de
news:ioop62$r5s$1@speranza.aioe.org...
Bonjour,
Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème.
Serait-il possible de copier dans une autre feuille le résultat de la
macro sans supprimer les éléments bien sûr ?
Sub apure()
Dim n As Long
Application.ScreenUpdating = False
For n = 1000 To 1 Step -1
Select Case UCase(Range("B" & n))
Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE"
Rows(n).Delete
End Select
Next
Application.ScreenUpdating = True
End Sub
Merci, mais pour Isabelle seule la 1° occurence est copiée, pour MichD toutes les occurences sont copiées
"Jol" a écrit dans le message de news:ioop62$r5s$
Bonjour, Isabelle, MichD et LSteph, m'ont aidé à soulutionner mon problème. Serait-il possible de copier dans une autre feuille le résultat de la macro sans supprimer les éléments bien sûr ?
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next Application.ScreenUpdating = True End Sub