Discussion :

[Olivierporcinet]

Bonjour,

Voici mon code

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
Private Sub UserForm_Initialize()
 Call ComboBox1_Initialize
End Sub
 
Private Sub ComboBox1_Change()
  ThisWorkbook.Worksheets(ComboBox1.Value).Activate
End Sub
 
Private Sub ComboBox1_Initialize()
Dim wsh As Worksheet
  ComboBox1.Clear
  For Each wsh In ThisWorkbook.Worksheets
    ComboBox1.AddItem wsh.Name
  Next wsh
End Sub

Je cherche le moyen de :

- mettre en rouge l'onglet correspondant à ma sélection dans le combobox

- revenir à la "couleur d'origine" lorsque cet onglet n'est plus sélectionné.



Autre petit problème, j'ai dans mon classeur 370 feuilles et, de ce fait, il est lent à l'ouverture.

Pour info, aucune macro ne s'ouvre automatiquement ..... sauf peut-être, à mon avis le rafraîchissement du combobox.

Des idées ?

Merci.

Bonne journée.

[Olivierporcinet]

est-il possible de mettre ces codes quelque part ?

Code :

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

Application.ScreenUpdating = False

Code :

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

Application.ScreenUpdating = True

[Franc]

Bonjour, testez ceci:

Code :

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

1
2
3
Private Sub UserForm_Initialize()
    Call ComboBox1_Initialize
End Sub

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
Private Sub ComboBox1_Change()
    Static lastSheet As Worksheet ' Conserver l'onglet précédent
 
    ' Réinitialiser la couleur de l'onglet précédent
    If Not lastSheet Is Nothing Then
        lastSheet.Tab.ColorIndex = xlColorIndexNone
    End If
 
    ' Activer et mettre en rouge l'onglet sélectionné
    Dim currentSheet As Worksheet
    Set currentSheet = ThisWorkbook.Worksheets(ComboBox1.Value)
    currentSheet.Activate
    currentSheet.Tab.Color = RGB(255, 0, 0) ' Couleur rouge
 
    ' Mémoriser l'onglet actuel comme dernier onglet
    Set lastSheet = currentSheet
End Sub

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
Private Sub ComboBox1_Initialize()
    Dim wsh As Worksheet
    ComboBox1.Clear
 
    ' Désactiver le rafraîchissement pour accélérer le chargement
    Application.ScreenUpdating = False
 
    ' Ajouter chaque feuille au ComboBox
    For Each wsh In ThisWorkbook.Worksheets
        ComboBox1.AddItem wsh.Name
    Next wsh
 
    ' Réactiver le rafraîchissement
    Application.ScreenUpdating = True
End Sub

Si les feuilles ne changent pas fréquemment, vous pouvez envisager d'enregistrer leur liste dans un tableau statique à utiliser pour le ComboBox.

[Olivierporcinet]

merci mais l'onglet reste en rouge même quand je sélectionne un nouvel onglet

[Franc]

Testez avec cette modification:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
    ' Appel à l'initialisation du ComboBox
    Call ComboBox1_Initialize
 
    ' Réinitialisation des couleurs de tous les onglets
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Tab.ColorIndex = xlColorIndexNone ' Enlever toute couleur personnalisée
    Next wsh
End Sub

[Olivierporcinet]

Un super grand merci, c'est ce que je cherchais.

Bonne après midi et bon weekend