Utilisation des couleurs

A

alex67800

XLDnaute Impliqué

• 18 Décembre 2008

• #2

Re : Utilisation des couleurs

Bonsoir Fearink,
Essai ceci:

Code:

Sub Test_couleur()
'
' 
' Macro enregistrée le 18/12/2008 par Alex67800
'
'   Dim c As Range
    For Each c In Selection
         Select Case c.Interior.ColorIndex
             Case 3: c = "'12:00" 'met en format texte, sinon enlever le devant 12:00[B]'[/B]
             Case 4: c = "Vert"
             Case 5: c = "Bleu"
             Case 6: c = "Jaune"
             Case Else: c = "je sais pas"
         End Select
     Next c


End Sub

A placer dans un module ou alors dans:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Pour info tu peux supprimer les autres case '4, 5, 6, Else) si elle ne te servent pas.

A te lire.

 

Vote positif 0 Vote négatif

F

Fearink

XLDnaute Nouveau

• 20 Décembre 2008

• #3

Re : Utilisation des couleurs

Bonjour,

Désoler pour mon temps de reponse élever mais je n'ai plus eu internet depuis :s.

Enfin bref j'ai essayer ta marco malheuresement ce n'est pas vraiment ce que je souhaite.

Je voudrais, sans avoir a appuyer sur quoique ce soit une fois le tableau terminé, que quand j'ai mais une cases en une couleur prédéfinis, cette case se remplisse du texte de mon choix.

Ex : je met une case en jaune via la palette de couleur d'excel et que dans ce cas la il s'affiche automatiquement '12'.

Ca serait comme faire un 'Conditional Formating' sauf que j'utiliserais les couleurs pour afficher quelque chose et non l'inverse.

Merci d'avance pour vos reponses.

Fearink

 

Dernière édition: 20 Décembre 2008

Vote positif 0 Vote négatif

F

Fearink

XLDnaute Nouveau

• 20 Décembre 2008

• #4

Re : Utilisation des couleurs

Je sais qu'il ne faut pas flooder mais pitier j'aurais vraiment besoin de ce petit programme 🙁.
Désoler encore pour mon leger flood.

Fearink

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 20 Décembre 2008

• #5

Re : Utilisation des couleurs

bonjour à tous

la mise en place d'une couleur par la palette ne provoque aucune interruption, donc il devient impossible de savoir quand tu met ou quand tu modifies une couleur.

Par contre, dans le forum, j'ai vu des applications avec des menus popus (liés au menu Format cellule) qui permettent via Macro, d'affecter une couleur à une cellule, donc pourquoi pas d'y ajouter une valeur

essaye de faire une recherche : Menu couleurs (tu devras avoir de la patiente dans ta recherche), si je trouve je te poste le fil

 

Vote positif 0 Vote négatif

F

Fearink

XLDnaute Nouveau

• 20 Décembre 2008

• #6

Re : Utilisation des couleurs

Merci pour ta reponse je fais des recherches de suite.

Fearink

 

Vote positif 0 Vote négatif

A

alex67800

XLDnaute Impliqué

• 21 Décembre 2008

• #7

Re : Utilisation des couleurs

Bonsoir Fearink, wilfried42, le forum,

J'avais trouvé une macro qui changeait la couleur immédiatement la cellule active comme ceci:

Code:

Public old_color, old_sel 
Option Explicit 

Sub Worksheet_SelectionChange(ByVal sel As Range) 
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color 
old_sel = sel.Address 
old_color = sel.Interior.ColorIndex 
sel.Interior.ColorIndex = 41 
End Sub

J'ai inversé le critère, et cela fonctionnaait si ancienne cellule est jaune alors 12. mais en voulant faire un petite modif., plus possible de la faire fonctionner, même en supprimant la modif. Je vous met toutefois le code que j'avais mis, si quelqu'un pouvait le débogué se serait bien.

Code:

Public old_sel, old_value
Option Explicit

Sub Worksheet_SelectionChange(ByVal sel As Range)
[COLOR="Red"]If Range(old_sel).Interior.ColorIndex = 6[/COLOR] Then Range(old_sel).Value = old_value
old_sel = sel.Address
old_value = sel.Value = "12"
sel.Interior.ColorIndex = 6
End Sub

Il me met depuis objet requis avec la partie rouge? Pourtant cela fonctionnait.
C'était pourtant une bonne piste pour ce cas de figure.

 

Vote positif 0 Vote négatif

F

Fearink

XLDnaute Nouveau

• 22 Décembre 2008

• #8

Re : Utilisation des couleurs

Bonjour tous le monde,

Je n'ai pas reussi de debuguer ton programme mais bon n'étant pas forcement tres callé en informatique sa ne m'étonne pas 🙄.

Je voulais savoir si il n'y apas moyen d'utiliser ColorIndex pour servir de test a la macro.

Genre faire un If( ColorIndex=6;A1=12;If ColorIndex=5...)

Bon la ok je l'ai ecrit en formule toute simple mais c'est pour que vous voyez a quoi j'ai penser.

Sinon quelqu'un aurais debuguer la macro de Alex ?

Merci pour vos réponse en tous cas et à bientot.

Fearink

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 22 Décembre 2008

• #9

Re : Utilisation des couleurs

Bonjour Fearink (un pays !!) le Forum

En partant de la très bonne base d'Alex67800 voici une proposition.

A+

 

Pièces jointes

• Fearink.xls

  19 KB · Affichages: 92

Vote positif 0 Vote négatif

F

Fearink

XLDnaute Nouveau

• 22 Décembre 2008

• #10

Re : Utilisation des couleurs

Risleure à dit:

Bonjour Fearink (un pays !!)

Cliquez pour agrandir...

C'est un pays Fearink lol ???

Ta proposition est excelente je pensais pas avoir une reponse si rapidement.

J'aurais une deuxieme question ( si j'abuse hesiter pas hein ! 😛), Je voudrais me servir des couleur que je mettrais dans ma premiere feuille pour remplir automatiquement des données sur une deuxieme feuille.

Genre si je met jaune sur ma premiere feuille ben si fait 12:00 comme sur le fichier et je voudrais en plus que sur ma seconde feuille sa mette d'autres informations genre " tu as travailler 12h" par exemple.

Ca serait possible sa 🙄.

En tous cas merci pour ce que vous avez fait jusque la vous êtes geniaux.

Fearink

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Décembre 2008

• #11

Re : Utilisation des couleurs

Bonjour à tous,

une autre proposition (en retard) qui pourrait prendre des ressources si utilisée sur une grande plage...

 

Pièces jointes

• Classeur2.xls

  37 KB · Affichages: 88
• Classeur2.xls

  37 KB · Affichages: 95
• Classeur2.xls

  37 KB · Affichages: 86

Vote positif 0 Vote négatif

F

Fearink

XLDnaute Nouveau

• 22 Décembre 2008

• #12

Re : Utilisation des couleurs

Merci pour ton aide tototiti mais je préfère la solution de Risleure.

Fearink

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 22 Décembre 2008

• #13

Re : Utilisation des couleurs

Bonsoir Fearink

Mais le pays!!! ....... parce tu es dans l'Eure et moi aussi 😀


Bon après un peu de ménage et comme tu ne donnes pas beaucoup d'explication j'ai brodé.

A+

 

Pièces jointes

• FearinkV2.xls

  27 KB · Affichages: 82

Vote positif 0 Vote négatif

A

alex67800

XLDnaute Impliqué

• 22 Décembre 2008

• #14

Re : Utilisation des couleurs

Bonjour Fearink, tototiti, Risleure,

Donc pour ta première demande mon code correspondait en tout point , à ce que Risleure t'a concocté avec un légère modification. si comme je le suggérais de la mettre dans worksheets_selectionchange.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
    For Each c In Selection
         Select Case c.Interior.ColorIndex
             Case 3: c = "'12:00" 'met en format texte, sinon enlever le devant 12:00'
             Case 4: c = "Vert"
             Case 5: c = "Bleu"
             Case 6: c = "Jaune"
         End Select
     Next c

End Sub

Le seul soucis avec nos deux codes, c'est que nous sommes obligé de passer par la cellule coloré pour que la veleur change, ce n'est donc pas en temps réel. Solution qu ej'ai essayé de règler avec "old_cel", mais qui ne fonctionne plus arffff.
Pour ta deuxième réponse risleure s'en est déjà occupé.

Bonne soirée à tous.

 

Dernière édition: 22 Décembre 2008

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 23 Décembre 2008

• #15

Re : Utilisation des couleurs

Bonjour Alex67800, le Forum

Je n'ai pas géré la couleur car j'ai imaginé (en l'absence de plus de précision!!!) qu'elle était mise en place de manière indépendante par une MFC par exemple.

A+

 

Vote positif 0 Vote négatif