liste deroulante

[michel 88]

bonjour a tous
voila mon petit probleme
dans un tableau ou se trouve une liste deroulante,je dois clique sur la case que je veux selectionne,puis sur la petite fleche,qui ouvre le menu deroulant, qui se trouve a droite de la case.
est il possible de suprime cette fleche,pour que lorsque je clique sur la case que je veux selectionne,la liste deroulante apparait directement(comme dans access,je pense que cela se fait)
car cette fleche masque la case qui se trouve a cote,et puis cela evite de clique 2 fois pour obtenir la meme chose
merci pour vos reponse

 

[michel 88]

Re : liste deroulante

Ce lien n'existe plus
bonsoir
quelle galere
j'ai envoye mon fichier,si tu peux me le modifier,ce sera super,car moi je pedale.
il me faudrait ,la meme chose que les colonne Q et R pour les autres colonnes.
De plus je n'ai plus de couleurs lorsque je tape les prenoms(la formule "=Special")ne fonctionne plus.
je ne comprend pas pourquoi car je n'ai rien changer.
Merci d'avance.j'aurais toujours essayer,mais le metier ne rentre pas toujours comme on le souhaite.
Merci

 

[jeanpierre]

Re : liste deroulante

Bonsoir tous,

Simplement pour dire qu'avec un petit effort.............. on arrive à beaucoup.

michel_88, ton fichier ZIPPE fait 30 Ko, tu pouvais le joindre ici....

Voilà......

 

[fred65200]

Re : liste deroulante

bonsoir, l
es modifs sont faites mais je crois vraiment que tu n'appliques pas les codes qui te sont soumis!!

fred65200

 

[michel 88]

Re : liste deroulante

bonjour Fred 65200
merci pour la modif du tableau.
Mais il faut que je t'explique un truc.j'ai bien essaye de modifie les codes ,mais sans resultats,car pour toi c'est simple ,car tu connais bien le programme.Ex :car lorsque tu me dit de faire "clic droit" sur l'onglet et ensuite "visualise le code" pour moi ce n'ai pas evident,car si tu ne me precise pas que quel onglet il sagit,je peux passe du temps pour trouver de quoi il sagit,de plus je ne veux pas modifier si je ne suis pas sur.
Car si je fais "clic droit" sur l'onglet de la feuille 1(que je PENSE etre je bon)et "visualise le code " je ne vois pas ,le code que tu ma precise en date du 12 10 07 .c'est pourquoi dans mes messages j'ai precise de m'explique :"en detail"
Maintenant si tu veux, tu peux me dire comment tu a fait.meci.
Autre chose,dans mon tableau,il me manque encore une chose:les prenoms du tableau ne s'affiche pas en couleurs comme dans la legende.
Peux-tu m'explique en detail comment faire.merci encore a toi.

 

[fred65200]

Re : liste deroulante

bonjour Michel 88,

Lorsque je t'écris de faire un clic droit sur l'onglet et visualider le code, l'onglet concerné est l'onglet où tu veux modifier les évènements.

Dans notre cas on parle de l'onglet "feuil1"

Je n'ai pas compris ta Mise En Forme conditionnelle (MFC).
Une MFC ne peux avoir que 3 critères ici, nous avons une liste de 4 personnes, il faut donc passer par les macros.

Copie et colle le code ci-dessous dans le module "Feuil1".
Tu peux supprimer le code que tu avais écrit ainsi que ta MFC =SPECIAL

'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim OK As Boolean
'Dim ColRef As Integer
'Dim LigRef As Long
'
'    'Ne gère pas les sélections de plages
'    If Target.Cells.Count > 1 Then Exit Sub
'    'Vérifie la présence du format conditionnel "spécial"
'    If Target.FormatConditions.Count < 1 Then Exit Sub
'    If Target.FormatConditions(1).Formula1 = "=Special" Then
'        OK = False
'        ColRef = 3
'        LigRef = 39
'        ColRef = ColRef - 2
'        While OK = False
'            ColRef = ColRef + 2
'            If (UCase(Target.Value) = UCase(Cells(LigRef, ColRef).Value)) Or (Cells(LigRef, ColRef) = "") Then OK = True
'        Wend
'        Application.EnableEvents = False
'        With Target.Interior
'            .ColorIndex = Cells(LigRef + 1, ColRef).Interior.ColorIndex
'            .Pattern = Cells(LigRef + 1, ColRef).Interior.Pattern
'            .PatternColor = Cells(LigRef + 1, ColRef).Interior.PatternColorIndex
'        End With
'        Application.EnableEvents = True
'    End If
'End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("C4:AB34"), Target) Is Nothing Then
        Call cre_menu
        Select Case Target
          Case "Catherine": Target.Interior.ColorIndex = 4
          Case "Jacqueline": Target.Interior.ColorIndex = 6
          Case "Michèle": Target.Interior.ColorIndex = 39
          Case "Stéphanie": Target.Interior.ColorIndex = 7
        End Select
    End If
End Sub

Lorsque ta cellule est modifiée, on vérifie sa valeur, si elle correspond à une valeur déterminée (Catherine, Jacqueline, Michèle, Stéphanie), on change la couleur de fond.


Cordialement
fred

 

[michel 88]

Re : liste deroulante

re bonjour Fred 65200
Super pour le tableau,tout fonctionne bien,j'ai suprime le code "feuil 1" pour copier coller,celui que tu m'a donne.Grand merci a +