XL 2019 CalculPosition

[GUERET]

Bonsoir,
Dans la feuille "Pilotes" en H5, lorsque j'affiche la position voulue avec la flèche, pendant une fraction de seconde j'ai le bon résultat qui disparait pour afficher n'importe quoi par la suite. Où ai-je commis l'erreur svp ? C'est une formule que j'ai bidouillé de toutes pièces....

GP-Motos-2020-modifié.xlsm

www.cjoint.com

 

[Pounet95]

Bonjour,
Je n'ai pas bien compris "position voulue avec la flèche" !
En regardant le code VBA de la feuille, il y a des lignes en trop qui sont peut-être l'origine du problème.
Corriger et voir

Claude alias Pounet95

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


*****************************************************************
Que font là ces instructions ? Elles devraient être effacées ;

 Tri()   ! pas besoin de parenthèse pour lancer la procédure 

End Function

******************************************************************

 

[GUERET]

Bonjour,
Tout d'abord, je ne suis pas un pro sur Excel🙁 🙂.
J'ai essayé, dans un premier temps, d'aller dans la VBA et de retirer les parenthèses Tri. Dès que je rentre la position dans la boite de dialogue en H5, le bon résultat s'affiche quelques secondes avant de me donner un faux résultat.
Ensuite, j'ai supprimé toute la VBA et résultat idem. Je ne vois toujours pas l'erreur.....
Je réfléchis encore😎
D'avance, merci pour le coup de main

 

[job75]

Bonsoir GUERET, Pounet95,

J'ai un peu amélioré les fonctions, elles fonctionnent toutes deux très bien maintenant :

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

Le fichier sur cjoint : https://cjoint.com/c/JJsrv3iZfXu

A+

 

[GUERET]

Woaw, ouf, ça y est, je vois le bout du tunnel.
Merci.
Amicalement

 

[Pounet95]

Bonsoir Job75
J'avais vu que la fonction CalculPosition était présente dans la feuille Pilotes et dans le module Formules.
Ainsi que la présence des verrues signalées avant.
Bon, tu as réparé, c'est super.

Pour ma culture personnelle; :
Il y a une procédure Tri dans chaque module de feuille. Et dans chacune d'entre elles il y avait une des clés définie sur une autre feuille.
Il en reste une dans ce, celle de l'onglet Pilotes ( voir code)
Ca fonctionne ça ?

Ce qui ne trouble pas plus apparemment, c'est la double présence de MARQUES Alex dans la liste des pilotes ( ... à moins qu'il y ait un caratère non visible ? )

Bonne soirée
Claude alias Pounet95

Sub tri()
     
        Application.ScreenUpdating = False
     
        With[B][I] Sheets("Pilotes")[/I][/B].Sort
            .SortFields.Clear
            .SortFields.Add Key:=[B][I]Sheets("Écuries")[/I][/B].Range("C5"), Order:=xlDescending
            .SetRange Sheets("Écuries").Range("B5:C30")
            .Apply
        End With
     
        Application.ScreenUpdating = True

    End Sub

 

[GUERET]

Bonjour, quand j'ouvre mon fichier, il m'affiche "erreur d'exécution '9' sur la ligne que j'ai mis en gras italique. Chui pas fort en VBA. De quoi cela provient-il ? Une explication simplifié en plus m'aiderait beaucoup pour la suite.
Amicalement

Sub tri()

Application.ScreenUpdating = False

With Sheets("Pilotes").Sort
.SortFields.Clear
.SortFields.Add Key:=Sheets("Écuries").Range("C5"), Order:=xlDescending
.SetRange Sheets("Écuries").Range("B5:C25")
.Apply
End With

Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
tri
Application.EnableEvents = True
End Sub



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

 

[Pounet95]

Bonjour,
Pas de problème ( sauf à la 1ère ouverture), ça fonctionne avec le fichier de Job75 !!!!
Claude

 

[GUERET]

Juste pour info, pourquoi cela ne fonctionne pas dans ce que j'ai envoyé ?

 

[job75]

Bonjour GUERET, Pounet95,

La macro tri de la feuille "Pilotes" (post #7) ne va pas : remplacer "Écuries" par "Pilotes".

A+

 

[Pounet95]

Bonjour,
C'est ce que je disais post #6

 

[GUERET]

Je commence à comprendre et encore merci pour votre patience à tous 2
Amicalement

 

[GUERET]

Bonsoir, puis-je abuser un peu de votre patience ?
Dans ce tableau, je cherche à savoir les lieux où le pilote a obtenu sa ou ses places (si le H2 j'affiche 2, il me donne le nombre de fois où chaque pilote a finit 2ième). Je ne sais pas si ce que je dis est clair..... J'ai tenté cette formule mais il me dit que j'ai entré un nbre trop important d'arguments...

=SI(EQUIV(Pilotes!H5;Melbourne!D5;0;Melbourne;""))

ReGP2-Motos-2020-modifié-LE-29-10.xlsm

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

​

 

[job75]

Bonsoir GUERET,

Dans ce tableau, je cherche à savoir les lieux où le pilote a obtenu sa ou ses places

Cela ne me paraît pas avoir grand sens puisque la place dépend des résultats de plusieurs courses.

A+

 

[GUERET]

Chui d'accord c'est pour ça que j'aurais voulu savoir si cela était possible ou pas vu mon p'tit niveau ! Sans ça, tant pis pour moi😛