couleur pour liste déroulante

S

supercrapaud

XLDnaute Occasionnel

• 8 Avril 2011

• #2

Re : couleur pour liste déroulante

Bonjour.

Tu devrais peut-être passer par une mise en forme conditionnelle.

 

Vote positif 0 Vote négatif

B

Beetwin

XLDnaute Nouveau

• 8 Avril 2011

• #3

Re : couleur pour liste déroulante

Merci de me répondre

Toutefois j'ai essayé mais on peut enregistrer que 3 mise en forme conditionnelle et j'ai dans mon tableu une vingtaine de couleur correspondant a une vingtaine de choix possible .

 

Vote positif 0 Vote négatif

S

supercrapaud

XLDnaute Occasionnel

• 8 Avril 2011

• #4

Re : couleur pour liste déroulante

OK si tu t'y connais en macro voilà un truc à développer.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("a16:a20"), Target) Is Nothing Then
If ActiveCell = "PORTAIL PVC" Then ActiveCell.Interior.Color = 4
End If
End Sub
ce que je te conseille c'est d'enregistrer une macro. Ensuite tu colore ta cellule de toutes les couleurs à la suite comme cela tu connaîtras les N°. Il te suffira de rajouter des lignes en changeant le texte et le N° de la couleur et de changer ta plage de données.

 

Pièces jointes

• Classeur1.xls

  39.5 KB · Affichages: 78
• Classeur1.xls

  39.5 KB · Affichages: 81
• Classeur1.xls

  39.5 KB · Affichages: 88

Vote positif 0 Vote négatif

B

Beetwin

XLDnaute Nouveau

• 8 Avril 2011

• #5

Re : couleur pour liste déroulante

Ouille là bon jy arrive pas

Si ya un cas en France c'est moi

 

Vote positif 0 Vote négatif

B

Beetwin

XLDnaute Nouveau

• 8 Avril 2011

• #6

Re : couleur pour liste déroulante

oh là là mais quel galére


J'y arrive pas

 

Vote positif 0 Vote négatif

S

supercrapaud

XLDnaute Occasionnel

• 8 Avril 2011

• #7

Re : couleur pour liste déroulante

je regarde ce soir si je peux

 

Vote positif 0 Vote négatif

B

Beetwin

XLDnaute Nouveau

• 8 Avril 2011

• #8

Re : couleur pour liste déroulante

Merci supercrapaud 🙂

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Avril 2011

• #9

Re : couleur pour liste déroulante

Bonjour Beetwin, Bonjour supercrapaud,

Juste une question : pourquoi la liste déroulante en A3 ne se base pas sur les choix du dessous mais sur ceux de la colonne G (Produits) ?

 

Vote positif 0 Vote négatif

B

Beetwin

XLDnaute Nouveau

• 8 Avril 2011

• #10

Re : couleur pour liste déroulante

ah je pense une erreur
En effet tu a raison normalement elle aurais du correspondre avec la liste qui est dessous

 

Vote positif 0 Vote négatif

B

Beetwin

XLDnaute Nouveau

• 8 Avril 2011

• #11

Re : couleur pour liste déroulante

Voilà la modif merci de me l'avoir indiqué

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Avril 2011

• #12

Re : couleur pour liste déroulante

Re,

un essai (à mettre dans le code de la feuille concernée)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NomPlage As String, Pos As Long
    On Error GoTo ErrValid
    Application.ScreenUpdating = False
    If Target.Count = 1 Then
        If Not Application.Intersect(Target, Range("A3,C3,E3,G3")) Is Nothing Then
            If Target.Validation.Type = 3 Then
                Target.Interior.ColorIndex = xlColorIndexNone
                NomPlage = Replace(Target.Validation.Formula1, "=", "")
                Pos = 0
                If Application.CountIf(Range(NomPlage), Target.Value) > 0 Then
                    Pos = Application.Match(Target.Value, Range(NomPlage), 0)
                    Target.Interior.ColorIndex = Range(NomPlage).Range("A" & Pos).Interior.ColorIndex
                End If
            End If
        End If
    End If
    Application.ScreenUpdating = True
    On Error GoTo 0
ErrValid:
End Sub

 

Vote positif 0 Vote négatif

B

Beetwin

XLDnaute Nouveau

• 8 Avril 2011

• #13

Re : couleur pour liste déroulante

Amen !!!

Dieu existe

 

Vote positif 0 Vote négatif