contrôle des saisies

[pascal21]

bonjour
je saisi des heures machines toutes les semaines en a1 par ex.
je cherche le moyen d'éviter une erreur lors de la saisie, la semaine suivante
ex en a1 cette semaine 2000
il est impossible que cette valeur puisse augmenter de plus de 100 d'une saise sur l'autre
comment faire pour contrôler cette saisie
je pense à une alerte du genre 'validation' mais je ne sais pas comment faire
merci de bien vouloir m'aider

 

[Tibo]

Re,

Regarde le fichier joint avec une validation. Le contrôle se fait sur 2 critères :

- la variation entre la donnée saisie et la précédente doit être supérieure à zéro

- la variation entre la donnée saisie et la précédente doit être inférieure à 100


@+ [file name=Validation_heures_machine.zip size=1684]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Validation_heures_machine.zip[/file]

 

[pascal21]

bonjour et merci pour ton aide
ce n'est pas ce que je veux réaliser. en fait les données à contrôler sont toujours saisies en a1
la saisie suivante écrasant la précédente à condition qu'il n'y ai pas d'erreur de saisie de type valeur trop grande ou inférieure à celle déjà saisie la semaine précédente
merci

 

[bertgrav]

regarde le fichier joint, je crois que tu dois passer par une macro

chantal [file name=ESSAIS2_20060416101444.zip size=8981]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ESSAIS2_20060416101444.zip[/file]

 

[pierrejean]

bonjour pascal21

toujours par macro

test cela
et dis-moi si cela te conviens

Attention (pas de garantie d'orthodoxie ni d'elegance)
edit : voir plus loin

Message édité par: pierrejean, à: 16/04/2006 10:28

 

[pierrejean]

re

voila le fichier [file name=pascal_20060416102923.zip size=7711]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pascal_20060416102923.zip[/file]

 

[pascal21]

bonjour pierre jean
ton fichier fonctionne parfaitement
mais j'ai oublié de préciser que ce code doit fonctionner sur une quarantaine de lignes de la colonne a
que faut-il modifier dans ce cas

Public valeurA1 As Variant

Private Sub Worksheet_Activate()
valeurA1 = Range('A1')
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
If Target.Value - valeurA1 > 100 Then
reponse = MsgBox(' Attention + de 100' & Chr(10) & 'voulez-vous confirmer', vbYesNo)
If reponse = vbYes Then
valeurA1 = Range('A1')
Else
Range('A1').Value = valeurA1
Me.Activate
End If
End If
valeurA1 = Range('A1')
End If
End Sub

merci

 

[Charly2]

Bonsoir Pascal, Tibo, Chantal et Pierre-Jean

Il faut pas oublier des choses comme ça :silly: :lol:

Alors, en partant du fichier de Pierre-Jean, voici une solution possible parmi bien d'autres...

[file name=pascal21.zip size=13042]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pascal21.zip[/file]

A+

 

[pierrejean]

bonjour tous

Charly

oser appeler ton fichier adaptation !!!

entre nos deux fichiers il y a la même distance qu'entre un pont de liane et le viaduc de Millau

je prends le temps de creuser pour y denicher tout un lot de pepites

Amicalement

Pierre

 

[Charly2]

Bonjour à toutes et à tous, bonjour Pierre

Houlaaaa ! J'espère que les concepteurs du viaduc de Millau ont fait un peu plus attention que moi lors de sa mise au point . On a tous les deux fait un pont de lianes

Pour corriger la dernière version qui n'acceptait pas les sélections multiples, voici la pascal21_V2 :

[file name=pascal21_V2.zip size=14497]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pascal21_V2.zip[/file]

A+