Colorier cellule

Bonjour,

Comment colorier automatiquement les memes noms dans cellules par une couleur déterminées !

dans le fichiers la colonne C ( Membres )

Merci de votre réponses !

bonsoir

grâce à Mise en Forme Conditionnelle : Accueil >>>juste en dessous de complement

Bonsoir,

Voir cet essai

Slts

Re,

cela ne fonctionne pas lorsque je le met dans mon fichier fina!

Bonsoir,

personnellement je n'aime pas ne pas avoir accès à la cellule, l'objet ComboBox ne devrait s'afficher que lors d'un double-clic par exemple... Je ne me suis pas beaucoup penché sur le code mais les ComboBox ne peuvent-ils pas être remplacés par une liste de choix ?

@ bientôt

LouReeD

Bonsoir,

Attention dans Formules ==> Gestionnaire de noms j'ai crée un nouveau noms Couleurs donc dans la macro c'est pareille j'ai remplacé "comptecourant" par Couleurs alors si tu veux repartir sur tes bases à toi modifier dans la macro Couleurs par "comptecourant" c'est peut-être pour ça que cela ne fonctionne pas chez toi

Slts

Ha ben oui ! Si le fichier est fourni sans explications !

@ bientôt

LouReeD

merci de vos réponses mais ça fonctionne toujours pas , je ne peut pas mettre mon fichiers complet, c'est pour ça que ça fonctionne pas

vos propositions sont bonne mais je ne meux pas les appliquer, il faudrait que je vous fasse tout voir

merci quand même.

bonne soirée

Re

Je t'ai remis ton fichier à l'origine j'ai juste mis ce code en plus pour les couleurs dans la feuille "adherent"

If Not Intersect([C3:C81], Target) Is Nothing Then
    Application.EnableEvents = False
    Dim cell As Range
    For Each cell In Intersect([C3:C81], Target)
      If cell.Value = "" Then
        ' Réinitialiser le format de fond (blanc par défaut)
        cell.Interior.ColorIndex = xlColorIndexNone
      Else
        Dim p
        p = Application.Match(cell.Value, [comptecourant], 0)
        If Not IsError(p) Then
          Application.Index([comptecourant], p).Copy
          cell.PasteSpecial Paste:=xlPasteFormats
        End If
      End If
    Next cell
    Application.CutCopyMode = False
    Application.EnableEvents = True
  End If

Slts

Bonjour du lundi,

Merci bcq voila ça fonctionne super

c'est très gentil à vous Bonne semaine.