COndition avec If dans une boucle for

Version imprimable

Bonjour à tous,
je ne parviens pas à terminer cette boucle

Ligne 36, Erreur "Else sans If"

J'ai bien regardé qu'il n'y ai pas plus haut un if qui traine. J'ai aussi regardé quel était le formalisme pour une telle boucle.... Est ce que quelqu'un peut me donner un coup de main ?

Merci !

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
For n = 4 To LastLig

    'If Range("G" & n) <> "" Then
   ' procA (n)
   ' End If

    If Range("H" & n) <> "" And Range("H" & n) <= Range("F" & n) Then
             
            If Month(Range("F" & n)) = 1 Then JaM = JaM + 1
             MsgBox (JaM)
            
             ElseIf Month(Range("F" & n)) = 2 Then FebM = FebM + 1
             
             ElseIf Month(Range("F" & n)) = 3 Then MaM = MaM + 1

             ElseIf Month(Range("F" & n)) = 4 Then AvM = AvM + 1
             
             ElseIf Month(Range("F" & n)) = 5 Then MayM = MayM + 1
              
             ElseIf Month(Range("F" & n)) = 6 Then JuM = JuM + 1
             
             ElseIf Month(Range("F" & n)) = 7 Then JuiM = JuiM + 1
              
             ElseIf Month(Range("F" & n)) = 8 Then AoM = AoM + 1
              
             ElseIf Month(Range("F" & n)) = 9 Then SeM = SeM + 1
             
             ElseIf Month(Range("F" & n)) = 10 Then OcM = OcM + 1
              
             ElseIf Month(Range("F" & n)) = 11 Then NoM = NoM + 1
              
             ElseIf Month(Range("F" & n)) = 12 Then DeM = DeM + 1
              Else
              End If
    Else
    End If

  '  If Range("H" & n) <> "" And Range("H" & n) > Range("F" & n) Then
   ' procC (n)
   ' End If
 
Next n

bonjour,

Code:

1
2
3
4
select case Month(Range("F" & n))
case 1:msgbox "Janvier"
cass 2: msgbox "Févier"
end select

03/04/2017, 18h08
Marc-L

Bonjour,

dans un tel cas je n'utilise pas une structure If mais plutôt Select Case comme documentée dans l'aide VBA interne …

Et au lieu d'utiliser une variable spécifique par mois j'utiliserais plutôt une variable tableau dont les indices représentent
chaque mois et donc pas besoin de structure If ni même Select Case et nécessitant donc une à deux lignes de code !

___________________________________________________________________________________________________________
Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
03/04/2017, 18h13
Invité
avec DateSerial on peut incrémenter 1 mois!
Code:

1 2 DateSerial(2004, 6-2, 14) Résultat: "14/04/2004"
Entre anglais et français je me suis peut-être gouré!

Bonsoir,

Je pense qu'il serait plus simple d'utiliser un tableau :

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
 
Sub Test()
 
    Dim Tbl(1 To 12) As Long
    Dim N As Long
    Dim LastLig As Long
 
    For N = 4 To LastLig
 
        If Range("H" & N) <> "" And Range("H" & N) <= Range("F" & N) Then
 
            Tbl(Month(Range("F" & N))) = Tbl(Month(Range("F" & N))) + 1
 
        End If
 
    Next N
 
    'pour voir le résultat dans la fenêtre d'exécution (Ctrl+G)
    For N = 1 To 12
 
        Debug.Print MonthName(N) & " = " & Tbl(N)
 
    Next N
 
End Sub

03/04/2017, 21h40
vincedu74

Super, merci beaucoup

j'essaye de l'adapter à mon projet et reviens vous dire ce qu'il en est !

merci à tous les trois
03/04/2017, 22h49
vincedu74

Génial ! ca a fonctionné impeccable

j'avais essayé d'imbriquer des procédures et je restais focalisé sur mes if

Merci à tous les trois