Résultat dans un nouvelle feuille

Le
Jol
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #23300061
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

MichD
Le #23300051
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
Jol
Le #23300991
Merci, mais pour Isabelle seule la 1° occurence est copiée, pour MichD
toutes les occurences sont copiées

"Jol" 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

Publicité
Poster une réponse
Anonyme