XL 2016 Copie de donné dans une autre feuille

[Evictius]

Bonjour à tous,

J'éprouve des difficultés à copier des données sur une autre page en fonction de valeur prédéfinie.
Comme un exemple vaux plus que de longues palabres, vous trouverez ci-joint un exemple de ce que je souhaite réaliser.

ps: il est possible que plusieurs résultats soient dans la même case.

Je ne suis pas certain que tout ceci soit réalisable...

Merci d'avance pour vos réponses !

 

[Theze]

Bonsoir,

Je suis parti du principe que les plages sont fixes :

Sub Test()
   
    Dim Plage As Range
    Dim PlgX As Range
    Dim PlgY As Range
    Dim Cel As Range
    Dim CelX As Range
    Dim CelY As Range
   
    Set Plage = Worksheets("Feuil2").Range("A2:A5")
    Set PlgX = Worksheets("Feuil1").Range("B1:B4")
    Set PlgY = Worksheets("Feuil1").Range("C5:F5")
   
    For Each Cel In Plage
   
        Set CelX = PlgX.Find(Cel.Offset(, 1).Value, , xlValues, xlWhole)
        Set CelY = PlgY.Find(Cel.Offset(, 2).Value, , xlValues, xlWhole)
       
        If Not CelX Is Nothing And Not CelY Is Nothing Then
            Worksheets("Feuil1").Cells(CelX.Row, CelY.Column).Value = Cel.Value
        End If
       
    Next Cel
   
End Sub

 

[JBARBE]

Bonsoir à tous,
En cliquant sur le bouton "GO" !
Bonne soirée !

 

[JBARBE]

Re,
Quelques lignes de macro supplémentaires pour pouvoir compléter le tableau de la feuille 1 !
Bonne nuit !

 

[Evictius]

Il me semblait l'avoir fait mais visiblement ce n'est pas passé...
Un grand merci.

JBARBE pourrais tu me détailler ta macro ?

J'ai envoyé un tableau d'exemple mais ce n'est pas le tableau initial qui comprend des informations que je n'ai pas le droit de divulguer.

Merci !

 

[JBARBE]

Bonsoir à tous,
Les commentaires de la macro !
Bonne soirée !

 

[Evictius]

Bonsoir à tous,
Les commentaires de la macro !
Bonne soirée !

Merci infiniment !