Formatage ligne en colonne avec recherche sur un attribut

Bonjour,

Très bonne année à tous.

En pièce jointe j'ai un fichier avec en ligne des voitures avec des attributs, certaines cellules peuvent être vide.

Je souhaiterai quand je saisi la cellule jaune avec le nom "voiturea" ou "voitureb" ... que l'ensemble des attributs de la voiture soit affiché en dessous en colonne sans les cellules vides.

Quelqu'un pourrait-il svp m'aiguiller sur les formules à utiliser ?

Merci à vous

Bonjour,

Une proposition à étudier.

Cdlt.

Bonjour

Super merci beaucoup

Tu peux m'expliquer un peu ce que tu as fait stp que j'arrive à faire évoluer le fichier par moi-même ensuite ??

Bonne journée

Bonjour,

Des éléments de réponse de le fichier joint.

J'utilise VBA et la procédure événementielle Worksheet_Change() .

A te relire.

Cdlt.

Bonsoir,

J'ai essayé d'appliquer votre code à un nouveau fichier mais je n'y parviens pas

J'ai mis un onglet DATA ou j'ai mon tableau avec toutes mes données.

Et J'ai un autre onglet FICHE qui est la fiche que je veux ressortir.

Ce que je n'ai pas réussi c'est d'adapter le VBA pour être sur deux onglets différents avec un tableau plus grand.

Dans l'onglet fiche, lorsque je met le nom de la voiture en celulle D6, j'aimerai avoir les caractéristiques s'afficher à la suite à partir de la cellule C21 et cerise sur le gâteau sur 2 colonnes si cela dépasse la cellule C40.

Avez-vous la possibilité svp de m'assister dans cette demande ?

Merci

Salut vallesm77,

Salut Jea,-Eric,

A tester en situation réelle...

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim rCel As Range
'
If Not Intersect(Target, Range("D6")) Is Nothing Then
    If Target <> "" Then
        On Error Resume Next
        With Worksheets("Data")
            Set rCel = .Columns(6).Find(what:=Target, lookat:=xlWhole)
            If Not rCel Is Nothing Then
                Range("G9").Value = .Range("X" & rCel.Row).Value
                Range("G10").Value = .Range("Y" & rCel.Row).Value
                Range("C21:I40").ClearContents
                iCol = 3: iRow = 20
                For x = 36 To .Cells(9, .Columns.Count).End(xlToLeft).Column
                    If .Cells(rCel.Row, x) <> "" Then
                        If iRow + 1 = 41 Then
                            iRow = 21
                            iCol = 7
                        Else
                            iRow = iRow + 1
                        End If
                        Cells(iRow, iCol) = .Cells(rCel.Row, x)
                    End If
                Next
            End If
        End With
        On Error GoTo 0
    End If
End If
'
End Sub

A+

Salut curulis57, Jean-Eric

Merci beaucoup, je vais tester cela. Vous êtes des vrais tueur ici. A peine je dors et je me réveil et hop vous avez déjà une solution ! respect

Bonne journée