formule condition excel

[bilobaba]

bonjour,

veuillez trouver ci-joint un fichier deux feuilles, sur la 2eme le résultat que je souhaite obtenir avec une formule condition qui va donner le résultat de la colonne I , ensuite les autres (le résultat qui se trouve mnt sur la 2 eme je l'ai remplis un par un avec copier coller du coup je cherche une formule qui m'aidera à le faire rapidement sur un grand nombre de ligne)

je vous remercie d'avance de votre aide

 

[JHA]

Bonjour à tous,

Un essai avec une colonne sup

JHA

 

[Shakki]

Bonjour bilobaba et JHA,

Une autre tentative avec des formules matricielles (cf feuille Essai)

A+

 

[bilobaba]

Bonjour bilobaba et JHA,

Une autre tentative avec des formules matricielles (cf feuille Essai)

A+

BONJOUR shakki,

le formule semble bonne et fonctionne bien, je te remercie bien
mais je comprend pas du tout comment t'as pu faire ça, elle est trop complexe pour moi,
et est ce que y a un moyen de faire un petit code VBA et une macro avec ça pour que ça soit rapide et efficace ?

salut

 

[bilobaba]

Bonjour à tous,

Un essai avec une colonne sup

JHA

Bonjour JHA,

je te remercie pour ta réponse, la formule est bonne aussi,
y a un moyen de faire un petit code VBA?

A plus

 

[thebenoit59]

Bonjour bilobaba, JHA et Shakki.
Voilà une première idée en VBA

Sub Extraction_PickUp()
Dim f As Worksheet
    Set f = Sheets("résultat souhaité")
    f.[b2].CurrentRegion.Offset(1).Clear
    With Sheets("MRT")
        .[d5].AutoFilter Field:=8, Criteria1:=">4"
        .[d5].CurrentRegion.Offset(1).Copy
        With f.[b3]
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlValues
        End With
        .[d5].AutoFilter
    End With
    With f.Sort
        .SortFields.Add Key:=f.[i3], SortOn:=xlSortOnValues, Order:=xlDescending
        .Header = xlNo
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[bilobaba]

Bonjour bilobaba, JHA et Shakki.
Voilà une première idée en VBA

Sub Extraction_PickUp()
Dim f As Worksheet
    Set f = Sheets("résultat souhaité")
    f.[b2].CurrentRegion.Offset(1).Clear
    With Sheets("MRT")
        .[d5].AutoFilter Field:=8, Criteria1:=">4"
        .[d5].CurrentRegion.Offset(1).Copy
        With f.[b3]
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlValues
        End With
        .[d5].AutoFilter
    End With
    With f.Sort
        .SortFields.Add Key:=f.[i3], SortOn:=xlSortOnValues, Order:=xlDescending
        .Header = xlNo
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Bonjour thebenoit59,

merci pour ta réponse

je viens d'essayer le code mais il fait juste un copie coller et la colonne pickup les résultat sont pas just
car si je met à jour la feuille MRT, dans le résultat feuille 2 il s'actualise pas.

A plus

 

[thebenoit59]

Re,

Les résultats sont justes à l'instant T.
Il ne s'agit pas d'une procédure événementielle, qui te prendrai plus de ressources, cette procédure est à lancer toi même quand tu souhaites actualiser ton tableau.

 

[bilobaba]

BONJOUR,


je viens de voir l'erreur sur le fichier,
en fait la colonne pick up peut avoir des lignes identique (c'est a dire un même chiffre ) ce qui donne une erreur avec la formule ,

sur la colonne pick up par exemple on peut voir 4 fois le même chiffre , mais sur les autres colonne juste des doublons (même dates , même jours) ce qui ne doit pas etre

pouvez vous regarder svp

je vous remercie d'avance

cdl
b