Discussion :

[jedineofr]

Bonjour à tous
Je voudrais activer chacun des onglets de mon classeur et effectuer un traitement.

Mon code est celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
nbrOnglet = Worksheets.Count
ReDim NomsOnglet(1 To nbrOnglet)  ' Redimensionnement tableau des noms d'onglets
For i = 1 To nbrOnglet    ' Boucle pour remplir tableau avec noms d'onglets
    NomsOnglet(i) = Worksheets(i).Name
Next i
 
For i = 2 To nbrOnglet    ' Pour chaque onglet ...
    Sheet(NomsOnglet(i)).Activate    ' ... activer l'onglet et ...
    Call Traiment_A_Effectuer    ' ... lui faire effectuer un traitement
Next i

Mais la ligne Sheet(NomsOnglet(i)).Activate ne fonctionne pas.
J'ai essayé avec Sheet( & NomsOnglet(i) ).Activate mais Excel colorie la ligne en rouge.

Auriez-vous une idée ?

Merci d'avance
Cordialement

[jfontaine]

Bonjour,

Pour boucler sur tous les onglets

Code :

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

1
2
3
4
5
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
   sh.select
   ... Traitement
Next sh

[jedineofr]

Bonjour jfontaine. Toujours aussi prompt à répondre

J’obtiens, sur la ligne sh.Select l'erreur

Erreur d'éxecution '1004'
La méthode 'Select' de l'objet '_Worksheet' a échoué

Voici le code complet de mon projet :

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
Sub Colorier_Cellule()
Dim sh As Worksheet
Dim last_Ligne_Chaine As Long
 
For Each sh In ThisWorkbook.Worksheets
   sh.Select
 
    last_Ligne_Chaine = Cells.SpecialCells(xlCellTypeLastCell).Row - 2   ' -2 car décalage données recopiées
    Range("A" & last_Ligne_Chaine, "X" & last_Ligne_Chaine).Interior.ColorIndex = xlNone    ' raz fond
 
    For iColonne = 2 To 24  ' 2 car pas de traitement sur la 1°
 
        If Cells(last_Ligne_Chaine, iColonne).Value > 800 Then
            Cells(last_Ligne_Chaine, iColonne).Interior.Color = RGB(255, 0, 0) ' rouge
        Else
            If Cells(last_Ligne_Chaine, iColonne).Value > 600 Then
                Cells(last_Ligne_Chaine, iColonne).Interior.Color = RGB(255, 100, 0)   ' orange
            End If  ' >600
        End If  ' >800
 
    Next iColonne
 
Next sh
MsgBox "fin de la macro Colorier_Cellule"
End Sub

[jedineofr]

J'ai trouvé comment faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Colorier_Cellules()
Dim Nbr_Onglets As Integer
 
Nbr_Onglets = Worksheets.Count    ' nombre d'onglet total
 
For iOnglet = 2 To Nbr_Onglets    ' Je zappe le 1° onglet
 
    Worksheets(iOnglet).Activate
    ' traitement à effectuer
 
Next iOnglet
 
End Sub