Points de pénalités sur une ligne

[marcelio]

Bonjour le Forum,

Dans le championnat de foot (de mon fils) qui comporte 22 équipes, il y à souvent des points de pénalités.
Y à t’il une formule qui pourrais me donner ceci sur une ligne seulement pour les équipes qui ont moins de 0,
Janvier : -5 points, Mars : -1 point, Octobre : -3 points
Janvier -5
Février 0
Mars -1
Avril 0
Mai 0
Juin 0
Juillet 0
Août 0
Septembre 0
Octobre -3
Novembre 0
Décembre 0

Merci d'avance pour votre aide
Marcelio

 

[vgendron]

hello
voir PJ avec fonction personnalisée
pour voir le code associé: ouvrir editeur VBA (Alt +F11)
pour utiliser la fonction, voir cellule V32

 

[vgendron]

J'aurai peut etre du appeler la fonction "Pénalités".. ;-)

du coup, j'en profite pour la remettre ici avec quelques explications en vert dans le code

Function Penalités(equipes As Range)
'pour chaque ele de la zone sélectionnée -
For Each ele In equipes
    'si les points associés à droite sont négatif
    If ele.Offset(0, 1) < 0 Then
        'on inscrit le nom de l'équipe et les points dans le résultat final
        Penalités = Penalités & " " & ele & " :" & ele.Offset(0, 1) & " point(s), "
    End If
Next ele
End Function

 

[marcelio]

Bonjour vgendron,
Merci pour ton code celui fonctionne correctement.
Mais est il possible qu'il soit actualiser automatiquement, je m'explique si je met -5 à Février il faudrait qu'il s'affiche directement dans la formule.
Merci pour ton aide
Marcelio

 

[vgendron]

ah oui.
il faut juste ajouter une ligne

Function Penalités(equipes As Range)
application.volatile
'pour chaque ele de la zone sélectionnée -
For Each ele In equipes
   'si les points associés à droite sont négatif
   If ele.Offset(0, 1) < 0 Then
       'on inscrit le nom de l'équipe et les points dans le résultat final
       Penalités = Penalités & " " & ele & " :" & ele.Offset(0, 1) & " point(s), "
   End If
Next ele
End Function

 

[marcelio]

Re,
Merci beaucoup c'est super.
Bonne soirée à toi et au Forum.
Marcelio