username+date dans une plage de cellule par double clicRésolu

Question

Bonjour,

Je vais essayé d'être clair et concis, j'ai créé un tableau de planning de taches pour le boulot afin que chacun, IDE et/ou AS puisse valider leurs tâches du lundi au samedi. 

En double cliquant (par ex dans E54) et en validant la message box par "oui", son nom d'utilisateur apparait ainsi que la date et l'heure et la cellule se verrouille pour ne pas être modifié. 
Si "Non" rien ne se passe.

Cependant l'action du double clic s'étend après la colonne 10 et cela entraine des erreurs.

J'aimerais donc que vous m'aidiez à limiter l'action du double-clic aux colonnes 5 à 10 (il ne sera pas ajouté plus de jours....6 jours de boulot c'est déjà pas mal lol)  et aux lignes désignés par "IDE" ou "AS" ou "AGENT" (pourra être augmenté ou diminuer suivant les tâches à accomplir, le minimum étant 1, le max étant 8 lignes).

Les autres cellules sont verrouillés par mdp.

Je vous met un classeur en exemple: https://www.cjoint.com/c/LFokmAS6EPW

(le mdp du projet est: "aa" ; le mdp de déverrouillage des feuilles est: "qwerty"

J'ai aussi intégré d'autres macros comme la fermeture automatique d'excel après 7 min d'inactivité et l'activation obligatoire des macros au cas ou ça poserai problème

N'hésitez pas à me poser des questions si je n'ai pas été assez clairs.

En vous remerciant par avance.

Danylou

Configuration: Windows / Chrome 102.0.0.0

Le Pingou · Answer

Bonjour,
Cependant l'action du double clic s'étend après la colonne 10 et cela entraine des erreurs.
En fait il en va de même avant la colonne 5 [E]...!

Le double-clic est autorisé pour les colonnes [E] à [J ]  mais il manque l'indication pour les lignes concernées....
Je vous propose la modification suivante dans la partie [ WITH Target]
With Target
        If .Column >= 5 And .Column <= 10 Then
            If Cells(.Row, 4) = "IDE" Or Cells(.Row, 4) = "AS" Or Cells(.Row, 4) = "AGENT" Then
                .Value = Environ("username") & " - " & Now
            Else
                Exit Sub
            End If
        Else
            Exit Sub
        End If
    End With

Salutations.
Le Pingou

Le Pingou · Answer

Bonjour,
Merci de revoir poste 1! 

Salutations.
Le Pingou

Le Pingou · Answer

Merci, pensez de marquer comme résolu si c'est le cas.

Username+date dans une plage de cellule par double clic

3 réponses

Votre réponse

Newsletters