Paste in value et validation de cellule

Version imprimable

11/01/2007, 09h56
Capsule

Paste in value et validation de cellule

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 !

:D

Bonjour

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

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?

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

Code:

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:

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. :lol:

.

11/01/2007, 11h19
Capsule

Je vais tester

Merci

:D
11/01/2007, 11h36
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
11/01/2007, 11h36
Peut-êtreUneRéponse

Pierre +1000 :)
11/01/2007, 13h06
Capsule

Citation:

Envoyé par 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

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

:oops:

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)

;)