Extraction à partir d'une base de donnée

Bonjour,

Je refait ce poste en plus simple.

En PJ voici un exemple de fichier, ce fichier trouvé sur le net (aucun crédit ne me revient ^^ ) correspond parfaitement à mon probleme mais en plus simple.

Dans le fichier le tableau reprend les données d'une base selon la colonne et la ligne. Or si il y a deux solutions il ne les met pas dans la meme case.

J'ai reussi à refaire la formule en VBA mais le probleme persiste, je n'ai qu' une solution d'affiché.

mon VBA est :

Sub convert()

For Each c In Range("A2", [A65000].End(xlUp))

y = Application.Match(c, [F9:f11], 0)

x = Application.Match(c.Offset(0, 1), [g8:i8], 0)

If Not IsError(x) And Not IsError(y) Then

[F8].Offset(y, x) = c.Offset(0, 2)

End If

Next c

End Sub

le fichier contient encore 2/3 précisions

Merci d'avance pour votre aide !

Kevin

Bonjour

Testes cette macro

Sub convert()
  Range("G9:I12").ClearContents
  For Each c In Range("A2", [A65000].End(xlUp))
    y = Application.Match(c, [F9:f11], 0)
    x = Application.Match(c.Offset(0, 1), [g8:i8], 0)
    If Not IsError(x) And Not IsError(y) Then
      [F8].Offset(y, x) = Trim([F8].Offset(y, x) & " " & c.Offset(0, 2))
    End If
  Next c
End Sub

Ca marche pour le moment !!

je vais l'appliquer a mon cas !

Merci beaucoup pour votre aide !