Discussion :

[zineb87]

Salut tout le monde,

j'ai réalisé une application avec VBA et maintenant je dois faire une interface graphique pour l'utilisateur
j'ai opté pour des onglets dans mon userform, mon problème peut être simple mais je n'ai pas sû comment faire
En gros je veux en navigant dans mes onglets, les (hauts des onglets où il y a le nom ) changent de couleur

Merci d'avance pour votre aide.
et Bonne journée à toutes et à tous!

[aalex_38]

Bonjour,

Si j'ai bien compris, dans l'evenement d'activation des feuilles dans Thisworkbook:

Code :

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

1
2
3
4
5
6
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Tab.ColorIndex > 55 Or Sh.Tab.ColorIndex <= 0 Then    Sh.Tab.ColorIndex = 1
Else
Sh.Tab.ColorIndex = Sh.Tab.ColorIndex + 1
End If
End Sub

Edit : Merci, effectivement c'était pour un USF, et dire que je vien de terminer un pt't code pour modifier les couleurs des onglets

Edit2 : Pour ce qui est demandé, après plusieurs essais j'abandonne, la seule chose que j'arrive à faire c'est a inserrer une image avec une couleur donnée et encore ça modifie la couleur de la page mais pas de l'onglet

[fgiambelluco]

Bonjour

aalex_38 : je pense qu'il parle d'une UserForm

zineb87 : je sais pas trop ce que tu veux faire, mais est-ce que le controle Multipage ne serait pas plus adapté ?

[zineb87]

Merci pour ces rapides réponses
oui c'est bien ça c'est un userform , sinon j'ai pas trouvé où changer dans le contrôle multipage y a pas de Color dans la boite de propriété ou quelque chose de sorte .
merci encore une fois

[fgiambelluco]

Re
Si j'ai bien compris tu veux changer la couleur de l'onglet sélectionné.

Désolé, j'ai regardé vite fait, mais j'ai rien trouvé.

Je ne sais pas si on peut changer la couleur de l'onglet sans changer toute la page

Si quelqu'un d'autre à une idée ?

[zineb87]

en fait je veux faire un truc de sorte ça me parait érgonomique :
http://www.pixmania.com/fr/fr/home.h...6d47a4fe0557a1

sinon j'ai essayé ça mais ça marche pas:ma multipage s'appelle onglet

Code :

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

1
2
3
4
5
6
7
8
Private Sub Onglet_Change()
 
Onglet.Pages(0).Color = 32
Onglet.Pages(1).Color = 2
Onglet.Pages(2).Color = 3
Onglet.Pages(3).Color = 4
 
End Sub

[zineb87]

en fait j'ai sillonné l'oncle google il parait que c'est un problème qui émane de Ms .
y a pas de solution pour ce problème
je le déclare résolu ^^
Merci