couleur double clic

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Août 2011

• #2

Re : couleur double clic

Bonjour Mitch,

la fonction IIF permet uniquement d'alterner deux valeurs ou textes
j'ai contré cela en permettant d'utiliser le dbl-clic ET le rightClic dans le partie jaune de la feuille

pour la partie verte, je te laisse découvrir le fichier joint

à+
Philippe

Édit: quelle est la différence entre Présent 1/2 et Absent 1/2 ??????????????
si tu veux des "Présent 1/4" ou 1/8 😀😀 je peux les ajouter

 

Pièces jointes

• 111.xls

  58.5 KB · Affichages: 76
• 111.xls

  58.5 KB · Affichages: 80
• 111.xls

  58.5 KB · Affichages: 76

Dernière édition: 7 Août 2011

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 7 Août 2011

• #3

Bonsoir Mitch, Florent
Bonsoir le forum,

Dans ce fil, 2 exemples empruntés à Lii et Job75

https://www.excel-downloads.com/thr...etite-liste-de-validation-proposition.133868/

Klin89

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 7 Août 2011

• #4

Re : couleur double clic

Bonjour,

une alternative ici :
Si vide -> Présent
Puis on alterne entre les 4 choix à chaque dble clic

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim A as string
If Not Intersect(Target, Range("B5:N10")) Is Nothing Then
Select Case Target.Value
Case "", "Absent 1/2"
    A = "Présent"
Case "Présent"
    A = "Présent 1/2"
Case "Présent 1/2"
    A = "Absent"
Case "Absent"
    A = "Absent 1/2"
Case Else
    A = Target.Value
End Select
Target.Value = A
End If
Cancel = True
End Sub

 

Pièces jointes

• Alternative.xls

  32.5 KB · Affichages: 57
• Alternative.xls

  32.5 KB · Affichages: 61
• Alternative.xls

  32.5 KB · Affichages: 58

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Août 2011

• #5

Re : couleur double clic

Re, Bonjour Klin, Softmama

les solutions que vous proposez ont le petit inconvénient de devoir faire 4 dbl-clic ou 4 right-clic si on doit effectuer le quatrième choix
c'est pour cela que j'ai préféré passer par un usf qui aura l'avantage de pouvoir être étendu (avec des "Présent 1/4",.......) sans devoir faire un clic en plus

à+
Philippe

 

Vote positif 0 Vote négatif

M

Mitch

XLDnaute Occasionnel

• 7 Août 2011

• #6

Re : Re: couleur double clic

Je te remercie phlaurent55 la partie verte me convient parfaitement je vais l'adapter a mon fichier
PS : pour répondre a ta question la différence c'est ( Présent) sont des heures sup et je reconnais que ma demande comme elle est tournée et un peut c..

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 7 Août 2011

• #7

Re : couleur double clic

Re,

Suite aux judicieuses remarques de Philippe, j'ai fait une autre forme d'alternative qui en tient compte^^ :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B5:N10")) Is Nothing Then
Dim vVal
vVal = "Présent,Absent,Présent 1/2,Absent 1/2"
If InStr(vVal, Target.Value) = 0 Then Exit Sub
Range("B5:N10").Validation.Delete
Target.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=vVal
  SendKeys "%{DOWN}", False
End If
Cancel = True
End Sub

 

Pièces jointes

• Alternative.xls

  39.5 KB · Affichages: 64
• Alternative.xls

  39.5 KB · Affichages: 65
• Alternative.xls

  39.5 KB · Affichages: 53

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Août 2011

• #8

Re : couleur double clic

Re,

Softmama à dit:

Re,

Suite aux judicieuses remarques de Philippe, j'ai fait une autre forme d'alternative qui en tient compte^^ :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B5:N10")) Is Nothing Then
Dim vVal
vVal = "Présent,Absent,Présent 1/2,Absent 1/2"
If InStr(vVal, Target.Value) = 0 Then Exit Sub
Range("B5:N10").Validation.Delete
Target.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=vVal
  SendKeys "%{DOWN}", False
End If
Cancel = True
End Sub

Cliquez pour agrandir...

BRAVO Softmama, je m'incline

à+
Philippe

 

Vote positif 0 Vote négatif

M

Mitch

XLDnaute Occasionnel

• 8 Août 2011

• #9

Re : couleur double clic

Bonjour phlaurent ,je rencontre un petit souci avec ta macro qui marche super bien mais dans mon tabeau j'ai 12 feuilles ,une par mois et le code fait reference a une seule feuille comment inclure les autres

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Août 2011

• #10

Re : couleur double clic

Re,

voir fichier joint pour un code valable pour toutes les feuilles

à+
Philippe

 

Pièces jointes

• 111.xls

  67.5 KB · Affichages: 58
• 111.xls

  67.5 KB · Affichages: 67
• 111.xls

  67.5 KB · Affichages: 57

Vote positif 0 Vote négatif

M

Mitch

XLDnaute Occasionnel

• 8 Août 2011

• #11

Re : couleur double clic

Je te remercie pour tout tu est vraiment super
Bonne soirée

 

Vote positif 0 Vote négatif