High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Excel - Couleur onglet en fonction cellule

Dernière réponse le 15 jun 2009 à 16:29:54 caro, le 15 jun 2009 à 15:30:51 
 Signaler ce message aux modérateurs

Re-bonjour,

Une question comme ça pour l'esthétique... Y a t'il un moyen de modifier la couleur de l'onglet automatiquement en fonction du nom de l'entreprise que j'entre dans une cellule. Par exemple si je mets dans ma cellule F9 le nom de l'entreprise CHMOL la couleur de mon onglet devient vert???

Merci pour vos lumières

Configuration: Windows XP
Firefox 3.0.11

Meilleures réponses pour « Excel Couleur onglet en fonction cellule » dans :
[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
[VBA] Fonction qui retourne la couleur active d'une MFC VoirCette fonction retourne la valeur du format actif d'une mise en forme conditionnelle. Avec la fonction de la démo, deux valeurs peuvent êtres retournées. Mode = 0 : retourne la valeur de Interior.ColorIndex Mode = 1 : retourne la valeur de...
Posez votre question Répondre

1

smartway14, le 15 jun 2009 à 15:50:09

Bonjour;
vous pouvez faire ça via VBA

   
Répondre à smartway14

2

Mike-31, le 15 jun 2009 à 15:57:19

Salut,

A adapter, code à placer dans le code feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" Then
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = 4
End If
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

   
Répondre à Mike-31

3

qmike, le 15 jun 2009 à 16:00:42

Bonjour
tiens une piste
Private Sub Workbook_Open()
Range("a1").Select
If ActiveCell.Value = "CHMOL" Then
ActiveSheet.Tab.ColorIndex = 6
Else
ActiveSheet.Tab.ColorIndex = 3
End If
End Sub

   
Répondre à qmike

4

caro, le 15 jun 2009 à 16:02:20

Je vais essayer ça.

Merci...

   
Répondre à caro

5

 Mike-31, le 15 jun 2009 à 16:29:54

Re,

j'ai répondu un peu vite, à mettre dans le code feuille, si F9 affiche CHMOL onglet Vert si non onglet sans couleur

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F9") = "CHMOL" Then
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = 4
Else
ActiveWorkbook.Sheets("Feuil1").Tab.ColorIndex = -4142
End If
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

   
Répondre à Mike-31
Posez votre question Répondre
Ils ont besoin de votre aide