Discussion :

[Virk59]

Bonjour à tous,

J'ai eu beau chercher à plusieurs reprises, mais je n'ai pas trouvé la solution à mon problème : je veux parcourir les feuilles d'un classeur et, en fonction du nom des feuilles, lancer une macro d'impression ou une macro pour faire une copie de la feuille.

Voici mon code qui boucle sur les feuilles :

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
Sub BoucleFeuilles()
 
Dim x As Integer
Dim nomFeuil As String
 
 
Worksheets(1).Select
 
For x = 2 To 15
 
    Worksheets(x).Select
    nomFeuil = ActiveSheet.Name
 
    If nomFeuil = "Damart" Or "Mondial" Or "Redcats" Or "Qualigroupe Red" Then
        If Range("G37").Value <> 0 Then
            Call ImprimFeuil
        End If
 
    Else
 
        If Range("G37").Value <> 0 Then
            Call FichierExcel
        End If
    End If
 
Next x
 
 
End Sub

A priori j'ai un problème avec la ligne 14, puisque je reçois un message d'erreur (erreur d'exécution '13' : Incompatibilité de type) en passant cette ligne. Il me semblait que le nom d'une feuille était de type String, raison pour laquelle j'ai mis un type string à ma variable nomFeuil.

Quelqu'un aurait une idée de la cause de cette erreur, SVP ?

[EngueEngue]

Bonjour

Code :

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

If nomFeuil = "Damart" Or nomFeuil ="Mondial" Or nomFeuil ="Redcats" Or nomFeuil ="Qualigroupe Red" Then

[Virk59]

Ca marche nickel, merci beaucoup

J'avais voulu trop simplifier ma syntaxe, une erreur du débutant que je suis

[casefayere]

Bonsoir,

Quand tu dis :

J'avais voulu trop simplifier ma syntaxe....

Tu peux tout de même soulager ton code, plutôt que :

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
Sub BoucleFeuilles()
 
Dim x As Integer
Dim nomFeuil As String
 
 
Worksheets(1).Select
 
For x = 2 To 15
 
    Worksheets(x).Select
    nomFeuil = ActiveSheet.Name
 
    If nomFeuil = "Damart" Or "Mondial" Or "Redcats" Or "Qualigroupe Red" Then
        If Range("G37").Value <> 0 Then
            Call ImprimFeuil
        End If
 
    Else
 
        If Range("G37").Value <> 0 Then
            Call FichierExcel
        End If
    End If
Next x
 
End Sub

évites les select comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub BoucleFeuilles()
 
Dim x As Integer
Dim nomFeuil As String
For x = 2 To 15
  nomFeuil = Sheets(x).Name
  '........
 
Next x
 
 
End Sub

[78chris]

Bonjour

Code :

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

nomFeuil = "Damart" Or "Mondial"...

doit être

Code :

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

nomFeuil = "Damart" Or nomFeuil = "Mondial"...