Récupérer des données sous condition

[mouftie]

Bonjour,
Je voudrai extraitre d'un fichier de donner toutes les lignes dont la colonne C commence par "328" ; sachant que la colonne C est constituée de nb numérique de 7 caractères.
Et ainsi constituer un nouveau fichier.
J'aai essayé ça :

Sub Si328EnColC()
Dim Adresse As String
Dim DernLig As Long, Lign As Long

DernLig = Range("C" & Rows.Count).End(xlUp).Row
For Lign = 17 To DernLig
'If UCase(Cells(Lign, 3)) = "328*" Then   'remplacer 3 par le N° Colon
If Cells(Lign, 3) = "328" Then
Adresse = Adresse & "," & Range(Cells(Lign, 2), Cells(Lign, 8)).Address
'   (Cells(Lign, 2), Cells(Lign, 8) = $B$lign:$H$lign
End If
Next
Adresse = Right(Adresse, Len(Adresse) - 1)
Range(Adresse).Copy
Workbooks("Class2.xlxm").Sheets("GPT").Range("A1").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
 Application.CutCopyMode = False
End Sub

mais cela ne fonctionne, les N° en 328 ne sont pas reconnus

Est-ce que qq'1 peut m'aider svp.
Merci.
PJ un fichier test
Ce lien n'existe plus

 

[JBARBE]

Re : Récupérer des données sous condition

Bonjour tous,

Peut-être ceci en cliquant sur le bouton TRIER !

Bonne journée

 

[mouftie]

[Résolu] Récupérer des données sous condition

Bonjour JBarbe,
Merci beaucoup
C'est nickel ; A bientôt peut-être

Du coup, j'en ai profité pour corriger mon travail ; si ça intéresse qq'1

Sub Si328EnColC()
Dim Adresse As String
Dim DernLig As Long, Lign As Long

DernLig = Range("C" & Rows.Count).End(xlUp).Row
For Lign = 17 To DernLig
'Si les 3 1er caractère de la cellule CLign = 328, alors
    If Left(Cells(Lign, 3), 3) = "328" Then
        'j'affecte à Adresse la ligne de données
        Adresse = Range(Cells(Lign, 2), Cells(Lign, 8)).Address
'        (Cells(Lign, 2), Cells(Lign, 8) = $B$lign:$H$lign
        Range(Adresse).Copy     'Copie / coller les valeurs en fin de tablo        
        Workbooks("Trier.xls").Sheets("GPT").Range("A1").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
         Application.CutCopyMode = False
    End If
Next
End Sub