Macro Sélectionner les onglets de couleur xxx

gringoh

XLDnaute Junior
Bonjour le forum,

Je viens de récupérer cette macro sur le forum. Cette dernière permet de sélectionner les onglets en fonction de leur couleur.

Quand je colle cette macro dans Thisworkbook d'un classeur elle fonctionne très bien. Maintenant quand je l'insère dans ma liste de macro complémentaires et j'essaye de la faire tourner, rien !

Je me doute qu'il y a un petit problème technique derrière tout ça que je ne sais pas résoudre pour l'heure...

Dans l'exemple ci-dessous la macro doit sélectionner les onglets en rouge

'Sélectionner les onglets en fonction de leur couleur
Sub SelectionOngletsCouleur()
'déclarer les variables
Dim tabFeuilles() As String, curFeuille As Worksheet, nbFeuilles As Long
'initialiser les variables
ReDim tabFeuilles(1 To 1): tabFeuilles(1) = ""
nbFeuilles = 0
'boucler sur tous les onglets de ce classeur
For Each curFeuille In ThisWorkbook.Worksheets
'si la couleur de l'onglet correspond à la couleur :
If curFeuille.Tab.Color = 255 Then 'couleur rouge
''ajouter le nom de l'onglet dans le tableau
'agrandir le tableau
nbFeuilles = nbFeuilles + 1
ReDim Preserve tabFeuilles(1 To nbFeuilles)
'ajouter le nom de l'onglet en dernière position
tabFeuilles(nbFeuilles) = curFeuille.Name
End If
Next curFeuille
'sélectionner les onglets correspondants (si il y en a)
If tabFeuilles(1) <> "" Then ThisWorkbook.Sheets(tabFeuilles).Select
End Sub

Merci pour vos explications.

Gringoh
 

Discussions similaires

Réponses
0
Affichages
83

Statistiques des forums

Discussions
311 709
Messages
2 081 754
Membres
101 812
dernier inscrit
trufu