Autres [RÉSOLU] Double click sur colonne H

[un internaute]

Bonjour le forum
Excel 2003
Me voilà revenu
Encore une modif...Ah! ces filles!!!
Elle voudrait un 1er double clic sur cellules de la colonne H en fonction de la demande
Actuellement:
Exemple: le vendredi 06 janvier 2023 elle ne compte pas de repas je fait suppr sur le 1 cellule H11 le 1 s'efface et la cellule devient rouge
Si erreur je retape le 1 et ça redevient comme au début
Serait-il possible de faire un 1er double clic sur cellule H11 (exemple) pour effacer le 1 et cellule en rouge et un 2ème double clic pour remettre le 1 en couleur originale (couleur 35 je crois)?
Merci pour vos éventuels retours
Cordialement

 

[M12]

Bonjour,
Sauf que l'instruction Double-clic sur cette colonne est déjà utilisée pour y placer "Frais établis"
A moins d'utiliser le clic droit, je ne vois pas la solution

 

[Gégé-45550]

Bonjour,
et si vous utilisiez simplement une fonction native d'Excel, la fonction 'Annuler', certainement plus sûre et plus efficace que tout autre "bricolage" ?
Cordialement,

 

[un internaute]

Bonjour à tous les 2
M12 => Mince pas vu déjà utiliser effectivement punaise on lui en fait tellement faire à ce programme!!!
GéGé-45550 oui ok mais faut pas demander ça à moi!!!
Merci d'avance pour ta contribution

 

[un internaute]

M12
Oui je veux bien un clic droit
Elle verra ce que ça donne
Merci pour elle
Cordialement

 

[M12]

M12
Oui je veux bien un clic droit
Elle verra ce que ça donne
Merci pour elle
Cordialement

Re,
Teste ceci

 

[jm.andryszak]

Bonjour
A tester
A mettre dans Private Sub Workbook_SheetBeforeDoubleClick
Cependant le double clic affiche déjà un commentaire.
If Not Intersect(Target, Range("h6:h36")) Is Nothing Then
If Sh.Range(Target.Address) = 1 Then
Sh.Range(Target.Address) = vbNullString
ElseIf Sh.Range(Target.Address) = vbNullString Then
Sh.Range(Target.Address) = 1
Sh.Range(Target.Address).Interior.Color = 13434828 '13434828 peut être converti en RGB(R,G,B)
End If
End If

 

[un internaute]

SUPER NICKEL
Tu as mis ça où STP?

PS: HS
Lundi je crois BrunoM45 a fait "d'énormes" modifs dans les macros mais retrouve car je crois qu'il fait masquer On peut retrouver ça où STP ... il y a des pros sur ces forums!!!

 

[M12]

SUPER NICKEL
Tu as mis ça où STP?

PS: HS
Lundi je crois BrunoM45 a fait "d'énormes" modifs dans les macros mais retrouve car je crois qu'il fait masquer On peut retrouver ça où STP ... il y a des pros sur ces forums!!!

La macro se trouve dans le ThisWorkBook afin que celle-ci soit fonctionnelle sur tous les mois

 

[un internaute]

Re M12
Super ça fonctionne
Mais peut-on enlever ce que s'affiche mais ce n'est pas un problème

 

[un internaute]

Re M12
Il fallait mettre True à la place de False
Merci pour tout
Cordialement

 

[un internaute]

Re M12
Fausse alerte si je met True (celui qui est à la fin) je ne peux plus modifier le commentaire
S'il y a une astuce pour contourner le problème je suis preneur
Cordialement

 

[M12]

Re,

 

[un internaute]

Re M12
J'ai mis ta macro
Avant dernière ligne True
Mais on ne peut pas afficher les commentaires Cellule H2 fusionnée

 

[un internaute]

Erreur afficher oui mais pas modifier