VBA code IF - Else IF - Else

Version imprimable

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:

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

28/05/2014, 13h15
letudiant68
Bonjour, merci tout d'abord de baliser ton code sur le forum ça sera plus simple pour tout le monde.
Ensuite pour les If regarde bien la structure de l'exemple suivant et essaye de faire pareil, mettre des tabulations améliore grandement la lisibilité du code :
Code:

1 2 3 4 5 6 7 If count = 0 Then message = "There are no items." ElseIf count = 1 Then message = "There is 1 item." Else message = "There are " & count & " items." End If

Bonjour, regardes ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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"
    Else
        Cells(RowNumber, 30) = "0"
    End If
Else
    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"
    Else
        Cells(RowNumber, 30) = "0"
    End If
End If

Avec les tabulations, cela donne ceci. J'ai effectivement essaye de suivre cette mise en forme mais je ne comprends pas mes erreurs.

Code:

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
 
 
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
End If
 
 
 
Next RowNumber
 
End Sub

[/QUOTE]

28/05/2014, 21h09
Guixmix

Héhé ca marche :)

Merci beaucoup de votre aide !!

Guillaume