Feuille protégé et accès seulement au clic

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
t
troy14
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 22 mars 2020
Version d'Excel : 2016

Message par troy14 » 22 mars 2020, 14:20

Bonjour,

J'ai une planification annuelle de type tableau de grant. Je veux protéger la feuille de sorte que mes entraineurs ne puissent rien modifier, mis à part les tâches qu'ils ont fait. Dans les cellules il y est inscris rien ou seulement le chiffre 1.

Donc sur un onglet X et sur une cellule X, la personne pourra seulement cliquer dessus et elle deviendra grise. Si on reclique dessus, elle redevient blanche. La personne ne peut avoir accès à modifier si la case est vide de texte ou s'il y est inscris 1.

Merci de votre aide :)
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'074
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 22 mars 2020, 14:52

Bonjour,

un diagramme de Gantt je suppose, non ?
Sinon avez vous un fichier ?
Vos entraineurs ont quel niveau en informatique ? Car une protection sous Excel n'est pas forcément "inviolable".
A moins que ce ne soit que pour éviter des erreurs de manipulation.

Toujours est-il que sans fichier... :(

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
t
troy14
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 22 mars 2020
Version d'Excel : 2016

Message par troy14 » 22 mars 2020, 14:57

Oui j’ai un fichier évidemment. Ce n’est pas tout à fait un diagramme de grant mais ça y ressemble. C’est une planification annuelle d’entraînement.

Mes entraîneurs sont assez débutant dans l’informatique encore plus que moi.
t
troy14
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 22 mars 2020
Version d'Excel : 2016

Message par troy14 » 22 mars 2020, 15:02

t
troy14
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 22 mars 2020
Version d'Excel : 2016

Message par troy14 » 23 mars 2020, 15:03

LouReeD a écrit :
22 mars 2020, 14:52
Bonjour,

un diagramme de Gantt je suppose, non ?
Sinon avez vous un fichier ?
Vos entraineurs ont quel niveau en informatique ? Car une protection sous Excel n'est pas forcément "inviolable".
A moins que ce ne soit que pour éviter des erreurs de manipulation.

Toujours est-il que sans fichier... :(

@ bientôt

LouReeD
le voici.
Planif CDL annuelle modèle.xlsx
(72.51 Kio) Téléchargé 2 fois
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'074
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 23 mars 2020, 18:19

Bonjour,

pourquoi vouloir faire de la cosmétique dans une feuille Excel ?
Pourquoi mettre des colonnes blanche entre les colonnes de semaines ?! :bof:

Sinon un code à mettre dans "ThisWorkbook" :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Target.Row > 5 And Target.Column > 2 Then
        Cancel = True
        If Target.Interior.Color <> RGB(146, 208, 80) Then
            If Target.Value = 1 Then
                Target.Value = ""
                Target.Font.Color = 0
                Target.Interior.Color = RGB(255,255,255)
            Else
            	Target.Value = 1
            	Target.Font.Color = RGB(168,168,168)
            	Target.Interior.Color = RGB(168,168,168)
            ' erreur ci dessous corrigée le 15/04/2020
            End If
        End If
    End If
End Sub
Le double clic ne fonctionne que sur les lignes au delà de 5 et les colonnes au delà de 2 et sur les cellules "non vertes". En le mettant dans ThisWorkbook, un seul code pour toutes les feuilles !

@ bientôt

LouReeD
Modifié en dernier par LouReeD le 15 avril 2020, 16:26, modifié 2 fois.
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
t
troy14
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 22 mars 2020
Version d'Excel : 2016

Message par troy14 » 23 mars 2020, 19:40

Pour la cosmétique .... pour rendre le fichier vivant .... ??? Je ne sais pas trop. Cette saison nous avons imprimé les planifications et l'an prochain elles seront en fichier a chacun des entraineurs, donc je laisserais surment tomber la cosmétique.

voici ce que j'ai eu après avoir entré le code dans chacun des feuilles en piece jointe.

Merci beaucoup de l'aide!
Capture.PNG
t
troy14
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 22 mars 2020
Version d'Excel : 2016

Message par troy14 » 23 mars 2020, 19:51

ohhhhh j'avais jamais fait worksheet et jai regardé avec logique le débogeur et j'ai réussi moi-même! ;;)

Ok je dois maintenant savoir comment faire ce genre de codage. En lisant sur le forum les onglets ci-haut ca devrait être bien!
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'074
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 23 mars 2020, 21:19

Alors, pour commencer , bravo ! Vous avez réussi à trouver l'erreur !
Pour continuer : vous avez vu à quel point c'est facile de trouver une erreur sur un code indenté ?
Indenté ?! Quèsaco ? Le fait de créer un décalage entre les différents blocs de ligne de code.
Et sur l'image on voit très bien le "If" intérieur qui n'a pas de "End If" ! :-)
Et pour finir, il ne faut pas écrire ce code sur toutes les feuilles mais uniquement sur "ThisWorkbook", c'est une surveillance événementielle sur le double-clic mais au niveau du classeur entier.
Ce qui fait que vous n'avez qu'un seul code à gérer pour la "maintenance".
Et pour la suite : en effet tous les liens, cours et astuces, sans parler des applications téléchargeable, tout ceci fera de vous un futur "grand" du codage VBA ! :-)
Je suis passé par là, même si je ne me considère pas comme un grand mais j'arrive à peu près à faire ce que j'ai envie ! :lol:

@ bientôt

LouReeD
1 membre du forum aime ce message.
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message