XL 2013 Liste déroulante

[EricVan]

Bonsoir
Voilà mon problème, j’ai créé une liste déroulante avec des noms, mais avec des couleurs différentes pour certains noms: par exemple. Toto est en gras rouge Tata est est en jaune, etc quand je vais sur ma cellule et que je sélectionne Toto, la couleur du nom est noir, comment conserver la police et la forme de ma liste déroulante. Merci pour votre aide.

 

[Compte Supprimé 979]

Bonjour EricVan,
En utilisant VBA, pas le choix
@+

 

[fanfan38]

Bonjour
Un fichier est TOUJOURS le bienvenu
As tu essayé en utilisant la mise en forme conditionnelle

A+ François

 

[EricVan]

Bonjour
Merci pour vos réponses, mais je ne suis pas un fort en VBA, pour la forme avec conditionnelles, j’ai essayé mais sûrement pas avec la bonne formule.
je vous envoi le fichier dès que je rentre chez moi.
Merci

 

[EricVan]

Bonsoir,

Voici le fichier.

Merci pour votre aide

 

[Compte Supprimé 979]

Bonjour EricVan,

Voici le code à utiliser

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim CelFind As Range
  If Not Intersect(Range("B5:AE28"), Target) Is Nothing Then
    ' Trouver le client dans la liste de clients
    Set CelFind = [listeClt].Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
    ' Si client non trouvé, on sort
    If CelFind Is Nothing Then Exit Sub
    ' Désactiver les évènements
    Application.EnableEvents = False
    ' Sinon on applique les mises en forme
    ' 1) Copie de la cellule trouvée
    CelFind.Copy
    ' 2) Collage du format
    Selection.PasteSpecial Paste:=xlPasteFormats
    ' Réactiver les évènements
    Application.EnableEvents = False
  End If
End Sub

Et le fichier, car j'ai modifié le nom et la formule de la plage de nom client

Ne sachant pas quelle version d'Excel vous avez, je n'ai pas créé de tableau strucutré

@+

 

[EricVan]

Bonjour EricVan,

Voici le code à utiliser

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim CelFind As Range
  If Not Intersect(Range("B5:AE28"), Target) Is Nothing Then
    ' Trouver le client dans la liste de clients
    Set CelFind = [listeClt].Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
    ' Si client non trouvé, on sort
    If CelFind Is Nothing Then Exit Sub
    ' Désactiver les évènements
    Application.EnableEvents = False
    ' Sinon on applique les mises en forme
    ' 1) Copie de la cellule trouvée
    CelFind.Copy
    ' 2) Collage du format
    Selection.PasteSpecial Paste:=xlPasteFormats
    ' Réactiver les évènements
    Application.EnableEvents = False
  End If
End Sub

Et le fichier, car j'ai modifié le nom et la formule de la plage de nom client

Ne sachant pas quelle version d'Excel vous avez, je n'ai pas créé de tableau strucutré

@+

Bonjour Bruno

Merci Bruno, vous êtes un vrai pro, bravo c'est super!
J'ai fais ce petit programme bénévolement car je suis à la retraite et avec le COVID je m'occupe, mais je ne suis pas un pro.

Un grand merci.

Cordialement

 

[EricVan]

Bonjour Bruno

Merci Bruno, vous êtes un vrai pro, bravo c'est super!
J'ai fais ce petit programme bénévolement car je suis à la retraite et avec le COVID je m'occupe, mais je ne suis pas un pro.

Un grand merci.

Cordialement

Bonjour Bruno

Excusez moi de vous solliciter, mais la macro ne marche pas sur les autres feuilles, j'ai un autre probleme, j'ai fais une condition pour éviter les doublons, mais je souhaite cette condition que pour la journée du lundi, mais elle est active sur les autres jours.
En plus si je supprime un nom par erreur, ça ne prends plus la mis en forme du nom dans la liste.
Je vous remercie par avance
Bien a vous

 

[Compte Supprimé 979]

Bonjour EricVan,

Comme je l'avais indiqué, j'ai changé le nom de la plage nommée en plus de la formule
Il fallait donc refaire les validations de données pour chaque feuille (fait)

En revanche, pour les MFC, il y en a 2
Pour les valeur en double, si c'est pour le lundi, il faut modifier la plage (fait)

Voici le fichier avec remise à zéro si suppression du client

@+

 

[EricVan]

Rebonjour

Une fois de plus, je fais appel à vous.
Excusez moi, mais malheureusement ca ne marche pas trop, car quand je rajoute un noms avec une couleur bleu, elle l'affiche avec du rouge, de plus ça ne reprend pas la mise en forme sur les cellules du dessous.
Voici le fichier ou je n'ai rien modifié mais que sélectionner un noms et inseré un nom avec une couleur.

Une nouvelle fois je m'excuse de vous embêter.

Merci

 

[Compte Supprimé 979]

Re,

Désolé, j'ai laissé une erreur dans le code, la dernière ligne est à changer

    ' Réactiver les évènements
    Application.EnableEvents = False

Par

    ' Réactiver les évènements
    Application.EnableEvents = True

Sinon, cela fonctionne une fois et puis plus rien

J'ai modifié le fichier dans le poste précédent en virant les MFC pour vous démontrer que cela fonctionne.
Sauf qu'une MFC prendra toujours le dessus par rapport à une application de format

@+

 

[EricVan]

Bonjour Bruno

Merci pour cette dernière modification, ça marche très bien.

Un grand Merci.
Bien à vous

 

[EricVan]

Bonjour Bruno,

Ce serrait abusé si je vous demande si on peut ajouté à ce fichier une récurrence, par exemple si Toto a un rendez-vous systématique tous les mardi à 14:00, en lui mettant un caractère à son nom et que ça remplisse automatiquement sur la feuille ces rendez-vous tous les mardi à 14h00.
C'est peut être beaucoup à vous demander, mais ça serait super si vous y arrivez.

Bonne journée

 

[EricVan]

Bonjour Bruno

Une fois de plus je fais appel a votre savoir, le fichier marche très bien, j'ai bien la police et les couleurs mais on peut mettre les commentaires sur cette liste déroulante, pour éviter d'aller dans la liste des clients pour voir le commentaire attribué au clients.
Merci d'avance
Bonne journée

 

[Compte Supprimé 979]

Bonjour Eric,

Voici une nouvelle version, avec les demandes #13 et #14

#13 : Pour inscrire un RDV récurent, il suffit de saisir une * après le nom, en revanche je en sais pas comment traiter la suppression de ce RDV à part sur la feuille active

#14 : Si il existe un commentaire, il est inscrit directement dans la cellule ou le nom est saisi

@+