Condition imbriquée VBA exécutable sur une plage de cellules

Bonjour,

Je souhaite visualiser le cumul des points totalisés par des équipes en fonction de leurs résultats.

A chaque fois qu'un match est joué les points sont rajoutés au cumul précédent.

Si l'équipe a gagné ("G") en colonne C alors 3 points en colonne B.

Si match nul ("N") en colonne C alors 2 points en colonne B sinon 1 point.

J'ai réalisé un calcul en VBA mais celui ne fonctionne que pour la cellule B2 (voir feuille Résultats équipes avec Select Case) et je n'arrive pas à l'étendre aux autres cellules de B2 à B7.

Merci de m'éclairer sur cette question épineuse.

A+

Bonjour et bienvenue sur le forum,

Met le code suivant dans le module de la feuille 1 et teste :

Private Sub Worksheet_Change(ByVal Target As Range)
   'délimiter la zone de saisie
    If Not Intersect(Target, Range("C2:C7")) Is Nothing Then
        If Target = "G" Then 'Ajouter 3 points 
            Target.Offset(0, -1) = Target.Offset(0, -1) + 3
        ElseIf Target = "N" Then 'Ajouter 2 points
            Target.Offset(0, -1) = Target.Offset(0, -1) + 2
        ElseIf Target = "P" Then ' Ajouter 1 point
            Target.Offset(0, -1) = Target.Offset(0, -1) + 1
        End If
    End If
End Sub

Ok Merci.

Rechercher des sujets similaires à "condition imbriquee vba executable plage"