Boite de dialogue

Bonsoir,

Je souhaiterai, dans ma feuille "Pilotes" créer une boite de dialogue en H5 qui me permettrait d'afficher le nombre de fois où le pilote a fini 1er, 2ème etc...

Je ne suis pas très fort en VBA d'où ma requête. Une petite explication en plus m'aiderait fortement.

Amicalement

Bonjour hendji Qu'est-ce que tu entends pas

hendji a écrit :

créer une boite de dialogue en H5

Une boite de dialogue ne se créée pas dans une cellule !?

@+

Bonsoir, je me suis mal exprimé c'est vrai.

Mais, ça y est, j'ai réussi à trouver la solution en fouillant de gauche à droite
Merci encore pour ta sollicitude et ta promptitude.

Amicalement

Re,

Il serait alors bien de mettre la solution sur ce forum...
toujours penser à celui qui cherchera demain une solution telle que la tienne

@+

Je n'ai pas mis de ce que je voulais, c'est-à-dire qu'en affichant un chiffre (un filtre en quelque sorte), je calculais le nombre où le pilote avait fini 1er, 2ème etc... J'ai fais mon calcul avec "CalculPosition" qui me pose souci. À chaque fois, il me donne le bon résultat pendant quelques secondes avant de m'afficher le chiffre 4 su toutes mes cellules concernées par cette formule...Maintenant, je cherche à savoir pourquoi...

Amicalement

Voilà la solution que m'a donné un internaute et qui FONCTIONNE ENFIN !

Function CalculPosition&(Nom$)
Application.Volatile
Dim Course, i%, PosNom As Variant
Course = Array("Espagne", "Andalousie", "Tchèque", "Autriche", "Styrie", "Saint-Marin", "Emilie-Romagne", _
    "Catalogne", "France", "Aragon", "Teruel", "Europe", "Valence", "Portugal")
For i = 0 To UBound(Course)
    With Sheets(Course(i))
        PosNom = Application.Match(Nom, .Range("A:A"), 0)
        If IsNumeric(PosNom) Then If .Range("D" & PosNom) = Sheets("Pilotes").Range("H3") Then CalculPosition = CalculPosition + 1
    End With
Next
End Function

Function CalculPool(Nom$)
Application.Volatile
Dim i%, PosNom As Variant
For i = 1 To Application.CountIf([Courses], "*")
    With Sheets(CStr([Courses].Cells(i, 1)))
        PosNom = Application.Match(Nom, .Range("A:A"), 0)
        If IsNumeric(PosNom) Then If .Range("E" & PosNom) Then CalculPool = CalculPool + 1
    End With
Next
End Function

Merci encore pour ton aide
Amicalement