protection de ligne.

[titoffe]

Bonjour à tous.
Je suis un petit nouveau sur le forum.
C'est en faisant des recherche pour faire des feuilles excel que je suis tombé plusieur fois sur se site.
Etant novice sur excel et étant en galere depuis plusieurs jours sur un (des)probleme, je viens vous demandé conseil...

Voila, j'ai une feuille de pointage (ci jointe)que 8 personnes doivent remplir.
Il doivent pour une tache (code gpao) rentrer leur initiales(utilisateur).
ensuite, ils doivent remplir l'heure de début et celle de fin. jusque la pas de souci....normalement.Lorsqu'ils mettent l'heure de fin ils doivent aussi indiquer l'etat de la phase(suspendue ou terminée) . cette manip permet de remplir la colonne J avec une designation que le logiciels de GPAO reconnait.
Le fait de mettre le debut et la fin de la tache donne une durée (colonne I) ainsi que la date du jour.
Mon souci reside dans le fait que je souhaite verrouiller une ligne dès que la colonne F (confirmez-vous ) est sur oui. Ceci dans le but qui'il n'y est pas de mauvaise manip (travailler à 8 sur un fichier.......)
J'ai eu beau essayé avec des solutions presentées.... je rame. 😕 😕
Merci d'avance.

 

[Compte Supprimé 979]

Re : protection de ligne.

Titoffe, bonjour et bienvenue sur ce forum 🙂

Ce qu'il faut faire dans ton fichier :
1) protéger toutes les cellules sauf les colonnes ou tu va saisir les données

Ensuite avec le code placé dans "Feuille1" tu vérouilles au fur et à mesure tes lignes avec réponse "Oui"

Voir fichier joint 😉

 

[titoffe]

Re : protection de ligne.

Merci beaucoup pour la rapidité mais j'ai oublié de preciser les 8 personnes viennent pointer sur un seul ordi.
Ils viennent tous a tour de role.
par consequent la notification d'utilisation ne fonctionne pas...
merci quand meme, c'est sympa....
Je continue mais recherches.....

 

[JCGL]

Re : protection de ligne.

Bonjour à tous,
Salut Bruno 🙂,
Bienvenue à Titoffe 🙂

Il y avait un petit anagramme sur le dernier Target du code de l'ami Bruno (qui n'a pas pensé à Compiler 😛)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range) 'Bruno45 sur XLD
  If Target.Count > 1 Then Exit Sub
  If Target.Value = "" Then Exit Sub
  ' Sélectionner la cellule de gauche après saisie
  If Left(Target.Address(0, 0), 1) <> "F" Then
    Target.Offset(0, 1).Select
  Else
    ' Si on vient de saisir dans la colonne H
    If Target.Value = "Oui" Then
      ' Si la valeur est OUI
      With ActiveSheet
        ' On déprotège la feuille
        .Unprotect
        ' On vérouille la ligne actuelle
        .Range("A" & Target.Row & ":F" & Target.Row).Locked = True
        ' On reprotège la feuille
        .Protect
        ' Sélectionner la nouvelle ligne vide
        Range("A" & [COLOR=Red][B]Target[/B][/COLOR].Row + 1).Select
      End With
    End If
  End If
End Sub

Qu'entends-tu par :

par consequent la notification d'utilisation ne fonctionne pas...

A+

 

[Compte Supprimé 979]

Re : protection de ligne.

Re, bonsoir ...

j'ai oublié de preciser les 8 personnes viennent pointer sur un seul ordi. Ils viennent tous a tour de role.
par consequent la notification d'utilisation ne fonctionne pas...

Heuuu, là je n'ai pas tout saisi 😕

Qu'est-ce que tu veux dire par cette phrase, peux-tu expliciter !

A+

 

[titoffe]

Re : protection de ligne.

bonjour,
Je suis desolé c'est moi qui est fait une mauvaise manip....
J'ai ouvert le fichier directement par le forum.... 😱 😱 😱
dans ce cas le fichier s'ouvre en lecture seul.... je suis confu.

je viens d'essayer ca fonctionne bien.
Par contre la date de la colonne K change quand meme lorsque l'on rempli une autre ligne.
Je croyais qu'en verrouillant , une cellule ne se recalculait pas....

 

[Compte Supprimé 979]

Re : protection de ligne.

Salut Titoffe,

Tu me rassures 😀

Un cellule avec une formule telle que =Maintenant()
Se recalcul systématiquement à chaque saisie, sauf si on met la feuille en calcul sur ordre (mais là c'est un autre problème)

Dans le code il faut ajouter une ligne, tu n'auras plus de problème

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Value = "" Then Exit Sub
  ' Sélectionner la cellule de gauche après saisie
  If Left(Target.Address(0, 0), 1) <> "F" Then
    Target.Offset(0, 1).Select
  Else
    ' Si on vient de saisir dans la colonne H
    If Target.Value = "Oui" Then
      ' Si la valeur est OUI
      With ActiveSheet
        ' On déprotège la feuille
        .Unprotect
        ' On vérouille la ligne actuelle
        .Range("A" & Target.Row & ":F" & Target.Row).Locked = True
       [COLOR=blue][B] .Range("K" & Target.Row).Value = Format(Now(), "dd/mm/yyyy hh:mm")
[/B][/COLOR]        ' On reprotège la feuille
        .Protect
        ' Sélectionner la nouvelle ligne vide
        Range("A" & tagrget.Row + 1).Select
      End With
    End If
  End If
End Sub

La date et l'heure seront inscrites directement "en dur"

A+

 

[titoffe]

Re : protection de ligne.

Wouahhhh!!!!
chapeau....

par contre, j'ai essayé plusieur fois avec un oeil nouveau et j'ai fait une erreure dans l'heure de fin et j'ai essuite confirmé oui....la ligne est bloquée et je ne peut plus la modifier....
Est il possible de bloquer la ligne mais laisser la cellule de confirmez vous accessible pour modifier au cas ou....
Désolé 😱 😱 😱 je suis chiant mais je me mets à la place des gens qui vont utilisé cette feuille.

 

[Compte Supprimé 979]

Re : protection de ligne.

Re,

Est il possible de bloquer la ligne mais laisser la cellule de confirmez vous accessible pour modifier au cas ou....

Bien sur, je me doutais que tu allais me le demander,
j'sais pas pourquoi 😀

je suis chiant mais je me mets à la place des gens qui vont utilisé cette feuille.

"chiant", c'est rien de le dire 🙄

Nooonnnn, je plaisante bien sur

Tu n'en es qu'à ta 3ème demande sur ce post, c'est rien du tout, no soucy ...

Voir le fichier ci-joint, modifié.

A+
Fichier modifié, A+

 

[titoffe]

Re : protection de ligne.

C'est NIIIICKEL !!!!!
merci pour ta comprehension....grace à toi, j'apprends beaucoups sur les macros...
A+