Extraction

[eutrophisation]

Bonjour tout le monde

Veuillez bien m'aider à trouver la solution adequate pour extraire des numeros par VBA de préférence ou par formule matricielle en operant verticalement.
ci joint fichier

 

[Softmama]

Re : Extraction

Bonjour,

ce petit code à affecter à ta liste déroulante répond à ton besoin.

Sub Macro1()
Application.ScreenUpdating = False
    Critère = [B7]
    Cells.Rows(13).ClearContents
    Sheets("DONNEES").Activate
    Set c = Range("A6:D" & [D65536].End(xlUp).Row)
    c.AutoFilter
    c.AutoFilter Field:=4, Criteria1:=Critère
    Intersect(c.SpecialCells(xlCellTypeVisible), Columns(1)).Copy
    Sheets("Surveillance").Activate
    [D13].Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= False, Transpose:=True
    c.AutoFilter
End Sub

 

[Dull]

Re : Extraction

Salut eutophisation, le Forum

Peut-être comme cela

=SI($B$7="A";1;SI($B$7="B";2;SI($B$7="C";3;SI($B$7="D";4;""))))

en D13 de la feuille Surveillance et

=D13+4

en E13 à incrémenter vers la Droite

Sous réserve que j'ai bien compris car en D22 de la Feuille Données il devrait y avoir un A et non un D

A Tester

EDITION: Salut Softmama 🙂

Bonne Journée

 

[ROGER2327]

Re : Extraction

Bonjour à tous

Une solution avec une formule dans le classeur joint.
​

ROGER2327
#4446

Lundi 2 As 138 (Sainte RroSainte Sélavy, héroine, SQ)
14 Brumaire An CCXIX
2010-W44-4T12:08:35Z

 

[ROGER2327]

Re : Extraction

Pas de suite à cette discussion. N'y a-t-il rien d'intéressant dans l'une quelconque des réponses ?


ROGER2327
#4464

Mercredi 4 As 138 (Saint Cravan, boxeur, SQ)
16 Brumaire An CCXIX
2010-W44-6T17:09:48Z