Recherche d'onglet suivant sa couleur

[Fugy]

Bonjour a tous sur ce forum Ô Combien précieux et instructif !

Voila pour les louanges... en fait je demande votre attention car je n'arrive pas a faire une macro de recherche d'onglet suivant la couleur de celui ci.
C'est a dire que lorque je clique sur un bouton "recherche onglets jaune" cela me fasse la liste des onglets de couleurs jaune.

Idem pour les rouges.

Voila ci joint un petit fichier pour bien comprendre.
Si vous avez une idée ??

Merci d'avance

 

[bqtr]

Re : Recherche d'onglet suivant sa couleur

Bonsoir Fugy

Voici les deux macros à affecter à tes boutons :

Sub CouleurOngletJaune()
Dim ws As Worksheet, i As Integer
i = 1
For Each ws In ThisWorkbook.Worksheets
  If ws.Tab.ColorIndex = 36 Then
     Cells(i, 2) = ws.Name
     i = i + 1
End If
Next
End Sub


Sub CouleurOngletRouge()
Dim ws As Worksheet, j As Integer
j = 1
For Each ws In ThisWorkbook.Worksheets
  If ws.Tab.ColorIndex = 3 Then
     Cells(j, 3) = ws.Name
     j = j + 1
  End If
Next
End Sub

A+

 

[Compte Supprimé 979]

Re : Recherche d'onglet suivant sa couleur

Salut Fugy, salut bqtr

Sinon il y a aussi

Sub OngletJaune()
Dim Sht As Worksheet
For Each Sht In Worksheets
  If Sht.Tab.ColorIndex = 36 Then
    Range("B65536").End(xlUp).Offset(1, 0).Value = Sht.Name
    Range("B65536").End(xlUp).Interior.ColorIndex = 36
  End If
Next
End Sub
Sub OngletRouge()
Dim Sht As Worksheet
For Each Sht In Worksheets
  If Sht.Tab.ColorIndex = 3 Then
    Range("C65536").End(xlUp).Offset(1, 0).Value = Sht.Name
    Range("C65536").End(xlUp).Interior.ColorIndex = 3
  End If
Next
End Sub

Sans incrément 😀

 

[Fugy]

Re : Recherche d'onglet suivant sa couleur

trop fort messieurs !!

j'essaye de l'adapter à mon programme !!

Merci encore
A+ !!

 

[Fugy]

Re : Recherche d'onglet suivant sa couleur

re coucou !
ben en fait j'ai pas réussi à adapter...

je vousmet ci joint le fichier.
Il faudrait dans la userform jaune la liste des onglets de couleur jaune.

Merci pour l'aide !!

 

[bqtr]

Re : Recherche d'onglet suivant sa couleur

Re,

Perdu 😀

Ton fichier n'est pas passé !!!

 

[Fugy]

Re : Recherche d'onglet suivant sa couleur

a vi .... loupe !

aller le voila

 

[Compte Supprimé 979]

Re : Recherche d'onglet suivant sa couleur

Voilà ton fichier avec le code modifié pour le bouton jaune 😉

Tu sais mieux vaut poser la bonne question au départ.

A+

 

[Fugy]

Re : Recherche d'onglet suivant sa couleur

TrrrroooooooooOOOOOOOOOOPPPPPP FORT !!

Merci, bravo !!