double click pour afficher 15 et noicir la cellule

[DIGGERJACK]

Bonjour

Je travaille sur un planning horaire de 7 jours
Je voudrais automatiser un peu la chose
Par un double click sur une cellule je voudrais la colorier en noir et y inscrire 15. En effet pour mes calculs actuellement je tape 15 et la mfc fait le reste ex 15 est tapé en h11 puis grace à la poignée de recopie je prolonge jusqu'à z11
Par ailleurs le double click ne doit fonctionner que sur les lignes suivantes 11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41 afin de ne pas écraser mes formules et ne doit fonctionner que sur les sept onglets correspondants aux 7 jours de la semaine

J'ai pensé nommer toutes les plages concernées mais est un début de solution ?
Merci pour votre aide

Diggerjack

 

[Dull]

Re : double click pour afficher 15 et noicir la cellule

Salut Diggerjack, le Forum

Peut comme cela
Mais il doit y avoir plus court (Hervésitunousentend)
et surtout si j'ai bien compris

 

[DIGGERJACK]

Re : double click pour afficher 15 et noicir la cellule

Bonjour Dull le forum

Ca fonctionne mais je pense que ca risque d'être un peu lourd pour les 7 onglets
Quoi qu'il en soit c'est un début et merci pour ton aide

Je suis preneur de toute autre solution plus light
Je vais tenter de nommer les differentes plages ...

Merci et Bonne journée

Diggerjack

 

[Hervé]

Re : double click pour afficher 15 et noicir la cellule

bonjour à tous 🙂

peut etre comme ca dull pour une simplification :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If InStr(1, "11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41", Target.Row) > 0 Then
    Target = 15: Cancel = True
End If

End Sub

ensuite il faudrait placer ca dans le module thisworkbook et tester la feuille.

salut

 

[Robert]

Re : double click pour afficher 15 et noicir la cellule

Bonjour le fil, bonjour le forum,

Hervé arrête c'est démoralisant... J'envoie quand même le fruit (ho la gueule du fruit...) de mes recherches, une macro événementielle à placer dans l'objet ThisWorkbook. Un même double-clic pour mettre/enlever...

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim p As Range 'déclare la variable p (Plage)
Select Case Sh.Name 'agit en fonction du nom de l'onglet
Case "lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche" 'définit les cas
    Set p = Range("C11:BD11") 'définit la varaible p
 
    For x = 13 To 41 Step 2 'boucle sur les lignes autorisées
        Set p = Application.Union(p, Range(Cells(x, 3), Cells(x, 56))) 'redéfinit la variable p
    Next x 'prochaine ligne autorisée de la boucle
 
    'si le double clic n'a pas lieu dans la plage p, sort de la procédure
    If Application.Intersect(Target, p) Is Nothing Then Exit Sub
 
    Cancel = True 'évite le mode édition lié au double clic
 
    If Target.Value = 15 Then 'condition : si la cellule contient 15
        Target.Value = "" 'efface le contenu de la cellule (donc la MFC supprime le fond noir)
    Else 'sinon
        Target.Value = 15 'attibut la valeur 15 (donc la MFC colorie la cellule de noir)
    End If 'fin de la condition
End Select 'fin de l'action en fonction du nom de l'onglet
End Sub

Juste une remarque. Ennemi farouche de la souris je trouve bien plus pratique de taper 15 que de double-cliquer dans la cellule...

 

[pierrejean]

Re : double click pour afficher 15 et noicir la cellule

bonjour DIGGERJACK
Salut Dull 🙂
Salut Hervé 🙂

pas facile de poster apres Hervé
néanmoins il me semble que les contraintes liées aux colonnes n'ont pas été traitées

je soumets donc ma solution

edit :

je n'avais pas rafraichis !!

SAlut Robert

 

[DIGGERJACK]

Re : double click pour afficher 15 et noicir la cellule

Bonjour Hervé Robert Dull et le forum

Merci à vous trois pour vos réponses

En nommant les plages je minimisais les lignes d'écritures de macro mais voilà que Hervé arrive avec une autre solution plus light suivi de très près par Robert pour une autre approche.
Je garde tout cela sous le coude et je pense prendre la solution de Robert qui permet de tout faire à la souris même si ce dernier n'est pas un fin partisan du double click.....
Le double click permet de n'utiliser qu'une seule main pendant que l'autre peut tenir ou le café ou la bière suivant l'heure de la journée ....

Merci à tous les trois pour vos solutions

Bonne journée

Diggerjack

 

[DIGGERJACK]

Re : double click pour afficher 15 et noicir la cellule

Bonjour Pierre jean

Désolé un oubli de rafraîchir

Je vais garder ta solution sous le coude

Merci pour ton aide
Diggerjack

 

[Dull]

Re : double click pour afficher 15 et noicir la cellule

Re le fil,

Y'avais pas assez de Hervé 🙂, faut que PierreJean 🙂 s'y mette aussi

T'as raison Robert c'est démoralisant 😀