Discussion :

[Meuse55]

Bonjour,

je fais un tableau qui sera utilisé par plusieurs personnes, afin d'éviter tout effacement involontaire, j'aimerai qu'une ligne complète soit verrouillée après la saisie d'une date dans une des cellules.

En gros, mon utilisateurs remplit l'ensemble des informations, il termine en indiquant la date de son enregistrement ce qui verrouille la ligne complète pour éviter toute nouvelle saisie dessus.

Est-ce possible?

[NEC14]

Bonjour,

On va faire plus général : si une cellule contient une formule elle n'est pas déverrouillée : (à adapter selon tes besoins)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Const nbcol As Long = 10 
    Dim col As Long 
    'activation protection générale 
    If Target = [A1] And [A1] = "" Then ActiveSheet.Unprotect 
    ' protection des lignes 
    If Target.Column = 1 And Target.Row > 1 Then 
        ActiveSheet.Unprotect 
        If LCase(Target) = "x" Then 
            Target.Offset(0, 1).Resize(1, nbcol).Locked = True 
        Else 
            For col = 1 To nbcol 
                If Left(Target.Offset(0, col).Formula, 1) <> "=" Then Target.Offset(0, col).Locked = False 
            Next col 
        End If 
    End If 
    If [A1] = "x" Then ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
End Sub

Testes ce code et tiens nous au courant

[Meuse55]

Merci pour cette réponse.

J'avoue mon incompétence complète à adapter ce code à ma situation. Je débute totalement et suis perdue.

Puis-je mettre en pièce jointe le tableau pour une meilleure vision?

[NEC14]

Bien au contraire, avec un fichier joint c'est plus facile.

[Meuse55]

Le voici donc en pièce jointe. je voudrais pouvoir remplir chacune de mes cellules et à partir du moment où une date est saisie dans la cellule S, la ligne est verrouillée. Possible?

Merci beaucoup.

[keygen08]

Bonjour

au plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
    If Range("s" & Target.Row).Text <> "" Then
        Target.EntireRow.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub

Il faut savoir que la protection des cellule n'est effective que si la feuille elle meme est protegée.
J'ai donc sur ton fichier, déprotéger toutes les cellules, reproteger les lignes qui ne doivent pas etre modifié.
Par la suite, losque je modifie la valeur de cellule S, la macro s'applique est verrouille la ligne qui vient d'être écrite.
Je ne joint pas le fichier car je pense que @NEC vas te soigner cela au petit oignon.

[Meuse55]

c'est gentil merci. J'aime comprendre et apprendre, alors je teste ça quand même de mon côté^^

Je viens de tester le code, c'est exactement ce que je voulais et ça fonctionne à merveille!! Merci!

[NEC14]

Voilà, chez moi ça fonctionne.
Dis moi

[Meuse55]

j'ai toujours la même erreur: espace pile insuffisant.

[NEC14]

Je n'ai pas ce message. Explique moi dans quelle cellule cela se produit

[NEC14]

La pile est une zone de mémoire dont la taille augmente ou diminue de manière dynamique en fonction des besoins du programme en cours d'exécution. Ses limites ont été dépassées.

Pour corriger cette erreur
1.Vérifiez que les procédures ne sont pas imbriquées trop profondément.

2.Assurez-vous que les procédures récursives se terminent correctement.

3.Si les variables locales requièrent davantage d'espace que la quantité disponible, essayez de déclarer certaines variables au niveau du module. Vous pouvez également déclarer toutes les variables de la procédure comme statiques en faisant précéder le mot clé Property, Sub ou Function de Static. Vous pouvez aussi utiliser l'instruction Static pour déclarer des variables statiques individuelles à l'intérieur de procédures.

4.Étant donné que les chaînes de longueur fixe utilisent davantage d'espace de pile que les chaînes de longueur variable, redéfinissez certaines chaînes de longueur fixe en chaînes de longueur variable. Vous pouvez également définir la chaîne au niveau du module où elle ne requiert aucun espace de pile.

5.Vérifiez le nombre d'appels de fonctions DoEvents imbriquées à l'aide de la boîte de dialogue Calls pour afficher les procédures actives sur la pile.

6.Vérifiez que vous n'avez provoqué aucune cascade d'événements en déclenchant un événement qui appelle une procédure événementielle qui se trouve déjà sur la pile. Une cascade d'événements est similaire à un appel de procédure récursive inachevé, mais elle est moins évidente, compte tenu que l'appel est effectué par Visual Basic et qu'il ne s'agit donc pas d'un appel explicite dans le code. Utilisez la boîte de dialogue Calls pour afficher les procédures actives sur la pile.


Désolé, mais je dois partir. Je vais essayer de suivre cette conversation de chez moi après ma réunion.

[Meuse55]

merci pour tout. Je vais tenter de voir ça.