XL 2016 Récupération de valeur de plusieurs cellule dans autre page

[kontractor08]

Bonjour à tous

je viens encore une fois m' en remettre à vos lumières,

j'aurais besoin de re-importé dans un autre onglet nommé sheets("POSITIONS") si l'on trouve le mot "POSITIF" "NEGATIF"" ININTERPRETABLE" OU "GENE E"
les valeurs des cellules colonne A et B de la sheets("SERIE") de leur ligne respective

si POSITIF valeur colonne A concaténé avec valeur colonne B (ex: 12H ou 5B) dans le tableau avec entête POSITIF sheets("POSITIONS")

et pareil pour les 3 autres exemples

je vous joint un fichier exemple *


merci par avance à tous

 

[sylvanu]

Bonjour Kontractor,
Un essai en PJ avec :

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Range("A2:G10000").ClearContents
    With Sheets("SERIE ")
        For L = 14 To .Range("M65500").End(xlUp).Row
            Valeur = .Cells(L, "A") & .Cells(L, "B")
            Select Case .Cells(L, "M")
                Case "POSITIF"
                    Range("A" & Range("A65500").End(xlUp).Row + 1) = Valeur
                Case "NEGATIF"
                    Range("G" & Range("G65500").End(xlUp).Row + 1) = Valeur
                Case "ININTERPRETABLE"
                    Range("C" & Range("C65500").End(xlUp).Row + 1) = Valeur
                Case "conforme"
                    Range("E" & Range("E65500").End(xlUp).Row + 1) = Valeur
            End Select
        Next L
    End With
End Sub

La macro se lance quand on sélectionne la feuille "POSITIONS".
Par déduction j'en ai conclu que "conforme" devait se ranger dans la colonne "Gene e" sinon modifiez le code en conséquence.

 

[Hasco]

Bonjour,

Puisque excel 2016, une proposition par requête Power Query.

1 - une requête principale qui groupe les items par Conclusion
2 - un fonction qui permet d'extraire de cette première requête les données idoines par nom de conclusion
3 - une requête par groupe de conclusion par appel à la 2

Actualiser lorsque les données ont changé.

Cordialement

 

[kontractor08]

Bonjour Kontractor,
Un essai en PJ avec :

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Range("A2:G10000").ClearContents
    With Sheets("SERIE ")
        For L = 14 To .Range("M65500").End(xlUp).Row
            Valeur = .Cells(L, "A") & .Cells(L, "B")
            Select Case .Cells(L, "M")
                Case "POSITIF"
                    Range("A" & Range("A65500").End(xlUp).Row + 1) = Valeur
                Case "NEGATIF"
                    Range("G" & Range("G65500").End(xlUp).Row + 1) = Valeur
                Case "ININTERPRETABLE"
                    Range("C" & Range("C65500").End(xlUp).Row + 1) = Valeur
                Case "conforme"
                    Range("E" & Range("E65500").End(xlUp).Row + 1) = Valeur
            End Select
        Next L
    End With
End Sub

La macro se lance quand on sélectionne la feuille "POSITIONS".
Par déduction j'en ai conclu que "conforme" devait se ranger dans la colonne "Gene e" sinon modifiez le code en conséquence.

Merci à toi sylvanu
ton code est nikel


à bientot

 

[Hasco]

Euh !? Suis-je invisible ?

 

[kontractor08]

Euh !? Suis-je invisible ?

Dsl Roblochon
je n'avais pas essayé ta solution qui je n'en doute pas doit surement fonctionner
merci à toi et de l'intérêt que tu as apporté à ma requête