LISTE DANS CELLULE

[LULESSE]

VOILA JE VOUDRAIS FAIRE UN TRUC TRES SIMPLE MAIS SUPER COMPLIQUE POUR MOI
J AIMERAIS POUVOIR AVOIR UN CHOIX (LISTE DEROULANTE) DANS UNE CELLULE SELECTIONNEE ( VOIR FICHIER JOINT) AFIN DE POUVOIR AFFECTER DES MOTS(LISTE FIXE) ET DES COULEURS (COULEUR FIXE PAR RAPPORT AU MOT .
J ESPERE QUE VOUS M AVEZ COMPRIS CAR EN ME RELISANT MOI PAS

 

[laoulou]

Voir ici

http://www.excel-downloads.com/html/French/forum/messages/1_68779_68779.htm

 

[@+Thierry]

Bonsoir Lulesse Laoulou, le Forum

Tu trouveras pas mal d'exemples dans ce Forum et aussi dans l'espace de téléchargement dont l'excellent "Le Coffret des listes" mises à disposition par nos charmantes Miss Celeda et Monique (voir Leçons et exemples VBA

Mais par ailleurs je te recommande de faire un tour par notre Charte où tu aurais pu apprendre (entre autre chose) à éviter les Majuscules qui signifient « crier »...



Bonne Soirée
@+Thierry

 

[LULESSE]

Merci de votre aide , ca marche super.
J ai fais des efforts pour ne pas crier

juste une petite aide de plus , si lors de ma selection je pouvais avoir un code couleur par tri , se serait super
Merci de votre aide.

 

[LULESSE]

En fait je voudrais faire un truc comme ca
For Each CELL In Range("C11:AJ24")
If CELL.Value = "yyy" Then
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
For Each CELL In Range("C11:AJ24")
If CELL.Value = "xxx" Then
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
donc pouvoir donner une couleur aux cellules avec "xxx"
et une autre couleur aux cellules avec "yyy"
Je pense qu il y a plus simple mais je trouve pas .
Merci de votre aide

 

[@+Thierry]

Bonjour Lulusse, Le Forum

En raison de la panne du 3-4/2/2004, ta dernière question est restée en plan...

Voici, une méthode avec "Select Case", très pratique pour du multiple conditions (j'ai rajouté un cas "zzz", pour exemple) :

Option Explicit
Option Compare Text

Sub Test()
Dim Cell As Range
For Each Cell In Range("A1:A100")
With Cell
Select Case Cell.Value
Case "yyy": .Interior.ColorIndex = 3
Case "xxx": .Interior.ColorIndex = 4
Case "zzz": .Interior.ColorIndex = 6
Case Else: .Interior.ColorIndex = xlNone
End Select
End With
Next
End Sub

Bon week End
@+Thierry