Discussion :

[womancox]

Bonjour à tous,

Besoin d'aide pour une boucle que Excel ne veut pas.
Savez-vous pourquoi cette bouche ne fonctionne pas?
Il me met "erreur de compilation Wend sans while"
Je ne comprends pas car j'ai bien un while au début....

Merci d'avance!

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
finligneRFT = 24
ligneRFT = 4
 
While ligneRFT < finligneRFT
INITIALE = Range("A" & ligneRFT).Value
 
Sheets("COPIE").Select
FinLigne = 400
numeroligne = 3
ERREUR = 0
 
    While numeroligne < FinLigne
If Range("C" & numeroligne).Value = INITIALE And Range("J" & numeroligne).Value = "OK" And Range("B" & numeroligne).Value = moisanalysé Then ERREUR = ERREUR + 1
If Range("Q" & numéroligne).Value = INITIALE And Range("J" & numeroligne).Value = "OK" And Range("B" & numeroligne).Value = moisanalysé Then ERREUR = ERREUR + 1
numeroligne = numeroligne + 1
    Wend
 
 
Sheets("RFT").Select
If moisanalysé = "JANVIER" Then
Range("O" & ligneRFT) = ERREUR
If moisanalysé = "FEVRIER" Then
Range("P" & ligneRFT) = ERREUR
If moisanalysé = "MARS" Then
Range("Q" & ligneRFT) = ERREUR
If moisanalysé = "AVRIL" Then
Range("R" & ligneRFT) = ERREUR
If moisanalysé = "MAI" Then
Range("S" & ligneRFT) = ERREUR
If moisanalysé = "JUIN" Then
Range("T" & ligneRFT) = ERREUR
If moisanalysé = "JUILLET" Then
Range("U" & ligneRFT) = ERREUR
If moisanalysé = "AOUT" Then
Range("V" & ligneRFT) = ERREUR
If moisanalysé = "SEPTEMBRE" Then
Range("W" & ligneRFT) = ERREUR
If moisanalysé = "OCTOBRE" Then
Range("X" & ligneRFT) = ERREUR
If moisanalysé = "NOVEMBRE" Then
Range("Y" & ligneRFT) = ERREUR
If moisanalysé = "DECEMBRE" Then
Range("Z" & ligneRFT) = ERREUR
 
ligneRFT = ligneRFT + 1
 
Wend

[Invité]

Bonjour,

Savez-vous pourquoi cette bouche ne fonctionne pas?
Il me met "erreur de compilation Wend sans while"

parce que ton code n'est pas indenté (en espalier) et que tu ne peux pas voir quand un If n'a pas de End IF!

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
Sub test()finligneRFT = 24
ligneRFT = 4
While ligneRFT < finligneRFT
    INITIALE = Range("A" & ligneRFT).Value
    Sheets("COPIE").Select
    FinLigne = 400
    numeroligne = 3
    ERREUR = 0
    While numeroligne < FinLigne
        If Range("C" & numeroligne).Value = INITIALE And Range("J" & numeroligne).Value = "OK" And Range("B" & numeroligne).Value = moisanalysé Then ERREUR = ERREUR + 1
        If Range("Q" & numéroligne).Value = INITIALE And Range("J" & numeroligne).Value = "OK" And Range("B" & numeroligne).Value = moisanalysé Then ERREUR = ERREUR + 1
        numeroligne = numeroligne + 1
    Wend
    Sheets("RFT").Select
    Select Case moisanalysé
        Case "JANVIER": Range("O" & ligneRFT) = ERREUR
        Case "FEVRIER": Range("P" & ligneRFT) = ERREUR
        Case "MARS": Range("Q" & ligneRFT) = ERREUR
        Case "AVRIL": Range("R" & ligneRFT) = ERREUR
        Case "MAI": Range("S" & ligneRFT) = ERREUR
        Case "JUIN": Range("T" & ligneRFT) = ERREUR
        Case "JUILLET": Range("U" & ligneRFT) = ERREUR
        Case "AOUT": Range("V" & ligneRFT) = ERREUR
        Case "SEPTEMBRE": Range("W" & ligneRFT) = ERREUR
        Case "OCTOBRE": Range("X" & ligneRFT) = ERREUR
        Case "NOVEMBRE": Range("Y" & ligneRFT) = ERREUR
        Case "DECEMBRE":  'Range("Z" & ligneRFT) = ERREUR
    End Select
    ligneRFT = ligneRFT + 1
Wend
End Sub

If moisanalysé = "JANVIER" Then
Range("O" & ligneRFT) = ERREUR

Code :

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

1
2
3
4
5
If moisanalysé = "JANVIER" Then
Range("O" & ligneRFT) = ERREUR
End IF
'ou 
If moisanalysé = "JANVIER" Then Range("O" & ligneRFT) = ERREUR

[riaolle]

Il manque un end if après ta série de if.

Pense à utiliser les balises code (bouton #) et à indenter ton code
Bon courage pour la suite!

[antonysansh]

Il manque un end if après ta série de if.

Ce n'est pas exacte !
Il manque un End If pour chaque If ou remplacer les If après le premier par Else If.

Code :

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

1
2
3
4
5
6
If TestA Then
    TraitementA
End If
If TestB Then
    TraitementB
End If

Ou bien

Code :

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

1
2
3
4
5
If TestA Then
    TraitementA
Else If TestB
    TraitementB
End if

[unparia]

Bonjour
J'aimerais personnellement savoir où et comment a été déclarée et initialisée la variable moisanalysé.
Car si cela se trouve, nul besoin même d'expressions conditionnelles (ni If ni Select case) .