Discussion :

[sivaaa]

Bonjour,
Je débute en macro et j'aurais besoin d'aide !

Je souhaite créer une feuille excel pour un système de pronostic.


Je souhaiterais que ma macro compare le résultat du match par rapport aux pronostics des joueurs pour ensuite incrémenter les points du joueur.

Voici ce que j'ai réussi à faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Calcul()
  If Range("G3").Value = Range("E3").Value Then
    Range("G243").Value = Range("G243").Value + 1
  End If
End Sub

Si la valeur en G3 est égale à la valeur en E3 alors, j'incrémente les points en G243 du joueur. Cependant cette macro ne fonctionne que pour le joueur 1.

J'aimerai que cette macro soit plus générique de façon à l'appliquer:
- aux autres joueurs (colonne G, ..., AB)
- aux autres matchs (3, ..., 242)
- et finalement incrémenter les points du joueur dans leur colonne respective (H243, ..., AB243)


Je vous remercie d'avance pour votre aide.

[MattChess]

Qu'en pensez-vous ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit ' Pronostic
' =============================== Description de la feuille Prono
Public Const rowMatchFirst = 3  ' rangée du premier match
Public Const rowMatchLast = 242 ' Dernier match
Public Const rowPlayerPoint = rowMatchLast + 1 ' Rangée des points des joueurs
 
Public Const colMatchScore = 5  ' Score du match
Public Const colPlayerFirst = 7 ' Colonne G du premier joueur
Public Const colPlayerLast = 28 ' Colonne AB du dernier joueur
 
Sub CalculProno()
Dim indRowMatch As Integer, indColPlayer As Integer
 
    Application.ScreenUpdating = False
    For indColPlayer = colPlayerFirst To colPlayerLast  ' Pour chaque joueur
        For indRowMatch = rowMatchFirst To rowMatchLast ' Pour chaque match
            If Cells(indRowMatch, indColPlayer).Value = Cells(indRowMatch, colMatchScore).Value Then
                Cells(rowPlayerPoint, indColPlayer).Value = Cells(rowPlayerPoint, indColPlayer).Value + 1
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

Dans la fenêtre d'Exécution immédiate (Ctrl+G) du VBE (Visual Basic Editeur) d'Excel, copier-coller et valider par ENTER :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CalculProno

Dans une feuille vide, cette macro écrit la valeur 240 de G243 à AB243 car le score vide de chaque match est égal au pronostic vide de chaque joueur.
___________

Si la discussion est résolue, vous pouvez cliquer sur le bouton

En bas de ce message s'il vous a apporté des éléments de réponse pertinents, pensez également à voter en cliquant sur le bouton vert ci-dessous.

[sivaaa]

Merci beaucoup pour ton aide, c'est bien ce que je voulais faire !
J'ai seulement rajouté une condition qui vérifie que le pronostic du match a bien été entré.

Voici mes modifications pour ceux que ca intéresse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit ' Pronostic
' ====================== Description de la feuille Prono
Public Const rowMatchFirst = 3  ' rangée du premier match
Public Const rowMatchLast = 242 ' Dernier match
Public Const rowPlayerPoint = rowMatchLast + 1 ' Rangée des points des joueurs
 
Public Const colMatchScore = 5  ' Score du match
Public Const colPlayerFirst = 7 ' Colonne G du premier joueur
Public Const colPlayerLast = 28 ' Colonne AB du dernier joueur
 
Sub CalculProno()
Dim indRowMatch As Integer, indColPlayer As Integer
 
    Application.ScreenUpdating = False
    For indColPlayer = colPlayerFirst To colPlayerLast  ' Pour chaque joueur
        For indRowMatch = rowMatchFirst To rowMatchLast ' Pour chaque match
        If (Cells(indRowMatch, colMatchScore).Value <> "") Then
            If Cells(indRowMatch, indColPlayer).Value = Cells(indRowMatch, colMatchScore).Value Then
                Cells(rowPlayerPoint, indColPlayer).Value = Cells(rowPlayerPoint, indColPlayer).Value + 1
            End If
        End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub