OVH Cloud OVH Cloud

interdire le cliquer glisser?

7 réponses
Avatar
Herve
Bonjour,
Peut-on interdire le cliquer glisser(la poignée de recopie)??
Mon besoin est le suivant
ex: dans un classeur partagé l'utilisateur doit renseigner la cellule A1 ou
B1 ou C1.
J'arrive à interdir la saisi dans l'une des cellules quand l'une des 3 est
renseignée
par la méthode Données/validation/personnaliser =si(et(b1="";c1="") avec un
message d'erreur. Mais on peut déjouer cette méthode par le copier coller ou
le cliquer glisser.
On peut interdire le copier coller par "Application.CutCopyMode=False" .
mais le cliquer glisser? Y a t il une solution?

Herve

7 réponses

Avatar
PMO
Bonjour,

Essayez Application.CellDragAndDrop = False

Cordialement.
--
PMO
Patrick Morange



Bonjour,
Peut-on interdire le cliquer glisser(la poignée de recopie)??
Mon besoin est le suivant
ex: dans un classeur partagé l'utilisateur doit renseigner la cellule A1 ou
B1 ou C1.
J'arrive à interdir la saisi dans l'une des cellules quand l'une des 3 est
renseignée
par la méthode Données/validation/personnaliser =si(et(b1="";c1="") avec un
message d'erreur. Mais on peut déjouer cette méthode par le copier coller ou
le cliquer glisser.
On peut interdire le copier coller par "Application.CutCopyModeúlse" .
mais le cliquer glisser? Y a t il une solution?

Herve




Avatar
Herve
Super ca marche
merci
Herve


Bonjour,

Essayez Application.CellDragAndDrop = False

Cordialement.
--
PMO
Patrick Morange



Bonjour,
Peut-on interdire le cliquer glisser(la poignée de recopie)??
Mon besoin est le suivant
ex: dans un classeur partagé l'utilisateur doit renseigner la cellule A1 ou
B1 ou C1.
J'arrive à interdir la saisi dans l'une des cellules quand l'une des 3 est
renseignée
par la méthode Données/validation/personnaliser =si(et(b1="";c1="") avec un
message d'erreur. Mais on peut déjouer cette méthode par le copier coller ou
le cliquer glisser.
On peut interdire le copier coller par "Application.CutCopyModeúlse" .
mais le cliquer glisser? Y a t il une solution?

Herve






Avatar
Patrick BASTARD
Bonjour, *Patrick*
Je prends connaissance de ta réponse avec le plus grand intéret :

J'ai en effet initié un post le 24/06/2005 19:16, et intitulé Couper,
Copier, Coller et toute la bande.
Malheureusement ce fil est resté orphelin.

Je suis le mal aimé, je suis le maaal aimé...

Promis, je ne posterai plus de question le samedi...
;-)

--
Bien amicordialement,
P. Bastard


Bonjour,

Essayez Application.CellDragAndDrop = False

Cordialement.

Bonjour,
Peut-on interdire le cliquer glisser(la poignée de recopie)??
Mon besoin est le suivant
ex: dans un classeur partagé l'utilisateur doit renseigner la
cellule A1 ou B1 ou C1.
J'arrive à interdir la saisi dans l'une des cellules quand l'une des
3 est renseignée
par la méthode Données/validation/personnaliser =si(et(b1="";c1="")
avec un message d'erreur. Mais on peut déjouer cette méthode par le
copier coller ou le cliquer glisser.
On peut interdire le copier coller par
"Application.CutCopyModeúlse" . mais le cliquer glisser? Y a t
il une solution?

Herve




Avatar
PMO
Bonjour,

Je ne suis présent qu'occasionnellement sur le MPFE
où j'interviens par à-coups pendant des pauses de travail.
De ce fait, jamais le samedi et jamais le dimanche.
C'est avec plaisir que par hasard j'ai pu vous contenter.

A une prochaine rencontre inopinée sur le MPFE.

Cordialement.
--
PMO
Patrick Morange



Bonjour, *Patrick*
Je prends connaissance de ta réponse avec le plus grand intéret :

J'ai en effet initié un post le 24/06/2005 19:16, et intitulé Couper,
Copier, Coller et toute la bande.
Malheureusement ce fil est resté orphelin.

Je suis le mal aimé, je suis le maaal aimé...

Promis, je ne posterai plus de question le samedi...
;-)

--
Bien amicordialement,
P. Bastard


Bonjour,

Essayez Application.CellDragAndDrop = False

Cordialement.

Bonjour,
Peut-on interdire le cliquer glisser(la poignée de recopie)??
Mon besoin est le suivant
ex: dans un classeur partagé l'utilisateur doit renseigner la
cellule A1 ou B1 ou C1.
J'arrive à interdir la saisi dans l'une des cellules quand l'une des
3 est renseignée
par la méthode Données/validation/personnaliser =si(et(b1="";c1="")
avec un message d'erreur. Mais on peut déjouer cette méthode par le
copier coller ou le cliquer glisser.
On peut interdire le copier coller par
"Application.CutCopyModeúlse" . mais le cliquer glisser? Y a t
il une solution?

Herve









Avatar
ChrisV
Bonjour Hervé,

On peut interdire le copier coller par "Application.CutCopyModeúlse" .
mais le cliquer glisser? Y a t il une solution ?


Ou encore, sans VBA, au cas zou...
Outils/Options.../Modification/ décocher: Glissement-déplacement de la
cellule...


ChrisV


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

Bonjour,
Peut-on interdire le cliquer glisser(la poignée de recopie)??
Mon besoin est le suivant
ex: dans un classeur partagé l'utilisateur doit renseigner la cellule A1
ou
B1 ou C1.
J'arrive à interdir la saisi dans l'une des cellules quand l'une des 3 est
renseignée
par la méthode Données/validation/personnaliser =si(et(b1="";c1="") avec
un
message d'erreur. Mais on peut déjouer cette méthode par le copier coller
ou
le cliquer glisser.
On peut interdire le copier coller par "Application.CutCopyModeúlse" .
mais le cliquer glisser? Y a t il une solution?

Herve




Avatar
PMO
Bonjour,

ATTENTION à l'usage de Application.CellDragAndDrop = False

Cette instruction a un effet au niveau de l'application Excel
et non uniquement au niveau Classeur.
En clair: si l'application Excel admet le DragAndDrop et que vous
lancez cette instruction dans un classeur particulier, une fois
ce classeur fermé l'utilisateur ne retrouvera pas l'usage du DragAndDrop
dans les autres classeurs.

Pour y remédier, copier le code suivant dans le ThisWorkbook du
classeur dans lequel vous voulez que le DragAndDrop ne soit pas efficient.

'**********
Public StateDragDrop As Boolean
'________________________________
Private Sub Workbook_Activate()
StateDragDrop = Application.CellDragAndDrop
Application.CellDragAndDrop = False
End Sub
'________________________________
Private Sub Workbook_Deactivate()
If StateDragDrop Then Application.CellDragAndDrop = True
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange



Super ca marche
merci
Herve


Bonjour,

Essayez Application.CellDragAndDrop = False

Cordialement.
--
PMO
Patrick Morange



Bonjour,
Peut-on interdire le cliquer glisser(la poignée de recopie)??
Mon besoin est le suivant
ex: dans un classeur partagé l'utilisateur doit renseigner la cellule A1 ou
B1 ou C1.
J'arrive à interdir la saisi dans l'une des cellules quand l'une des 3 est
renseignée
par la méthode Données/validation/personnaliser =si(et(b1="";c1="") avec un
message d'erreur. Mais on peut déjouer cette méthode par le copier coller ou
le cliquer glisser.
On peut interdire le copier coller par "Application.CutCopyModeúlse" .
mais le cliquer glisser? Y a t il une solution?

Herve








Avatar
Herve
Bonjour
J'ai pris note de vos remarques.
merci à tous

Hervé


Bonjour Hervé,

On peut interdire le copier coller par "Application.CutCopyModeúlse" .
mais le cliquer glisser? Y a t il une solution ?


Ou encore, sans VBA, au cas zou...
Outils/Options.../Modification/ décocher: Glissement-déplacement de la
cellule...


ChrisV


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

Bonjour,
Peut-on interdire le cliquer glisser(la poignée de recopie)??
Mon besoin est le suivant
ex: dans un classeur partagé l'utilisateur doit renseigner la cellule A1
ou
B1 ou C1.
J'arrive à interdir la saisi dans l'une des cellules quand l'une des 3 est
renseignée
par la méthode Données/validation/personnaliser =si(et(b1="";c1="") avec
un
message d'erreur. Mais on peut déjouer cette méthode par le copier coller
ou
le cliquer glisser.
On peut interdire le copier coller par "Application.CutCopyModeúlse" .
mais le cliquer glisser? Y a t il une solution?

Herve