Bonjour a tous,

Je vous ecris pour un sujet qui me semblent facile pour autant j'ai beau chercher sur de nombreux forums et sites, je n'arrive pas pas a resoudre mon probleme.

Je souhaite creer un fichier excel pour la coupe du monde qui permet de comparer les resultats des matchs (colonnes C et E) avec les pronostics remplis dans le fichier (colonne J et L).
Exemple : france - angleterre (1 - 0) C = 1 et E = 0.

L'idee est que pour un pronostics parfait (bon resultat et bon score (nbre de buts pour les 2 equipes)) le nombre de points est de 3.
Pour un bon resultat (victoire, nul, defaite) sans le bon score le nombre de point est de 1.
Pour tout autre resultat, le nombre de point est 0.

le resultat est affiche dans le colonne numero 30.

Je ne pense pas qu'il s'agisse du meilleurs moyen mais je voulais utiliser des IF, ELSEIF et ELSE mais j'ai toujours des erreurs de type Elseif without IF, End IF without block IF et quand j'essaye de les corrgier, je n'arrive plus au bon resultat.

POurriez vous m'aider svp ?

Voici mon code ci dessous.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Dim x As Integer
Dim y As Integer
 
Dim RowNumber As Integer
For RowNumber = 2 To 100
 
    If Cells(RowNumber, 5) = "" Then Exit Sub
 
 
    If Cells(RowNumber, 5) > Cells(RowNumber, 7) Then
 
        If Cells(RowNumber, 10) > Cells(RowNumber, 12) Then
 
            If Cells(RowNumber, 5) - Cells(RowNumber, 7) = Cells(RowNumber, 10) - Cells(RowNumber, 12) Then Cells(RowNumber, 30) = "3"
 
            Else: Cells(RowNumber, 30) = "1"
 
            End If
 
         Else: Cells(RowNumber, 30) = "0"
 
         End If
 
 
    ElseIf Cells(RowNumber, 5) < Cells(RowNumber, 7) Then
 
     If Cells(RowNumber, 10) < Cells(RowNumber, 12) Then
 
        If Cells(RowNumber, 5) - Cells(RowNumber, 7) = Cells(RowNumber, 10) - Cells(RowNumber, 12) Then Cells(RowNumber, 30) = "3"
 
        Else: Cells(RowNumber, 30) = "1"
 
        End If
 
     Else: Cells(RowNumber, 30) = "0"
 
    End If
 
 
 
    ElseIf Cells(RowNumber, 5) = Cells(RowNumber, 7) Then
 
     If Cells(RowNumber, 10) = Cells(RowNumber, 12) Then
 
        If Cells(RowNumber, 5) = Cells(RowNumber, 10) Then Cells(RowNumber, 30) = "3"
 
        Else: Cells(RowNumber, 30) = "1"
 
        End If
 
       End If
 
 
 
 
  Next RowNumber
 
End Sub
merci

Guillaume