Discussion :

[rch05]

Bonsoir,

J'ai le code suivant:

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
 
Private Sub CommandButton3_Click()
Dim num As Integer
 
num = Range("AX2").Value
    If num < 6 Then
        GoTo suivant2
    Else
        Range("aq2").Value = 0
        If num > 6 Then
            Range("AR2").Value = 0
        Else
            GoTo suivant2
            If num > 7 Then
                Range("AS2").Value = 0
            Else
                GoTo suivant2
                If num > 8 Then
                    Range("AT2").Value = 0
                Else
                    GoTo suivant2
                    If num > 9 Then
                        Range("AU2").Value = 0
                        GoTo suivant2
                    End If
                End If
            End If
        End If
    End If
 
suivant2:
num = Range("AX3").Value
    If num < 6 Then
        GoTo suivant3
    Else
        Range("AQ3").Value = 0
        If num > 6 Then
            Range("AR3").Value = 0
        Else
            GoTo suivant3
            If num > 7 Then
                Range("AS3").Value = 0
            Else
                GoTo suivant3
                If num > 8 Then
                    Range("AT3").Value = 0
                Else
                    GoTo suivant3
                    If num > 9 Then
                        Range("AU3").Value = 0
                        GoTo suivant3
                    End If
                End If
            End If
        End If
    End If

Que je dois répéter 70 fois.
J'ai essayé d'effectuer une boucle, et ça plante à chaque fois.

Merci d'avance de votre aide

[babaothe]

Bonsoir,

J'ai le code suivant:

Code :

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

1
2
3
 
.........
........

Que je dois répéter 70 fois.
J'ai essayé d'effectuer une boucle, et ça plante à chaque fois.

une boucle sur quoi ?

[rch05]

Bonsoir babaothe,

Merci de m'avoir répondu.
J'aimerai trouver comment effectuer une boucle pour ne pas répéter le même code.

Avant, j'incrémente de 1 la plage AQ2:AW77

Puis, j' effectue le test sur la même colonne et en decendant chaque fois d'une ligne(AX2, AX3, AX4 etc...)
Selon la valeur de la cellule AX.., je remets à zéro les cellules de la plage AQ2:AW77.
Exemple:
Si AX2 = 8, les celulles AQ2,AR2 et AS2 sont remis à 0, puis je decends d'une cellule. Si AX3 = 6, la cellule AQ3 est remis à 0 et cela jusqu'a la ligne 77.

j'espère que mon explication est compréhensive.

Merci d'avance de ton aide

[helas]

Bonjour,
Il y a des incohérences dans ce code
si num < 6 --> suivant2
si num >= 6 --> Range("aq2").Value = 0
si num > 6 --> Range("AR2").Value = 0
sinon --> suivant2
Le reste du code ne sert à rien
Revoir la logique du résultat souhaité

[rch05]

je comprends pas.

Dans le code, il y a:
Si AX2 est < à 6, je vais à suivant2 (Donc je decends d'une cellule AX3)
Sinon, je remets à 0 le cellule AQ2
Puis, si AX2 est > 6, je remets à 0 la cellule AR2, sinon je vais à suivant2 puisque AX2 n'est pas > à 6, donc il est = à 6
Et ansi de suite, jusqu'a la fin du test de la cellule AX2
Quand le test est terminé, je decends à la cellule suivante AX3, et je recommence le même test sur cette ligne (AQ3....), et cela jusqu'a la cellule AX77.

j'épère que l'on se comprend?

Merci

Bonjour,

Voici une image du tableau, afin d'avoir urn meilleur compréhension de ce que je recherche.

Merci d'avance de votre aide
Cldt

[rch05]

Bonjour Hela,

Effectivement tu as raison.
Je n'allais pas plus loin que le 7. L'imbrication des IF, ce n'était pas ça
J'ai modifié le code pour que cela fonctionne

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
 
Private Sub CommandButton1_Click()
Dim num As Integer
 
num = Range("AX2").Value
    If num < 6 Then
        GoTo suivant2
    Else
        Range("aq2").Value = 0
    End If
    If num >= 7 Then
        Range("AR2").Value = 0
    Else
        GoTo suivant2
    End If
    If num >= 8 Then
        Range("AS2").Value = 0
    Else
        GoTo suivant2
    End If
    If num >= 9 Then
        Range("AT2").Value = 0
    Else
        GoTo suivant2
    End If
    If num >= 10 Then
        Range("AU2").Value = 0
    End If
 
 
suivant2:
num = Range("AX3").Value
    If num < 6 Then
        GoTo suivant3
    Else
        Range("AQ3").Value = 0
    End If
    If num >= 7 Then
        Range("AR3").Value = 0
    Else
        GoTo suivant3
    End If
    If num >= 8 Then
        Range("AS3").Value = 0
    Else
        GoTo suivant3
    End If
    If num >= 9 Then
        Range("AT3").Value = 0
    Else
        GoTo suivant3
    End If
    If num >= 10 Then
        Range("AU3").Value = 0
    End If
 
suivant3:
End Sub

je vais voir pour imbriquer des IF.... en espérant que j'y arrive.
Mais ne peut on pas effectuer une boucle, afin d'éviter la répétition du code.
C'est là que ça coince.

Merci d'avance
Cldt

[mercatog]

Une proposition si j'ai bien compris

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As Integer, Num As Integer
 
For i = 2 To 77
    Num = Range("AX" & i).Value
    If Num >= 6 Then Range("AQ" & i).Value = 0
    If Num >= 7 Then Range("AR" & i).Value = 0
    If Num >= 8 Then Range("AS" & i).Value = 0
    If Num >= 9 Then Range("AT" & i).Value = 0
    If Num >= 10 Then Range("AU" & i).Value = 0
Next i

[rch05]

Merci mercatog
C'est ce que je voulais réaliser et que je ne suis pas arrivé à effectuer.
Super!

Bon WE et encore merci

[mercatog]

Le résultat escompté est trouvé, améliorons donc le 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
Dim i As Integer, Num As Integer
 
For i = 2 To 77
    Num = Range("AX" & i).Value
    If Num >= 6 Then
        Range("AQ" & i).Value = 0
        If Num >= 7 Then
            Range("AR" & i).Value = 0
            If Num >= 8 Then
                Range("AS" & i).Value = 0
                If Num >= 9 Then
                    Range("AT" & i).Value = 0
                    If Num >= 10 Then Range("AU" & i).Value = 0
                End If
            End If
        End If
    End If
Next i

Ou bien une autre proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer, Num As Integer, j As Integer
 
For i = 2 To 77
    Num = Range("AX" & i).Value
    If Num >= 6 Then
        For j = 10 To 6 Step -1
            If (Num \ j) >= 1 Then Exit For
        Next j
        Range(Cells(i, 43), Cells(i, 37 + j)).Value = 0
    End If
Next i