Désolé je rouvre le dossier problème liste déroulante

Je ne comprends plus je viens de modifier mon programme et cela ne fonctionne plus.Pourquoi mes noms ne récupèrent pas la couleur? Je viens de passer 3 heures dessus et je commence à fumer merci pour vos réponses Crying or Very sad

https://www.excel-pratique.com/~files/doc2/eses.xls

Bonjour,

Ce qui me surprend dans ton message, c'est que ça ne fonctionne plus.

Ca fonctionnait donc avant ?

Pour moi, une liste déroulante permet de travailler sur des données, mais sans tenir compte du format (sauf à le faire par macro, mais je n'ai pas vu de macro dans ton fichier).

Peux-tu nous remettre le fichier avec la version où ça fonctionnait ?

A te (re)lire

@+

Oui avant cela fonctionnait sur une seul colonne, mais pour mon programme c'est sur plusieurs colonne, dans l'exemple j'en ai mis que 3. je remets la premiere version qui fonctionnait: https://www.excel-pratique.com/~files/doc2/Copie_de_jejaure_v1.xls

et la version d'exemple modifier: https://www.excel-pratique.com/~files/doc2/8cHp2essai.xls

en espérant avoir la solution car je suis loin d'avoir fini mon programme, merci d'avance pour toutes vos réponses

Salut le forum

La macro adapter pour ton cas

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing And Target <> "" Then
    With Sheets("Couleur")
        Target.Font.ColorIndex = .Columns(Target.Column + 2).Find(Target).Font.ColorIndex
    End With
End If
End Sub

Si tu veux utiliser les listes sur plusieurs colonnes différentes

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing And Target <> "" Then
    With Sheets("Couleur")
        Target.Font.ColorIndex = .Range(Mid(Target.Validation.Formula1, 2)).Find(Target).Font.ColorIndex
    End With
End If
End Sub

Mytå