Recherche et copiz dans autre ligne

Bonjour les amis svp j'ai besoin de votre aide

j'ai une macro qui me fais une recherche de donnée et elle me les affecte dans un tableau sauf que dans ce tableau dans la colonne AE pour chaque familles j'ai des fois une information et des fois j'ai deux information

ce que je veux faire moi c'est que si une famille correspond a 2 information dans la colonne AE

exemple " alése abs "correspond a Plat5/ Plat6

je veux que dans mon tableau je crée une ligne qui correspoand a Plat5 et une ligne qui correspond a Plat6

je sais pas comment je peux faire ca ?

voila une image du tableau et un lien pour récupérer le fichier car il est trop volumineux (voir les modules 3 / 4 ET 5 )

merci

voiila la macro dans la quel il faux que je rajoute la condition de revenir a la ligne mais je sais pas comment

aidez moi svp je suis bloquer

mercii

Sub essais()

Dim Dico As New Dictionary
Dim x As Integer
Dim i As Integer
Application.ScreenUpdating = False

With Sheets("Qtité Famille")

For x = 6 To Range("A" & Rows.Count).End(xlUp).Row 'De la ligne 6 a la dernière avec des données
    For i = 5 To 10 'De la colonne E à la colonne J
        If Not Dico.Exists(.Cells(x, 1).Value) And .Cells(x, i) = True Then  'Si la cellule est vrai et que ca n'existe pas dans le dico
        Dico.Add .Cells(x, 1).Value, .Cells(5, i).Value 'récupère les valeurs
        'Dico.Item(.Cells(x, 1).Value) = Dico.Item(.Cells(x, 1).Value)
        ElseIf Dico.Exists(.Cells(x, 1).Value) And .Cells(x, i) = True Then 'si la cellule est vrai et que ca existe déjà dans le dico
         Dico.Item(.Cells(x, 1).Value) = Dico.Item(.Cells(x, 1).Value) & " / " & .Cells(5, i).Value 'récupère les anciennes et nouvelles correspondances
        End If

    Next i 'colonne suivante
Next x 'ligne suivante

For x = 6 To Range("X" & Rows.Count).End(xlUp).Row 'De la ligne 6 a la dernière avec des données
    On Error Resume Next 'si erreur ligne suivante
    .Range("AE" & x).Value = Dico(.Range("X" & x).Value) 'Donne les correspondances
Next x 'ligne suivante

End With
Application.ScreenUpdating = True

End Sub

Bonjour,

sans aller plus loin pour le moment, grosse erreur dans ta formule en AI6: (et celles à gauche aussi )

=RECHERCHEV(X6;AK6:AO121;5;FAUX)

tu dois mettre des références absolues avec les $ ou bien nommer les colonnes dans le tableau de recherche

=RECHERCHEV(X6;table;5;FAUX) "table" étant tes données AK6 à AO121

ou

=RECHERCHEV(X6;$AK$6:$AO$121;5;FAUX)

P.

merci pour ta réponse mais moi je veux la solution pour ce que j'ai demander svp merci

Barahaoua a écrit :

merci pour ta réponse mais moi je veux la solution pour ce que j'ai demander svp merci

Aux enfants on les reprends et on dit "je voudrais" soit dit en passant

J'espère que tu vas en tenir compte, parce que tout les chiffres sont faussés en ne mettant pas les références absolues

Si tu expliquais mieux ton soucis avec un exemple + clair, tu aurais plus d'aide, parce que ton code seul n'aide pas à comprendre ta demande ...

j'ai pris en compte merci je l'est meme corrigé dans mes formules merci

je voudrais que la discussion sois plus sur le but de la question merci pour vos interventions