Discussion :

[Capsule]

Bonjour tout le monde

Je voudrais savoir si qqn connait un moyen pour résoudre le problème suivant:


dans un tableau, j'ai une zone d'input. les cellules de cette zone ont une validation.

Je me suis rendue compte que si qqn allait coller en valeur des chiffres dans la zone, la validation était effacée... ce qui pose problème puisque le but de la validation est d'empecher les gens d'inputer dans le passé...

y a t il moyen de faire en sorte que

- soit les utilisateurs ne puissent rien coller en valeur

- soit de protéger les validations ?

Merci !

[Pierre Fauconnier]

Bonjour

La seule solution que j'envisage est de passer par une macro pour contrôler l'évènement Change de la feuille?

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    ' Test si on colle dans A1
    If Not Intersect(Target, Range("a1")) Is Nothing Then
        'Procédure de vérification
    End If
End Sub

Intersect permet de vérifier si la cellule qui contient la validation, dans ce cas-ci A1, fait partie de la plage sur laquelle on vient de coller.

A toi de déterminer la procédure de vérification, en fonction de ta validation.

Ok?

[Peut-êtreUneRéponse]

Sinon pou bloquer le "coller" à l'ouverture du classeur et le réactiver à la fermeture:

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
  On Error Resume Next
  With Application
    'bloque le coller à l'ouverture du classeur
    .CommandBars("Edit").FindControl(ID:=22).Enabled = False
    .CommandBars("Cell").FindControl(ID:=22).Enabled = False
    .CommandBars("Column").FindControl(ID:=22).Enabled = False
    .CommandBars("Row").FindControl(ID:=22).Enabled = False
    .CommandBars("Button").FindControl(ID:=22).Enabled = False
    .CommandBars("Formulla Bar").FindControl(ID:=22).Enabled = False
    .CommandBars("Worksheet Menu Bar").FindControl(ID:=22).Enabled = False
    .CommandBars("Standard").FindControl(ID:=22).Enabled = False
  End With
End Sub

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  With Application
    'bloque le coller à la fermeture du classeur
    .CommandBars("Edit").FindControl(ID:=22).Enabled = True
    .CommandBars("Cell").FindControl(ID:=22).Enabled = True
    .CommandBars("Column").FindControl(ID:=22).Enabled = True
    .CommandBars("Row").FindControl(ID:=22).Enabled = True
    .CommandBars("Button").FindControl(ID:=22).Enabled = True
    .CommandBars("Formulla Bar").FindControl(ID:=22).Enabled = True
    .CommandBars("Worksheet Menu Bar").FindControl(ID:=22).Enabled = True
    .CommandBars("Standard").FindControl(ID:=22).Enabled = True
  End With
End Sub

C'est à mettre au niveau du ThisWorkbook

En espérant n'avoir oublier aucune barre.

.

[Capsule]

Je vais tester

Merci

[Pierre Fauconnier]

En complément à l'intervention de "Peut-être une réponse", je pense qu'il vaut mieux mettre cela dans les évènements ACTIVATE et DEACTIVATE du classeur, sinon toute option de copier-coller sera bloquée sur tous les classeurs de l'instance Excel lorsque le classeur "contrôlé" sera ouvert

[Peut-êtreUneRéponse]

Pierre +1000

[Capsule]

En complément à l'intervention de "Peut-être une réponse", je pense qu'il vaut mieux mettre cela dans les évènements ACTIVATE et DEACTIVATE du classeur, sinon toute option de copier-coller sera bloquée sur tous les classeurs de l'instance Excel lorsque le classeur "contrôlé" sera ouvert

euh, les évènements activate et deactivate ???



si je comprends bien il ne sera possible uniquement de faire de l'input et plus aucun coller que ce soit (c'est ce que je cherche)