texte et couleur

[claude40]

bonjour a tous
dans le fichier suivant j'ai introduit une macro,qui en double cliquant sur les cellules a cotés des dates me selectionne une couleur a chaque double click.

je voudrais savoir s'il et possible que quand je double click en plus de la couleur sa m'affiche dans la cellule un texte.

exemple: rouge=RTT
vert=férié

merci d'avance

Regarde la pièce jointe planing 1.xls

 

[jeanpierre]

Re : texte et couleur

Bonjour claude40,

Exemple pour RTT :

Cells(Target.Row, Target.Column).Interior.ColorIndex = 3
Cells(Target.Row, Target.Column) = "RTT"

et pour Férié :

Cells(Target.Row, Target.Column).Interior.ColorIndex = 4
Cells(Target.Row, Target.Column) = "Férié"

Tu modifies les autres de la même manière.

Bonne journée.

Jean-Pierre

 

[Pierrot93]

Re : texte et couleur

Bonjour Claude, Jean-Pierre🙂

peut être comme ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Interior.ColorIndex = xlNone Then
   Target.Interior.ColorIndex = 5: Target.Value = "rien"
    ElseIf Target.Interior.ColorIndex = 5 Then Target.Interior.ColorIndex = 3: Target.Value = "rtt"
    ElseIf Target.Interior.ColorIndex = 3 Then Target.Interior.ColorIndex = 4: Target.Value = "férié"
    ElseIf Target.Interior.ColorIndex = 4 Then Target.Interior.ColorIndex = 6: Target.Value = "bof"
    ElseIf Target.Interior.ColorIndex = 6 Then Target.Interior.ColorIndex = 0: Target.Value = "rien"
End If
End Sub

bonne journée
@+

 

[claude40]

Re : texte et couleur

rebonjour et grand merci a vous 2 jean-pierre et pierrot93

si cela ne vous dérange je voudrais que en selectionnant un couleur dans une celulle sa me remplisse le cellule date de la meme couleur.

merci beaucoup

 

[Pierrot93]

Re : texte et couleur

Re

essaye en modifiant comme suit :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Interior.ColorIndex = xlNone Then
   Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 5: Target.Value = "rien"
    ElseIf Target.Interior.ColorIndex = 5 Then Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 3: Target.Value = "rtt"
    ElseIf Target.Interior.ColorIndex = 3 Then Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 4: Target.Value = "férié"
    ElseIf Target.Interior.ColorIndex = 4 Then Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 6: Target.Value = "bof"
    ElseIf Target.Interior.ColorIndex = 6 Then Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 0: Target.Value = "rien"
End If
End Sub

@+

 

[claude40]

Re : texte et couleur

rebonjour
pierrot93 je n'arrive pas a faire fonctionner ton code corectement.
peut me faire colorer la case date en partant du code de jeanpierre si tu peut.

merci pour tout

 

[Pierrot93]

Re : texte et couleur

Re

chez moi, le code donné fonctionne (excel 2003)... J'ai mis un test sur la ligne et la colonne de la cellule "double clikée" :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 And Target.Column < 25 And Target.Column Mod 2 = 0 And Target.Row > 4 Then
    If Target.Interior.ColorIndex = xlNone Then
       Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 5: Target.Value = "rien"
        ElseIf Target.Interior.ColorIndex = 5 Then Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 3: Target.Value = "rtt"
        ElseIf Target.Interior.ColorIndex = 3 Then Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 4: Target.Value = "férié"
        ElseIf Target.Interior.ColorIndex = 4 Then Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 6: Target.Value = "bof"
        ElseIf Target.Interior.ColorIndex = 6 Then Target.Offset(0, -1).Resize(, 2).Interior.ColorIndex = 0: Target.Value = "rien"
    End If
    Cancel = True
End If
End Sub

fait un copier / coller du code ci dessous dans la feuille concernée.

bon après midi
@+

 

[claude40]

Re : texte et couleur

re

et d'aprés se code peut tu faire quelque chose de semblable s'il te plait?

merci

Regarde la pièce jointe planing 2 -.xls

 

[Pierrot93]

Re : texte et couleur

Re

je viens de copier coller le code donné dans ton nouveau classeur et chez moi cela fonctionne... ou alors quelque chose m'échappe...

 

[claude40]

Re : texte et couleur

re
merci pour tout le dernier code marche tres bien

merci encore

j'aurai peut etre une derniére question si cela ne te derange pas

 

[Pierrot93]

Re : texte et couleur

Re

pas de problème, si je peux y répondre, ce sera avec plaisir.

@+

 

[claude40]

Re : texte et couleur

re
et merci pierrot93

quand tout les celulles seront colorer existe t'il une macro pour les compter par couleur?

merci d'avance

 

[Pierrot93]

Re : texte et couleur

Re

tu peux utiliser une fonction personnalisée comme ci-dessous :

Function NbCouleur(Plage As Range, Cellule_Coul As Range)
Dim c As Range, i As Integer
Application.Volatile
For Each c In Plage
    If c.Interior.ColorIndex = Cellule_Coul.Interior.ColorIndex Then _
        i = 1 + i
Next c
NbCouleur = i
End Function

tu peux également utiliser la fonction "NB.SI", comme tu y associes des valeurs (ex RTT") :

=NB.SI(B5:B34;"RTT")

@+

 

[jeanpierre]

Re : texte et couleur

Re claude40, Bonjour Pierrot,

Je ne sais pas encore si j'aurai le temps, ce tantôt, de faire quelques recherches, mais il existe des solutions ici, soit en partant de la couleur ou soit en partant d'un mot de ne cliquer qu'une fois plutôt que 50 pour arriver au résultat escompté....

Pour le reste, Pierrot a tout dit....

Bonnes Fêtes de fin d'année à tous....

Jean-Pierre

 

[claude40]

Re : texte et couleur

merci beaucoup avous 2

pierrot93 j'essaye ton code

je vous tient au courant