Discussion :

[ptitepo]

Bjr à tous,
J'ai un tableau avec un légende à coté, je voulais savoir si c'était possible de faire comme sous paint, de clické sur la couleur dans la légende et quant je click sur une case de mon tableau, la case prenne cette couleur ?
Merci bien

[wilfried_42]

Bonjour

C'est possible par macro (une seule macro), il nous faudrait neanmoins une partie de ton fichier, sans donnée confidentielle

@ te lire

salutations

[ptitepo]

Voici le fichier

[wilfried_42]

re:

en retour ton fichier avec un premier essai, pour acceder au code : ALT +F11

[ptitepo]

Hmm, il n'y a pas de macro :S
Copie moi le code sinon je le metrais en place dans mon fichier.

[wilfried_42]

re:

si il y a une macro (evennementielle sur la selection des cellules)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B12:L16")) Is Nothing Then
        Set couleur = Target ' couleur est une variable definie dans un module standard en public
    End If
    If Not Intersect(Target, Range("B4:AF10")) Is Nothing Then
        Selection.Interior.ColorIndex = couleur.Interior.ColorIndex
        Selection.Interior.Pattern = couleur.Interior.Pattern
    End If
End Sub

[ptitepo]

Ouisansdoute je n'arrive pas a lire tes macros :S
Par contre, je ne sais pas quoi mettre comme type pour la variable couleur dans le code de wolfried, c'est une chaine de caractere ou un entier etc...?
Meri de votre aide

[ouisansdoute]

tu peux mettre un bouton et l'associer à une macro du type :

Code :

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

1
2
3
4
5
6
7
8
9
Sub rouge()
 
    With Selection.Interior
        .ColorIndex = 3 '85.85
        .Pattern = xlSolid
 ActiveCell.FormulaR1C1 = "1"
    Selection.Font.ColorIndex = 3
    End With
End Sub

Ensuite il suffit de sélectionner une cellule puis de cliquer sur le bouton