OVH Cloud OVH Cloud

Interdire saisie

4 réponses
Avatar
Thierry
Bonjour le Forum,

j'ai un tableau "A7:AExxxxxxx"
qui s'agrandit à la demande.

Est-il possible que lorsque j'insère une nouvelle ligne (à l'aide d'un
bouton),
seules les cellules ayant pour valeur un "X" soient accessibles à la saisie
?

Les autres cellules ont pour valeur un "~". Je voudrais les bloquer.

Merci d'avance pour votre aide.

Jipé

4 réponses

Avatar
michdenis
Bonjour Thierry,

Si tu veux vraiment contrôler ce que l'usager peut saisir et où il doit le saisir,
pourquoi ne pas utiliser un formulaire ?

Ta demande n'est pas très claire ? comment détermines-tu cette ligne X ?

Quelles sont les autres actions qui devrient être permises sur la feuille, s'il y en a ?

À quel moment lever les interdictions si l'usager n'entre pas immédiatement les données ?


Salutations!


"Thierry" a écrit dans le message de news:
Bonjour le Forum,

j'ai un tableau "A7:AExxxxxxx"
qui s'agrandit à la demande.

Est-il possible que lorsque j'insère une nouvelle ligne (à l'aide d'un
bouton),
seules les cellules ayant pour valeur un "X" soient accessibles à la saisie
?

Les autres cellules ont pour valeur un "~". Je voudrais les bloquer.

Merci d'avance pour votre aide.

Jipé
Avatar
Thierry
Re à tous,
michdenis ! le fichier joint sera plus explicite.
http://cjoint.com/?bAq7ShtNPo
Tu as déjà bossé dessus pour un autre problème.

Merci
Jipé



"michdenis" a écrit dans le message de news:

Bonjour Thierry,

Si tu veux vraiment contrôler ce que l'usager peut saisir et où il doit le
saisir,
pourquoi ne pas utiliser un formulaire ?

Ta demande n'est pas très claire ? comment détermines-tu cette ligne X ?

Quelles sont les autres actions qui devrient être permises sur la feuille,
s'il y en a ?

À quel moment lever les interdictions si l'usager n'entre pas
immédiatement les données ?


Salutations!


"Thierry" a écrit dans le message de news:

Bonjour le Forum,

j'ai un tableau "A7:AExxxxxxx"
qui s'agrandit à la demande.

Est-il possible que lorsque j'insère une nouvelle ligne (à l'aide d'un
bouton),
seules les cellules ayant pour valeur un "X" soient accessibles à la
saisie
?

Les autres cellules ont pour valeur un "~". Je voudrais les bloquer.

Merci d'avance pour votre aide.

Jipé





Avatar
michdenis
Bonjour Thierry,

Dans ton classeur, place ce qui suit dans
le code module de ta feuille :

Ceci va protéger ta feuille si la cellule active dans
ton tableau a une valeur égale à 0 ou à 1, autrement
ta feuille ne sera pas protégée.

'----------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Set Rg = Intersect(Target, Range("B7:AE" & Range("B65536").End(xlUp).Row))

If Not Rg Is Nothing Then
If Target.Value = 1 Or Target.Value = 0 Then
Me.Protect
Else
Me.Unprotect
End If
End If

End Sub
'----------------------------------------


Salutations!



"Thierry" a écrit dans le message de news:
Re à tous,
michdenis ! le fichier joint sera plus explicite.
http://cjoint.com/?bAq7ShtNPo
Tu as déjà bossé dessus pour un autre problème.

Merci
Jipé



"michdenis" a écrit dans le message de news:

Bonjour Thierry,

Si tu veux vraiment contrôler ce que l'usager peut saisir et où il doit le
saisir,
pourquoi ne pas utiliser un formulaire ?

Ta demande n'est pas très claire ? comment détermines-tu cette ligne X ?

Quelles sont les autres actions qui devrient être permises sur la feuille,
s'il y en a ?

À quel moment lever les interdictions si l'usager n'entre pas
immédiatement les données ?


Salutations!


"Thierry" a écrit dans le message de news:

Bonjour le Forum,

j'ai un tableau "A7:AExxxxxxx"
qui s'agrandit à la demande.

Est-il possible que lorsque j'insère une nouvelle ligne (à l'aide d'un
bouton),
seules les cellules ayant pour valeur un "X" soient accessibles à la
saisie
?

Les autres cellules ont pour valeur un "~". Je voudrais les bloquer.

Merci d'avance pour votre aide.

Jipé





Avatar
Quaisako
Bonsoir à tous,

ComDab michdenis, c'est impeccable.

Une petite précision, si possible.
Lorsque je sélectionne plusieurs cellules sur la même ligne, j'ai un message
d'erreur 13 "Incompatibilité de type", et dans ton code, que j'ai adapté à
mes besoins, la ligne "If Target.Value = "~" Then" est surlignée.
Le fait d'avoir changé :
=== If Target.Value = 1 Or Target.Value = 0 Then
par
=== If Target.Value = "~"
est à l'origine de cette erreur ?

Merci
Jipé


"michdenis" a écrit dans le message de news:

Bonjour Thierry,

Dans ton classeur, place ce qui suit dans
le code module de ta feuille :

Ceci va protéger ta feuille si la cellule active dans
ton tableau a une valeur égale à 0 ou à 1, autrement
ta feuille ne sera pas protégée.

'----------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Set Rg = Intersect(Target, Range("B7:AE" & Range("B65536").End(xlUp).Row))

If Not Rg Is Nothing Then
If Target.Value = 1 Or Target.Value = 0 Then
Me.Protect
Else
Me.Unprotect
End If
End If

End Sub
'----------------------------------------


Salutations!



"Thierry" a écrit dans le message de news:

Re à tous,
michdenis ! le fichier joint sera plus explicite.
http://cjoint.com/?bAq7ShtNPo
Tu as déjà bossé dessus pour un autre problème.

Merci
Jipé



"michdenis" a écrit dans le message de news:

Bonjour Thierry,

Si tu veux vraiment contrôler ce que l'usager peut saisir et où il doit
le
saisir,
pourquoi ne pas utiliser un formulaire ?

Ta demande n'est pas très claire ? comment détermines-tu cette ligne X ?

Quelles sont les autres actions qui devrient être permises sur la
feuille,
s'il y en a ?

À quel moment lever les interdictions si l'usager n'entre pas
immédiatement les données ?


Salutations!


"Thierry" a écrit dans le message de news:

Bonjour le Forum,

j'ai un tableau "A7:AExxxxxxx"
qui s'agrandit à la demande.

Est-il possible que lorsque j'insère une nouvelle ligne (à l'aide d'un
bouton),
seules les cellules ayant pour valeur un "X" soient accessibles à la
saisie
?

Les autres cellules ont pour valeur un "~". Je voudrais les bloquer.

Merci d'avance pour votre aide.

Jipé