couleur double clic

[Mitch]

Bonsoir j'ai cette macro pour gerer les absences et présenses j'aurais voulu ameliorer mon tableau de maniere quil m'affiche toujours avec un double clic des demi journée (Présent, Présent 1/2, Absent, Absent 1/2

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B5:N10")) Is Nothing Then
Target.Value = IIf(Target.Value = "Présent", "Absent", "Présent")
[A1].Select
End If
End Sub

Merci a phlaurent55 pour cette macro

 

[phlaurent55]

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

 

[klin89]

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

 

[Softmama]

Re : couleur double clic

Bonjour,

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

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

 

[phlaurent55]

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

 

[Mitch]

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..

 

[Softmama]

Re : couleur double clic

Re,

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

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

 

[phlaurent55]

Re : couleur double clic

Re,

Re,

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

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

BRAVO Softmama, je m'incline

à+
Philippe

 

[Mitch]

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

 

[phlaurent55]

Re : couleur double clic

Re,

voir fichier joint pour un code valable pour toutes les feuilles

à+
Philippe

 

[Mitch]

Re : couleur double clic

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