Boucle While Wend

Version imprimable

Boucle While Wend

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:

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

Bonjour,

Citation:

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:

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

Citation:

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

Code:

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

03/03/2017, 10h06
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!
03/03/2017, 13h38
antonysansh
Citation:

Envoyé par riaolle

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:

1 2 3 4 5 6 If TestA Then TraitementA End If If TestB Then TraitementB End If
Ou bien
Code:

1 2 3 4 5 If TestA Then TraitementA Else If TestB TraitementB End if
04/03/2017, 11h15
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) .;)