Récupération de données lorsque le seuil est atteint

Bonjour,

J'ai 3 colonnes

1 - Pays

2 - Oui/Non

3 - Nombre d'échec

J'aimerais ressortir le pays et le nombre d'échec lorsqu'il dépasse la valeur 100.

Mais si un même pays a plusieurs valeurs dépassant 100 nous prendrons la plus grandes d'entre elles

Merci

Je pense que cela n'est pas très compliqué pour vous

bonjour,

une solution via une macro

Sub aargh()
    Set d = CreateObject("scripting.dictionary")
    With ActiveSheet
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            If d.exists(.Cells(i, 1).Value) Then
                If .Cells(i, 3) > d(.Cells(i, 1).Value) Then d(.Cells(i, 1).Value) = .Cells(i, 3)
            Else
                d.Add .Cells(i, 1).Value, .Cells(i, 3)
            End If
        Next i
        k = d.keys
        da = d.items
        With Range("F1")
            For i = 1 To d.Count
                If da(i - 1) > 100 Then
                    .Cells(i, 1) = k(i - 1)
                    .Cells(i, 2) = da(i - 1)
                End If
            Next i
        End With
    End With
End Sub

Bonjour h2so4

Merci de ta réponse.

J'ai encore 2 petites chose...j'aimerais savoir comment faire pour mettre le résultat sur une autre feuille.

Puis ma deuxième requête... j'aimerais pouvoir faire une moyenne de chaque pays et le remonté si la valeur trouvée est supérieure à 70

Pourrais tu m'aider?

re-bonjour,

réponses à tes questions via des TCDs

Salut,

Je vois bien tes Tcds mais mon code n’a pas bougé.

Ce qui m’empêche de le reproduire. Je ne sais pas comment tu pas réussi lol

re-bonjour,

pour faire un TCD

sélectionner le tableau des données,

faire menu insérer TCD

mettre pays en ligne

mettre nombre d'échecs en donnée

sélectionner la valeur que l'on veut afficher pour nombre d'échecs (tu souhaites le max et la moyenne)

faire clic droit sur le tableau colonne pays, choisir filtrer sur les valeurs mettre >=100 ou >=70 selon le résultat que tu cherches à obtenir.

Je vois! j'avais mal compris...

Je vais retravailler dessus ce soir et demain matin je reviendrais vers toi car j'ai une dernière zone d'ombre a éclaircir.

Je pense que ça sera facile pour toi.

En tous cas je te remercie énormément

Salut j'ai un nouveau fichier et malgré ce que tu m'a donner je n'arrive pas a le refaire sur mon fichier.

Je souhaiterais comme précédemment sur une nouvelle page

• Les services (colonne A) ayant une moyenne supérieure a 100
• Les services dépassant la valeur 1000

Pourrais tu m'aider?

C'est ma dernière question...

bonjour,

sans fichier, ça va être difficile

Mince je pensais l'avoir inseré, mais le fichier était trop volumineux

Voici

re-bonjour,

je t'ai mis le fichier ici

Merci j'ai compris comment faire les tableaux croisé dynamique et ta technique avec la moyenne et le max passe parfaitement je vais enregistrer une macro en faisant ces manip.

Mais je n'arrive pas a refaire la macro avec mes colonnes en me basant sur celle que tu m'avais fais

Je parle de cette macro la

J'aimerais pouvoir l'adapter a mon autre fichier

Sub aargh()

Set d = CreateObject("scripting.dictionary")

With ActiveSheet

dl = .Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To dl

If d.exists(.Cells(i, 1).Value) Then

If .Cells(i, 3) > d(.Cells(i, 1).Value) Then d(.Cells(i, 1).Value) = .Cells(i, 3)

Else

d.Add .Cells(i, 1).Value, .Cells(i, 3)

End If

Next i

k = d.keys

da = d.items

With Range("F1")

For i = 1 To d.Count

If da(i - 1) > 100 Then

.Cells(i, 1) = k(i - 1)

.Cells(i, 2) = da(i - 1)

End If

Next i

End With

End With

End Sub

J'ai trouver ma réponsea a ma question maintenant j'aimerais savoir comment on fais pour récupérer les 2 premières colonne a partir de la ligne 4

Bonjour,

peux-tu être plus précis ?

quelles colonnes ? sur quelle feuille ? à mettre où ?