Recherche d'onglet suivant sa couleur

bqtr

XLDnaute Accro

• 9 Mai 2007

• #2

Re : Recherche d'onglet suivant sa couleur

Bonsoir Fugy

Voici les deux macros à affecter à tes boutons :

Code:

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+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 9 Mai 2007

• #3

Re : Recherche d'onglet suivant sa couleur

Salut Fugy, salut bqtr

Sinon il y a aussi

Code:

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 😀

 

Vote positif 0 Vote négatif

F

Fugy

XLDnaute Occasionnel

• 9 Mai 2007

• #4

Re : Recherche d'onglet suivant sa couleur

trop fort messieurs !!

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

Merci encore
A+ !!

 

Vote positif 0 Vote négatif

F

Fugy

XLDnaute Occasionnel

• 9 Mai 2007

• #5

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 !!

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 9 Mai 2007

• #6

Re : Recherche d'onglet suivant sa couleur

Re,

Perdu 😀

Ton fichier n'est pas passé !!!

 

Vote positif 0 Vote négatif

F

Fugy

XLDnaute Occasionnel

• 9 Mai 2007

• #7

Re : Recherche d'onglet suivant sa couleur

a vi .... loupe !

aller le voila

 

Pièces jointes

• RECHERCHEONGLET.zip

  17.6 KB · Affichages: 25

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 9 Mai 2007

• #8

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+

 

Pièces jointes

• Fugy_RECHERCHEONGLET.zip

  18.2 KB · Affichages: 36

Vote positif 0 Vote négatif

F

Fugy

XLDnaute Occasionnel

• 9 Mai 2007

• #9

Re : Recherche d'onglet suivant sa couleur

TrrrroooooooooOOOOOOOOOOPPPPPP FORT !!

Merci, bravo !!

 

Vote positif 0 Vote négatif