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

tats · 26 Juillet 2006

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 · 26 Juillet 2006

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 · 26 Juillet 2006

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å · 27 Juillet 2006

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)

Code:

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å

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

tats

Guest

Robert

XLDnaute Barbatruc

tats

Guest

Mytå

Guest

Discussions similaires

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

tats

Guest

Robert

XLDnaute Barbatruc

tats

Guest

Mytå

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency