Extraction d'une ligne répondant à un critére

[Hugues]

Bonjour,

Je vous re sollicite afin de connaître la démarche à suivre afin d'automatiser l'extraction d'une ligne entière d'une feuille et de l'exporter dans une autre feuille, si dans cette ligne, la colonne 'U' est renseignée par le mot 'actif'.

Merci à vous tous, [file name=essai_facturation_1.zip size=5813]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_facturation_1.zip[/file]

 

[Hervé]

Bonsoir huhues, ou rebonsoir je crois

salut the forum

une proposition, ci-dessous :

Sub Bouton1_QuandClic()
Dim c As Range
Dim derligne As Integer

With Sheets('Feuil2')
    .Range('a5:c100').ClearContents
   
    For Each c In Range('u2:u' & Range('u65536').End(xlUp).Row)
        If c = 'Actif' Then
            derligne = .Range('a65536').End(xlUp).Row + 1
            .Cells(derligne, 1) = Cells(c.Row, 2)
            .Cells(derligne, 2) = Cells(c.Row, 3)
            .Cells(derligne, 3) = Cells(c.Row, 4)
        End If
    Next c
   
End With
           
End Sub

salut

 

[Hugues]

Merci pour la réponse.

Hugues