C
Christian
Guest
Bonjour à tout le forum,
Bonjour Gaetan,
J'utilise l'appli 'case à cocher' de Gaetan, c'est super, simple et ça ouvre plein de possibilités... Bravo et Merci à toi Gaetan.
Je souhaiterais pouvoir verrouiller certaines cellules :
question à Gaetan et à vous le forum :
à quel endroit du code puis-je insérer la ligne de commande pour dévérouiller la feuille (ActiveSheet.Unprotect) puis pour la revérouiller (ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True).
Merci pour le temps que vous voudrez bien m'accorder.
Bien amicalement
Christian
Le code ;
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Teste si la cellule ayant recu un double-clic fait partie de la plage bd_present
'Cette plage a été définie de manière dynamique à l'aide de la fonction suivante :
' =DECALER(Feuil1!$B$2;;;NBVAL(Feuil1!$A:$A)-1)
'Voir le menu Insertion - Nom - Définir
If Not (Intersect(Target, Range('bd_present')) Is Nothing) Then
'Mise en forme de la cellule
Target.Font.Name = 'Wingdings'
Target.HorizontalAlignment = xlCenter
'Empêche la sélection de la cellule après le double-clic
Cancel = True
'Teste de la valeur de la cellule et inverse la case à cocher
Target.Value = inverse(Target.Value)
End If
End Sub
Bonjour Gaetan,
J'utilise l'appli 'case à cocher' de Gaetan, c'est super, simple et ça ouvre plein de possibilités... Bravo et Merci à toi Gaetan.
Je souhaiterais pouvoir verrouiller certaines cellules :
question à Gaetan et à vous le forum :
à quel endroit du code puis-je insérer la ligne de commande pour dévérouiller la feuille (ActiveSheet.Unprotect) puis pour la revérouiller (ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True).
Merci pour le temps que vous voudrez bien m'accorder.
Bien amicalement
Christian
Le code ;
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Teste si la cellule ayant recu un double-clic fait partie de la plage bd_present
'Cette plage a été définie de manière dynamique à l'aide de la fonction suivante :
' =DECALER(Feuil1!$B$2;;;NBVAL(Feuil1!$A:$A)-1)
'Voir le menu Insertion - Nom - Définir
If Not (Intersect(Target, Range('bd_present')) Is Nothing) Then
'Mise en forme de la cellule
Target.Font.Name = 'Wingdings'
Target.HorizontalAlignment = xlCenter
'Empêche la sélection de la cellule après le double-clic
Cancel = True
'Teste de la valeur de la cellule et inverse la case à cocher
Target.Value = inverse(Target.Value)
End If
End Sub