Utiliser variable pour Sheet(XX).activate ?

Version imprimable

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

Mon code est celui-ci :
Code:

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

Bonjour,

Pour boucler sur tous les onglets

Code:

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

Bonjour jfontaine. Toujours aussi prompt à répondre :)

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

Citation:

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

Voici le code complet de mon projet :

Code:

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

J'ai trouvé comment faire :)

Code:

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