Filtrer ou Trie un tableau ayant un caractère dans les cellules

Bonsoir,

Je suis face à un problème et j'aimerai avoir vos lumière dessus.

Actuellement, je possède un tableau avec des données ayant un caractère spécial, autrement dit un astérisque dans les cellules.

Savez-vous comment je puisse faire un trie ou filtre ou autre pour avoir qu'un tableau avec les cellules ayant des astérisques ?

Je vous ai fait un exemple de ce que j'aimerai avoir comme résultats final.

Merci par avance,

Cordialement,

Bonjour,

Peut être avec un TDC mais je ne connais pas assez bien donc, une ébauche de code VBA qui reproduit ton tableau résultat mais je soupçonne que le tableau originel est malgré tout différent de celui présenté donc, en attendant plus de précisions, voici le bout de code. Supprimes ton tableau de résultat et exécutes la Sub :

Sub Test()

    Dim Plage As Range
    Dim Cel As Range
    Dim I As Integer

    Set Plage = Range("D3:G6")
    I = 2
    For Each Cel In Plage

        If InStr(Cel.Value, "*") <> 0 Then

            I = I + 1

            Cells(I, 13).Value = Plage(Cel.Row - 2, 1).Offset(, -3).Value
            Cells(I, 14).Value = Plage(Cel.Row - 2, 1).Offset(, -2).Value
            Cells(I, 15).Value = Plage(Cel.Row - 2, 1).Offset(, -1).Value
            Cells(I, 16).Value = Replace(Cel.Value, "*", "")
            Cells(I, 17).Value = Plage(1, Cel.Column - 3).Offset(-1).Value

        End If

    Next Cel

End Sub

Bonjour

Bonjour à tous

Une variante.

Bye !

Bonjour à tous

Une variante PowerQuery

Pour répondre à Theze, pas possible en TCD pour plusieurs raisons

Erreur, double post

Bonjour à tous,

Merci d'avoir réagi à mon post.

Ayant testé les différentes façons, je ne sais que choisir

Je tiens à vous remercier

Storm28.

Re,

Pour avoir essayer, c'est top mais, j'essaie de me débrouiller avec les différents codes que vous m'avez proposé.

Maintenant, j'aimerai que mon tableau de départ est dans un onglet ("X") et que mon tableau final ("Extraction") se trouve dans un onglet.

J'essaie avec Sheet=("Extraction"), mais en vain ...

C'est peut être du débutant mais, je sèche là

Storm28

De la feuille "Feuil1" à la feuille "Feuil2" :

    
    Dim Plage As Range
    Dim Cel As Range
    Dim I As Integer

    Set Plage = Worksheets("Feuil1").Range("D3:G6")

    I = 2

    With Worksheets("Feuil2")

        .Range("A1:E1").Value = Array("Heure", "Nom", "Prénom", "Nombre", "Lot")

        For Each Cel In Plage

            If InStr(Cel.Value, "*") <> 0 Then

                I = I + 1

                .Cells(I, 1).Value = Plage(Cel.Row - 2, 1).Offset(, -3).Value
                .Cells(I, 2).Value = Plage(Cel.Row - 2, 1).Offset(, -2).Value
                .Cells(I, 3).Value = Plage(Cel.Row - 2, 1).Offset(, -1).Value
                .Cells(I, 4).Value = Replace(Cel.Value, "*", "")
                .Cells(I, 5).Value = Plage(1, Cel.Column - 3).Offset(-1).Value

            End If

        Next Cel

    End With

End Sub

Merci pour la solution, mais lorsque je l'adapte, je suis en défaut (erreur d'exécution '1004) et la ligne .Cells(I, 1).Value = Plage(Cel.Row - 2, 1).Offset(, -3).Value est en jaune ...

Pourquoi ?

Storm28

Probablement que ton tableau ne se trouve pas pile au même endroit que sur le classeur exemple ?

Malheureusement, ce n'est pas ça, car j'ai bien l'entête du futur tableau mais, pas le reste ...

Est ce c'est à cause que mon 1er tableau manque des données et qu'il ne puisse pas générer ?

Bonjour,

Ton, classeur avec le code et un bouton pour le test :