Figer couleur cellule

[laplayast]

Bonsoir,

Je souhaiterai par exemple si je sélectionne la cellule J6; ou une autre cellule avoir le choix de lui affecter une couleur sur 4 choix possibles. Aujourd'hui je ne sais pas faire mieux que passer par le pot de peinture. Est-ce qu'une macro avec une fonction de choix est possible? ; ou par une liste de choix de couleurs?. Je ne sais le mettre en application.

Merci de votre aide.

 

[JHA]

Re : Figer couleur cellule

Bonsoir à tous,

peut être avec une MFC voir fichier

JHA

 

[laplayast]

Re : Figer couleur cellule

Bonsoir,

La MFC n'est pas adaptable car je dois rentrer des numéros de séries dans les cellules en question . Il faut passer par un autre modèle. Mais quoi?.

Merci

 

[Chris401]

Re : Figer couleur cellule

Bonsoir

Un essai avec une macro

Cordialement
Chris

 

[JHA]

Re : Figer couleur cellule

Re,

Tu peux mettre les intitulés dans un autre tableau.

JHA

 

[laplayast]

Re : Figer couleur cellule

Bonsoir,

La macro me parait une bonne alternative, mais n'y a t'il pas moyen d'avoir une inputbox avec le choix des couleurs en cliquant dessus.

Merci

 

[Chris401]

Re : Figer couleur cellule

Re
Je ne suis pas sûr de comprendre ce que tu désires.
Nouvel essai

Chris

 

[laplayast]

Re : Figer couleur cellule

Bonsoir,

Merci pour l'inputbox cela va parfaitement. Par contre quand je veux l'appliquer dans mon fichier, VBA m'indique une erreur de compilation nom ambigu détecté.(texte en rouge)
J'envoi le code de la worksheet; il s'agit de la section 3.
Avez vous une solution?

Merci.




Dim celluleAvant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [V16:AG16]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
End Sub
------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
ThisWorkbook.Sheets("sommaire").Activate
ActiveWindow.WindowState = xlMaximized
Application.DisplayFullScreen = False
ActiveWindow.SmallScroll ToRight:=-1
'Range("a1").Select
End Sub
-----------------------------------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("J6:LU7")) Is Nothing And Target.Count = 1 Then 'Adapter la plage
UserForm1.Show
End If
End Sub

 

[Chris401]

Re : Figer couleur cellule

Bonsoir
On ne peut avoir qu'une seule Private Sub Worksheet_SelectionChange ; aussi, intègre mon code au tien :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not IsEmpty(celluleAvant) Then
     If Not Intersect(Range(celluleAvant), [V16:AG16]) Is Nothing Then Calculate
  End If
  celluleAvant = Target.Address
If Not Application.Intersect(Target, Range("J6:LU7")) Is Nothing And Target.Count = 1 Then 'Adapter la plage
    UserForm1.Show
End If
End Sub

Cordialement
Chris

 

[laplayast]

Re : Figer couleur cellule

Bonsoir,

Après copie cela fonctionne correctement, par contre je voudrai compléter la plage de" J5 à LV5; jusqu'à J30; et LV30.
comment je l'integre au code "Range("J6:LU7")).

Merci

 

[Chris401]

Re : Figer couleur cellule

Re

Remplace Range("J6:LU7") par Range("J5:LV30"))

Chris

 

[laplayast]

Re : Figer couleur cellule

Bonsoir,

Aprés un peu plus réflexion j'avais trouvé .

Merci