XL 2016 Liste de choix déroulante avec couleur correspondante RESOLU

Dranreb

XLDnaute Barbatruc

• 14 Octobre 2017

• #2

Bonsoir.
Avec ça dans le module Feuil1 (Saisie) :

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Set Cel = Feuil2.[B2:B14].Find(What:=Target.Value, LookIn:=xlValues, _
   LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False)
If Cel Is Nothing Then Exit Sub
Target.Interior.Color = Cel.Interior.Color
End Sub

 

Vote positif 0 Vote négatif

chajmi

XLDnaute Occasionnel

• 14 Octobre 2017

• #3

Bonsoir Dranreb
La solution proposée ne fonctionne pas chez moi.
Peux tu la mettre en place dans mon fichier exemple ?

Merci d'avance !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Octobre 2017

• #4

L'avez vous bien mis dans le module objet de la feuille et non pas dans un module standard ?

 

Vote positif 0 Vote négatif

chajmi

XLDnaute Occasionnel

• 14 Octobre 2017

• #5

Oui

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2017

• #6

Bonjour à tous,

Une autre version qui colore toutes les cellules à chaque fois au cas où on aurait supprimé par mégarde les couleur des cellules issues d'une liste de validation.

 

Pièces jointes

• chajmi- Couleur dans menus déroulants- v1.xlsm

  18.8 KB · Affichages: 46

Vote positif 0 Vote négatif

chajmi

XLDnaute Occasionnel

• 15 Octobre 2017

• #7

BISSON Nicole à dit:

Bonjour,

cf PJ

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([planning], Target) Is Nothing Then
    Application.EnableEvents = False
    On Error Resume Next
    [Couleurs].Find(Target, LookAt:=xlWhole).Copy
    Target.PasteSpecial Paste:=xlPasteFormats
    Application.EnableEvents = True
  End If
End Sub

Bisson

Cliquez pour agrandir...

Je suis désolé mais cela ne fonctionne pas.
C'est peut être un problème de version d'Excel ???
Je suis sous Mac Excel version 15.30

 

Vote positif 0 Vote négatif

chajmi

XLDnaute Occasionnel

• 15 Octobre 2017

• #8

mapomme à dit:

Bonjour à tous,

Une autre version qui colore toutes les cellules à chaque fois au cas où on aurait supprimé par mégarde les couleur des cellules issues d'une liste de validation.

Cliquez pour agrandir...

Je suis désolé mais cela ne fonctionne pas.
C'est peut être un problème de version d'Excel ???
Je suis sous Mac Excel version 15.30

Quand je change une cellules toutes les autres passent en blanc et ensuite plus rien. Cela reste blanc tout le temps. Sinon l'idée état intéressante.

Merci de votre aide

 

Vote positif 0 Vote négatif

chajmi

XLDnaute Occasionnel

• 15 Octobre 2017

• #9

Dranreb à dit:

L'avez vous bien mis dans le module objet de la feuille et non pas dans un module standard ?

Cliquez pour agrandir...

Oui et j'ai le message : "Erreur de compilation" "Variable non définie" ??????

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2017

• #10

Mais quelle variable ?
Auriez vous changé de classeur, le nouveau ne possédant pas d'objet Worksheet nommé 'Feuil2' dans la rubrique 'Microsoft Excel Objets' ?

 

Vote positif 0 Vote négatif

chajmi

XLDnaute Occasionnel

• 15 Octobre 2017

• #11

Non je n'ai pas changé de classeur.
Par contre, je ne sais pas pourquoi, dans visual basic, ma feuille s'appelait "Feuille2" au lieu de "Feuil2".
Je l'ai donc renommée comme dans le code, mais ça ne marche pas mieux.
J'ai un message d'erreur différent : "Erreur d'exécution « 448 »: Argument nommé introuvable"

Je ne comprends pas et je suis preneur d'une solution.

Merci d'avance à qui pourra m'aider.
Je remets mon fichier avec le code de Dranreb

 

Pièces jointes

• Essai couleur dans menus déroulants.xlsm

  16.1 KB · Affichages: 23

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Octobre 2017

• #12

Le classeur joint marche tel quel chez moi. Sur MAC, bon ben c'est sur MAC, quoi…
Ce ne sera pas la dernière fois qu'un truc marche sur Microsoft et pas sur MAC.

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 15 Octobre 2017

• #13

Bon_soir

et ainsi ?

VB:

Private Sub Worksheet_Change(ByVal R As Range)
  Dim C As Range
  Set C = Feuil2.[B3:B14].Find(R,Lookat:=1)
  If Not C Is Nothing Then
  Application.EnableEvents = 0
  C.Copy R
  Application.EnableEvents = 1
  End If
End Sub

 

Dernière édition: 15 Octobre 2017

Vote positif 0 Vote négatif

chajmi

XLDnaute Occasionnel

• 16 Octobre 2017

• #14

Dranreb à dit:

Le classeur joint marche tel quel chez moi. Sur MAC, bon ben c'est sur MAC, quoi…
Ce ne sera pas la dernière fois qu'un truc marche sur Microsoft et pas sur MAC.

Cliquez pour agrandir...

Merci à Dranreb et ma pomme.
Effectivement, les 2 solutions fonctionnent sur PC (j'ai un pc au boulot et un mac à la maison)

Mais je pense que c'est un problème de version d'Excel.

Merci à tous pour votre perspicacité.

 

Vote positif 0 Vote négatif