Extraire ds colonne, résultat de 5 chiffres seulement

Bonjour,

Dans la colonne E, j'ai des locations qui sont inscrites avec des lettres et des chiffres.

Est-ce possible, d'extraire par exemple ds l'onglet Feuil2, les locations qui ont juste des chiffres, pas de lettre. J'ai besoin que l'extraction montre la ligne au complet.

Ex ds le fichier joint:

Dans la colonne E, il y a: 41724

J'aimerais voir ds la feuil2:

47387 0 CHACUN FARDELEUSE MULLER OCTOPUS M4 41724 CLAMP RUBBER SUPPORT PLATE (MULLER OCTOPUS FILM CLAMP.

Merci de votre aide.

Jean.

Bonjour,

Sub extr()
    Dim c As Range
    With Feuil1
        For Each c In Range(.Cells(2, 5), .Cells(Rows.Count, 5).End(xlUp))
            If IsNumeric(c) And Len(c) = 5 Then
                Range(.Cells(c.Row, 1), .Cells(c.Row, 10)).Copy Feuil2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
            End If
        Next
    End With
End Sub

Bonjour Wilder,

Ça fonctionne très bien.

si vous avez le temps:

Pour que ça fonctionne sur environ 23,000 lignes, que dois-je changer ou rajouter.

Un gros Merci.

Jean

Rien. La macro gère jusqu'à la dernière ligne.

Bonjour Wilder,

Je mets mon fichier en pièce jointe depuis CJOINT car trop lourd.

La macro fonctionne sur le premier fichier que j'ai joint, mais ne fonctionne pas quand

j'ajoute le reste des lignes soit: (environ 23,000).

La macro ne bug pas, mais ne donne pas le résultat escompté.

Merci de votre aide.

Jean.

Bonjour,

sur base de quoi veux tu extraire les données exactement ? colonne E je crois mais quel critère ?

tu sais le faire par filtré élaboré mais il faut donner + de détails

un léger changement pour tester

Sub extr()

Dim c As Range

Feuil2.Select

With Feuil1

For Each c In Range(.Cells(2, 5), .Cells(Rows.Count, 5).End(xlUp))

If IsNumeric(c) Then

c = c * 1

If Len(c) = 5 Then

Range(.Cells(c.Row, 1), .Cells(c.Row, 10)).Copy Feuil2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

End If

End If

Next

End With

End Sub

P.

Bonjour Wilder,

Ce que j'ai besoin, c'est d'avoir les cellules de la colonnes E, avec 5 chiffres seulement. Les cellules qui contiennent des chiffres et des lettres, je ne les veux pas. (Mais je veux le résultat de la ligne complète).

Pour ce qui est du filtre élaboré, non pas trop familier avec.

Ou, si c'est possible, trier la colonne E, en fonction quelle contienne 5 chiffres et pas de lettre.

Merci.

Jean.

Voilà...

Sub extr()

    With Feuil1
        For i = 2 To .Cells(Rows.Count, 5).End(xlUp).Row
            On Error Resume Next
            .Cells(i, 5) = .Cells(i, 5) * 1
            If Len(.Cells(i, 5)) = 5 And IsNumeric(.Cells(i, 5)) Then
                Range(.Cells(i, 1), .Cells(i, 10)).Copy Feuil2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
            End If
        Next
    End With
End Sub
sans titre

Bonjour Wider,

Excuse-moi pour le délai de réponse.

La dernière syntaxe répond exactement à mon besoin.

Un très GROS MERCI.

Jean.

Bonne continuation.

Rechercher des sujets similaires à "extraire colonne resultat chiffres seulement"