Garder seulement les ignes contenant....

[Guido]

Bonsoir

J'aimerais garder seulement les lignes qui commencent 6000 Euros ,20000euros et plus

et qui se trouvent dans la colonne A

Voir le fichier

Merci

Guido

 

[Guido]

Re : Garder seulement les ignes contenant....

Bonjour

J'ai remis le fichier avec le resultat final...

Merci pour votre aide

Guido

 

[MK.]

Re : Garder seulement les ignes contenant....

Bonjour

Sub trouvetout()
    Dim trouve As Range
    With Feuil1.[a:a]
        Set trouve = .Find("COURSE N", LookIn:=xlValues, lookat:=xlPart)
        If Not trouve Is Nothing Then
            ad = trouve.Address
            Do
                trouve.Offset(2, 0).Copy Feuil2.[a65000].End(xlUp)(2)
                Set trouve = .FindNext(trouve)
            Loop While Not trouve Is Nothing And trouve.Address <> ad
        End If
    End With
End Sub

 

[Guido]

Re : Garder seulement les ignes contenant....

Re

MK.

Ca ne marche pas ou est mon erreur..

j'ai bien ???recopier la macro pourtant....????

Merci Guido

 

[MK.]

Re : Garder seulement les ignes contenant....

La macro fonctionne, elle recopie les infos à la suite d'autres valeurs déjà existante de la feuille 2

 

[Guido]

Re : Garder seulement les ignes contenant....

Re

Merci.

Svp Peut tu regarder le modele final

Voir le fichier supp...

Merci Guido

 

[MK.]

Re : Garder seulement les ignes contenant....

Sub trouvetout()
     Dim trouve As Range
     If Feuil1.[a1] <> "" Then Feuil1.[a1].Insert shift:=xlDown
     With Feuil1.[a1:a2000]
         Set trouve = .Find("COURSE N", LookIn:=xlValues, lookat:=xlPart)
         If Not trouve Is Nothing Then
             ad = trouve.Address
             Do
                 trouve.Offset(2, 0).Copy Feuil2.[a65000].End(xlUp)(2)
                 Set trouve = .FindNext(trouve)
             Loop While Not trouve Is Nothing And trouve.Address <> ad
         End If
     End With
 End Sub

 

[Guido]

Re : Garder seulement les ignes contenant....

Re

Merci MK.

tout est Ok

Amitiés

Guido