macro...trouver et supprimer (ou copier) lignes

[tats]

Merci à ce forum
Bonjour, j'ai une énorme liste. Je veux une macro qui trouve toutes les valeurs = à VRAI d'une colonne et en supprime la ligne entière, ou bien les copies, j'aurais besoin deux deux !!
Quelqu'un pourrait me sauver la vie ??

 

[Robert]

Re : macro...trouver et supprimer (ou copier) lignes

Bonsoir Tats, bonsoir le forum,

Dans quelle colonne se trouve "VRAI" et où veux-tu copier ces lignes ? à la fin (ou au début) de ton tableau dans le même onglet ? Dans un autre onglet ? Dans un autre classeur ?

 

[tats]

Re : macro...trouver et supprimer (ou copier) lignes

OK, bien en fait, voici les détails.

Je suis dans le classeur 1
Je veux que ma macro aille dans mon classeur (liste me.xls... qui est déjà ouvert) , trouve et supprime toutes les lignes dont la cellule en colonne i comporte la mention VRAI. De la même façon j'aurais besoin d'un code similaire, mais qui copiera toutes ces lignes au lieu de les supprimer

Merci à l'avance

 

[Mytå]

Re : macro...trouver et supprimer (ou copier) lignes

Salut Tats, Robert et le Forum

Pour supprimer la ligne entière dans Listeme.xls contenant VRAI(TRUE)

Sub FindRowDelete()
 
Dim C As Range
Dim Wbk1 As Workbook
Dim Wbk2 As Workbook
 
Set Wbk1 = ActiveWorkbook
Set Wbk2 = Workbooks("Listeme.xls")
 
Wbk2.Activate

    With Range("I1:I" & [I65536].End(3).Row)
Repete:
    Set C = .Find(True, LookIn:=xlValues)
        If Not C Is Nothing Then
        C.EntireRow.Delete
        GoTo Repete
        End If
    End With

Wbk1.Activate
 
End Sub

Mytå