Discussion :

[rembliec]

Bonjour à tous,

Après quelques semaines d'absence me revoila à nouveau avec un problème sur les bras

J'ai un problème de boucle : Je souhaite faire une action sur toutes les feuilles de mon classeur Excel sauf 2 feuilles bien précises (identifiables par leur nom fixe mais dont la position peut varier dans le classeur) sur lesquelles je souhaite faire une action différente.
J'ai fais une macro qui est la suivante qui fonctionne bien si je ne déplace pas mes 2 feuilles en questions (feuilles en position 5 et 6 dans mon code).

voici 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
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
 
 
Dim i As Byte, x As Byte
x = Sheets.Count
 
For i = 2 To 4
    Sheets(i).Select
 
    With ActiveSheet.Rows(7)
        Set c = .Find("Total")
        If Not c Is Nothing Then
            NoCol = c.Column
            Columns(NoCol - 1).Delete Shift:=xlToRight
            Columns(NoCol - 2).Delete Shift:=xlToRight
            DoEvents
        End If
 
    End With
 
Next
 
For i = 5 To 6
    Sheets(i).Select
 
    With ActiveSheet.Rows(7)
        Set c = .Find("Total")
        If Not c Is Nothing Then
            NoCol = c.Column
            Columns(NoCol - 1).Delete Shift:=xlToRight
            Columns(NoCol - 2).Delete Shift:=xlToRight
            Columns(NoCol - 3).Delete Shift:=xlToRight
            Columns(NoCol - 4).Delete Shift:=xlToRight
            DoEvents
        End If
 
    End With
 
Next
For i = 7 To x
    Sheets(i).Select
 
    With ActiveSheet.Rows(7)
        Set c = .Find("Total")
        If Not c Is Nothing Then
            NoCol = c.Column
            Columns(NoCol - 1).Delete Shift:=xlToRight
            Columns(NoCol - 2).Delete Shift:=xlToRight
            DoEvents
        End If
 
    End With
 
Next
 
 
End Sub

En petite novice que je suis :

1-Est-il possible de demander à ma boucle de faire les actions souhaitées sauf sur la feuille "détail monitoring" et la feuille détail "détail biométrie" en les appelant par leur nom? et si oui comment?

2- Comment faire une autre boucle sur mes 2 feuilles "détail monitoring" et la feuille détail "détail biométrie" en les appelant par leur nom?

Un grand merci d'avance pour vos réponses.

[random]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub selectif()
Dim index As Variant
For Each index In ActiveWorkbook.Sheets
If index.Name = "Feuil1" Or index.Name = "Feuil2" Then
index.Range("a1") = "oui"
Else
index.Range("a1") = "non"
End If
Next index
End Sub

[rembliec]

salut Random,

Exuse ma question qui va surement te paraitre ridicule mais comment et ou dois-je insérer ton code dans le mien?

[rembliec]

Random,
Je crois avoir compris ton code, et adapté le mien.

Mais ça marche pas! (cela veut surement dire que j'ai pas tout compris)
Ma macro ne supprime pas les colonnes situées avant ma colonne total mais la colonne total elle-même. Je comprends pas surtout que j'ai pas modifié ce bout de 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
 
Sub supprimerblocannée()
 
 
Dim i As Byte, x As Byte
x = Sheets.Count
 
For i = 1 To x
    Sheets(i).Select
    Dim index As Variant
 
    For Each index In ActiveWorkbook.Sheets
    If index.Name = "Détail Monitoring" Or index.Name = "Détail Biométrie" Then
        With index.Rows(7)
        Set c = .Find("Total")
            If Not c Is Nothing Then
            NoCol = c.Column
            Columns(NoCol - 1).Delete Shift:=xlToRight
            Columns(NoCol - 2).Delete Shift:=xlToRight
            Columns(NoCol - 3).Delete Shift:=xlToRight
            Columns(NoCol - 4).Delete Shift:=xlToRight
            DoEvents
            End If
        End With
    Else
        With index.Rows(7)
        Set c = .Find("Total")
            If Not c Is Nothing Then
 
            NoCol = c.Column
            Columns(NoCol - 1).Delete Shift:=xlToRight
            Columns(NoCol - 2).Delete Shift:=xlToRight
            DoEvents
 
            End If
        End With
    End If
Next index
Next
End Sub

Tu vois d'ou peut venir le problème?

Merci d'avance pour ton aide

[Qwazerty]

SAlut
Voila l'adaptation a ton besoin, je remqrque que le traitement et le meme pour les sheets de 2à4 et de 7à .... si c'est le cas laisse la partie de code en commentaire, en commentaire

Si par contre tu active la partie de code qui est en commentaire tu poura gerer une action pour les sheets de 2à4, une action diferentes pour les sheets de 5à6, et encore une autre pour les sheets de 7à...

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
Dim index As Sheets
For Each index In ActiveWorkbook.Sheets
'ici tu met les noms des sheet qui corresponde a sheet(2) sheet(3) sheet(4)
    'If index.Name = "Feuil2" Or index.Name = "Feuil3" Or index.Name = "Feuil4" Then
        'With ActiveSheet.Rows(7)
            'Set c = .Find("Total")
            'If Not c Is Nothing Then
                'NoCol = c.Column
                'Columns(NoCol - 1).Delete Shift:=xlToRight
                'Columns(NoCol - 2).Delete Shift:=xlToRight
                'DoEvents
            'End If
        'End With
'ici tu met les noms des sheet qui corresponde a sheet(2) sheet(3) sheet(4)
    'ElseIf index.Name = "Feuil5" Or index.Name = "Feuil6" Then 'Si tu active la code ci-dessus desactive la ligne suivante
    If index.Name = "Feuil5" Or index.Name = "Feuil6" Then
        With ActiveSheet.Rows(7)
            Set c = .Find("Total")
            If Not c Is Nothing Then
                NoCol = c.Column
                Columns(NoCol - 1).Delete Shift:=xlToRight
                Columns(NoCol - 2).Delete Shift:=xlToRight
                Columns(NoCol - 3).Delete Shift:=xlToRight
                Columns(NoCol - 4).Delete Shift:=xlToRight
                DoEvents
            End If
 
        End With
    Else 'pour toute les autres sheets restantes
        With ActiveSheet.Rows(7)
            Set c = .Find("Total")
            If Not c Is Nothing Then
                NoCol = c.Column
                Columns(NoCol - 1).Delete Shift:=xlToRight
                Columns(NoCol - 2).Delete Shift:=xlToRight
                DoEvents
            End If
        End With
    End If
Next index
 
 
End Sub

A++
Qwaz

[rembliec]

salut à tous,

Merci pour ton aide Qwazerty mais cela ne fonctionne pas. La macro s'exécute seulement sur la feuille active. en plus au lieu de me supprimer 2 ou 4 colonnes la macro supprime toutes les colonnes.

C'est la crise!!!!! sais plus quoi faire. D'autres suggestions?

Merci par avance.

[jfontaine]

Je n'ai repris tout ton code (je suis un peu faineant ce soir)

mais l'idée est la.
on boucle sur chaque feuille du classeur et on test son nom avec un select case

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
 
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
 
    Select Case sh.Name
 
        Case "détail monitoring", "détail biométrie"
 
            'Action
 
        Case "Autres Feuille"
 
            'Action
 
        Case Else
 
            'Action
 
 
    End Select
 
Next

[Qwazerty]

SAlut
Bon j'avais mis ca vite fait avant de partir en stage, y'a une petite erreur dedans (j'espere juste une) que tu aurais pu je pense corriger, j'espere que tu n'es pas resté bloqué par ca ...
Il suffit de changer ActiveSheet par Index dans les 2 blocs with

A++
Qwaz