Discussion :

[rob1son76]

Bonjour,
J'ai une questions sur les boucles for dont je n'arrive pas a trouver la réponse.
Est il possible de faire parcourir la boucle sur plusieur interval.
Je m'explique.
Je veux supprimer cetaine case d'une feuille excel a l'aide d'un bouton.
Mes ligne sont la 8, 10 a 13, la 33, 35 a 38 et la 58, 60 a 61.
Je voudrai faire une boucle du genre :
for i=8 and 10 to 13 and 33 and 35 to 38 and 58 and 60 to 63.
Ca m'éviterait de faire des copier collé de mon bloc de programme.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i = 8 And 10 To 13
    For j = 5 To 7 And 9 And 10 And 11
        Worksheets("lundi1").Cells([i], j).Value = ""
        Worksheets("mardi1").Cells([i], j).Value = ""
        Worksheets("mercredi1").Cells([i], j).Value = ""
        Worksheets("jeudi1").Cells([i], j).Value = ""
        Worksheets("vendredi1").Cells([i], j).Value = ""
        Worksheets("samedi1").Cells([i], j).Value = ""
        Worksheets("dimanche1").Cells([i], j).Value = ""
    Next j
Next i

je vous remercie d'avance.

[Pierre Fauconnier]

Bonjour

Vu l'impossibilité de créer une fonction qui détermine les lignes, je créerais un tableau

Exemple à adapter et compléter, notamment avec la deuxième boucle pour trouver J

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
    Dim Tableau(12)
    Dim Compteur As Integer
 
    Tableau(0) = 8
    Tableau(1) = 10
    Tableau(3) = 11
    Tableau(4) = 12
    Tableau(5) = 13
    Tableau(6) = 33
    Tableau(7) = 35
    ...
    ...
    For Compteur = 0 To Ubound(Tableau)
        worksheets("lundi").range(tableau(compteur),...)=""
        worksheets("mardi")...

[rob1son76]

merci pierre pour ta réponse je n'y avais pas pensé mais ca marche nikel.
je met mon code si ca peu aider quelqu'un par la suite.

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
Dim Tableau(14) As Integer
 
 
    Tableau(0) = 8
    Tableau(1) = 10
    Tableau(2) = 11
    Tableau(3) = 12
    Tableau(4) = 13
    Tableau(5) = 33
    Tableau(6) = 35
    Tableau(7) = 36
    Tableau(8) = 37
    Tableau(9) = 38
    Tableau(10) = 58
    Tableau(11) = 60
    Tableau(12) = 61
    Tableau(13) = 62
    Tableau(14) = 63
 
For i = 0 To UBound(Tableau)
    For j = 5 To 7
    'MsgBox (Worksheets("lundi1").Cells(Tableau(i), j))
        Worksheets("lundi1").Cells(Tableau(i), j).Value = ""
        Worksheets("mardi1").Cells(Tableau(i), j).Value = ""
        Worksheets("mercredi1").Cells(Tableau(i), j).Value = ""
        Worksheets("jeudi1").Cells(Tableau(i), j).Value = ""
        Worksheets("vendredi1").Cells(Tableau(i), j).Value = ""
        Worksheets("samedi1").Cells(Tableau(i), j).Value = ""
        Worksheets("dimanche1").Cells(Tableau(i), j).Value = ""
    Next j
Next i