Discussion :

[BOU59000]

Bonjour,

j'ai un petit problème de boucles et je n'arrive pas à savoir pourquoi...

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
Sub Graphique()
 
Dim Compteur As Integer
Dim Cel As Range
Dim i As Integer
 
Set Cel = Worksheets("Vue_generale").Range("K1")
Compteur = 1
 
While Cel.Offset(Compteur) <> ""
Compteur = Compteur + 1
Wend
 
DestructionUn = 0
DestructionDeux = 0
DestructionTrois = 0
DestructionQuatre = 0
 
ValorisationUn = 0
ValorisationDeux = 0
ValorisationTrois = 0
ValorisationQuatre = 0
 
For i = 1 To Compteur
    If Cel.Offset(i) = "1" Then
        If Left(Cel.Offset(i), 1) = "D" Then
        DestructionUn = DestructionUn + Cel.Offset(i, -2)
        Else
        ValorisationUn = ValorisationUn + Cel.Offset(i, -2)
        End If
    If Cel.Offset(i) = "2" Then
        If Left(Cel.Offset(i), 1) = "D" Then
        DestructionDeux = DestructionDeux + Cel.Offset(i, -2)
        Else
        ValorisationDeux = ValorisationDeux + Cel.Offset(i, -2)
        End If
    If Cel.Offset(i) = "3" Then
        If Left(Cel.Offset(i), 1) = "D" Then
        DestructionTrois = DestructionTrois + Cel.Offset(i, -2)
        Else
        ValorisationTrois = ValorisationTrois + Cel.Offset(i, -2)
        End If
    If Cel.Offset(i) = "4" Then
        If Left(Cel.Offset(i), 1) = "D" Then
        DestructionQuatre = DestructionQuatre + Cel.Offset(i, -2)
        Else
        ValorisationQuatre = ValorisationQuatre + Cel.Offset(i, -2)
        End If
    End If
Next i
 
Worksheets("Graphique").Select
Range("B8") = DestructionUn
'....
 
 
 
End Sub

J'ai toujours droit à Pas de Next sans For (alors que mon For est bien la) et si j'enlève le Next, j'ai le droit a il faut un blonc end if.....

[laetitia]

bonjour BOU59000 le forum pour moi il manque un end if
code

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
For i = 1 To Compteur
    If Cel.Offset(i) = "1" Then
        If Left(Cel.Offset(i), 1) = "D" Then
        DestructionUn = DestructionUn + Cel.Offset(i, -2)
        Else
        ValorisationUn = ValorisationUn + Cel.Offset(i, -2)
        End If: End If
    If Cel.Offset(i) = "2" Then
        If Left(Cel.Offset(i), 1) = "D" Then
        DestructionDeux = DestructionDeux + Cel.Offset(i, -2)
        Else
        ValorisationDeux = ValorisationDeux + Cel.Offset(i, -2)
        End If: End If
    If Cel.Offset(i) = "3" Then
        If Left(Cel.Offset(i), 1) = "D" Then
        DestructionTrois = DestructionTrois + Cel.Offset(i, -2)
        Else
        ValorisationTrois = ValorisationTrois + Cel.Offset(i, -2)
        End If: End If
    If Cel.Offset(i) = "4" Then
        If Left(Cel.Offset(i), 1) = "D" Then
        DestructionQuatre = DestructionQuatre + Cel.Offset(i, -2)
        Else
        ValorisationQuatre = ValorisationQuatre + Cel.Offset(i, -2)
        End If: End If
  Next i

[fgiambelluco]

Bonjour
Effectivement il manque quelques End If sur presque tous les If de premiers niveau.

Ce que je trouve bizzare, c'est qu'il n'y a pas d' erreur sur le Offset(i), car quand je l'utilise, je fais référence à la ligne et à la colonne.

Code :

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

Cel.Offset(lig,col)

--------------
Frédéric
http://www.access-developpement.co

[laetitia]

re bonjour fgiambelluco

a mon avis i est interprete en tant que colonne
par contre il doit pas mettre option explicit en debut de son module
les

Code :

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

1
2
3
4
5
6
7
8
9
DestructionUn = 0
DestructionDeux = 0
DestructionTrois = 0
DestructionQuatre = 0
 
ValorisationUn = 0
ValorisationDeux = 0
ValorisationTrois = 0
ValorisationQuatre = 0

sont pas declarées

de plus j ai pas bien compris son code je sais ce qu'il cherche a faire??lui il doit le savoir (lol)

[Gorfael]

Salut BOU59000 et le forum
Il n'y a pas que la boucle qui a un problème

Code :

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

1
2
3
While Cel.Offset(Compteur) <> ""
Compteur = Compteur + 1
Wend

C'est quoi le but ? revient à

Code :

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

Compteur = cel.end(xldown).row+1

La première ligne vide en partant de K1 et en allant vers le bas. Mais il n'y a pas de boucle

Code :

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

1
2
3
4
5
6
7
8
9
    If Cel.Offset(i) = "1" Then
        If Left(Cel.Offset(i), 1) = "D" Then
            DestructionUn = DestructionUn + Cel.Offset(i, -2)
        Else
            ValorisationUn = ValorisationUn + Cel.Offset(i, -2)
        End If
    End If
    If Cel.Offset(i) = "2" Then
'etc... en mettant les "End If"

je lis :
-si cel.offset(i) = le chiffre 1 offset(ligne,colonne), pas offset(ligne,[colonne])
-si la première lettre de Cel.offset(i) = "D" => elle sera toujours Faux, puisque tu viens de vérifier qu'elle ne contient que "1"
donc tu peux simplifier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Each cel In Range([K1], [K1].End(xlDown))
    Select Case cel
        Case 1
            ValorisationUn = ValorisationUn + cel.Offset(0, -2)
        Case 2
            ValorisationDeux = ValorisationDeux + cel.Offset(0, -2)
            End If
        Case 3
            ValorisationTrois = ValorisationTrois + cel.Offset(0, -2)
            End If
        Case 4
            ValorisationQuatre = ValorisationQuatre + cel.Offset(0, -2)
    End Select
Next cel

Mais si ce n'est pas ça que tu veux faire, revois ton algo
A+

[BOU59000]

@ laetitia: Oui le problème venait bien des End if (j'ai honte ). Du coup sa marche nikel désormais.

Le code me sert à alimenter des graphes sinon.

@fgiambelluco: Je ne vois pas de quoi tu veux parler? En fait j'ai mis Cel.offset(i, colonne) avec i ma boucle qui va me faire passer d'une ligne à une autre. Ce que tu as mis en code est bon, donc je pense que je ne réponds pas a ta question la! lol. Si tu pouvais préciser que je puisse te donner une reponse correcte, merci

@Gorfael:Oui le compteur n'est pas indispensable mais je le mets toujours (a force de tapper sur un clou il rentre! lol), cette méthode me permet d'apprendre par coeur les différents type de programme.

Sinon tu as mal lu mon programme:

-si cel.offset(i) = le chiffre 1
-si la première lettre de Cel.offset(i, -x) = "D" => elle sera toujours Faux, puisque tu viens de vérifier qu'elle ne contient que "1. Oui je vérifie que que ma cellule contient 1 (colonne B par exemple)et si elle contient 1, alors je vérifie que ma cellule 1 (en colonne A par exmple) contient D
Si oui j'enregistre dans une première variable, sinon j'enregistre dans une seconde"

Par contre, je ne suis pas encore très fort en boucle, mais ton Select Case aura pour finalité que
DestructionUn = DestrucionDeux =.... ValorisationUn = ValorisationDeux... Que toutes les variables soient identique en finalité, non?

Merci pour vos réponses en tout cas.

@ Admin: je ne cloture pas tout de suite la discussion afin de pouvoir continuer ce débat (qui me permettra d'apprendre plus sur le vba).
Je cloturerai la discussion peu après, merci de votre compréhension.

PS: A moins que ce soit hors charte de faire cela?

[ouskel'n'or]

Si tu avais indenté correctement ton code tu aurais tout de suite compris

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
For i = 1 To Compteur
    If Cel.Offset(i) = "1" Then
        If Left(Cel.Offset(i), 1) = "D" Then
            DestructionUn = DestructionUn + Cel.Offset(i, -2)
           Else
            ValorisationUn = ValorisationUn + Cel.Offset(i, -2)
        End If
    'Manque un Endif ***
    If Cel.Offset(i) = "2" Then
        If Left(Cel.Offset(i), 1) = "D" Then
            DestructionDeux = DestructionDeux + Cel.Offset(i, -2)
           Else
            ValorisationDeux = ValorisationDeux + Cel.Offset(i, -2)
        End If
    'Manque un Endif ***
    If Cel.Offset(i) = "3" Then
        If Left(Cel.Offset(i), 1) = "D" Then
            DestructionTrois = DestructionTrois + Cel.Offset(i, -2)
           Else
            ValorisationTrois = ValorisationTrois + Cel.Offset(i, -2)
        End If
    'Manque un Endif ***
    If Cel.Offset(i) = "4" Then
        If Left(Cel.Offset(i), 1) = "D" Then
            DestructionQuatre = DestructionQuatre + Cel.Offset(i, -2)
           Else
            ValorisationQuatre = ValorisationQuatre + Cel.Offset(i, -2)
        End If
    End If 'manque pas de Endif
Next i

Edit
Ceci dit, j'utiliserais plutôt

Code :

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

1
2
3
4
5
6
     Select Case  Left(Cel.Offset(i), 1)
                   Case "1"
                   Case "2"
                   Case "3"
                   Case "4"
               'etc.