Aide Combobox

Bonjour à tous,

J'ai créé une liste déroulante qui me permet de remplir un emploi du temps en fonction des activitées. Lorsque je me place sur une case de l'emploi du temps et que je sélectionne mon activité, cell-ci apparait dans la case avec la mise en forme voulue.

Voilà mon problème : pour plus de lisibilité je souhaiterais que ma liste déroulante fasse apparaitre les éléments en clair et renvoie dans la case la mise en forme de la colonne suivante. en gros j'ai un texte en K2 et la mise en forme en L2 et je souhaite avoir dans la liste déroulante le texte K2 et dans ma cellule la mise en forme de L2.

J'ai le code actuel :

[couleurs] étant la plage de données comportant ma mise en forme

Private Sub UserForm_Initialize()

Me.ComboBox1.List = [couleurs].Value

Me.ComboBox1.ListIndex = 0

End Sub

Private Sub ComboBox1_Change()

If Me.ComboBox1.ListIndex <> 0 Then

On Error Resume Next

[couleurs].Find(Me.ComboBox1, LookAt:=xlWhole).Copy

Selection.PasteSpecial Paste:=xlValues

Selection.PasteSpecial Paste:=xlFormats

Me.ComboBox1.ListIndex = 0

End If

End Sub

Merci

Bonjour

En postant ton fichier tu augmenteras tes chances d'avoir une solution

c'était prévu mais là je suis au travail et j'ai un jolie proxy qui me bloque pas mal de pages internet dont youtube pour ne siter que lui. Ce qui fait que je n'ai pas accès à l'explication pour poster mon fichier.

re-bonjour,

voilà le fichier en question.

merci de votre aide.

Bonjour

Si j'ai bien compris

Tu veux dans la cellule seulement le coloriage en fonction du motif

En colonne L tu n'as rien à part du vide

Sinon une fois que tu as copié le format, efface la cellule

Private Sub ComboBox1_Change()
   If Me.ComboBox1.ListIndex <> 0 Then
      On Error Resume Next
     [couleurs].Find(Me.ComboBox1, LookAt:=xlWhole).Copy
     Selection.PasteSpecial Paste:=xlValues
     Selection.PasteSpecial Paste:=xlFormats
     Selection.ClearContents
     Me.ComboBox1.ListIndex = 0
   End If
End Sub

Si c'est pas ça et bien je ne sais pas

Bonjour,

je vais essayer ta proposition m&is je ne crois pas que cela sois ce que je cherche.

je voudrais avoir dans ma liste déroulante, par exemple, le nom de la ville ANGERS mais que dans ma case apparaisse uniquement le A avec la mise en forme et ainsi de suite pour toutes les entrées.

Bonjour

Tu changes les règles avant tu parlais des colonnes K (Couleurs) et L

Mais maintenant ce sont les colonnes J et K

A vérifier si c'est ce que tu cherches

C'est exactement ça.

un grand merci Banzai64.