surveiller saisie fichier compteurs

[daniel du 47]

Bonjour
sur un fichier de relevés de compteurs d'eau , je désire contrôler la saisie du nouvel index en fixant des seuils maxi mini par rapport au précédent index

fonction validation bien sûr, mais voyez mon probléme dans le fichier joint

Merci à vous

 

[jeanpierre]

Re : surveiller saisie fichier compteurs

Bonsoir daniel du 47,

Je ne vois pas tellement ta logique des seuils admis.... ni l'utilisation d'une macro pour cela... mais c'est mon esprit critique.

Il n'y a pas de seuil, admis, sinon que l'hiver tu risques de dépenser beaucoup moins que l'été, avec arrosage, ou remplissage de piscine, par exemple....

Je verrai plutôt une saisie au kilomètre des consommations et une alerte avec une MFC (mise en forme conditionnelle). Alerte que tu pourras ensuite considérer normale ou pas, selon la période....

Voilà mon raisonnement.

Edit : Bonsoir Fred et bhbh

 

[fred65200]

Re : surveiller saisie fichier compteurs

bonjour

difficile de tester sans les macros de copier-coller.
essai ce code .

Sub Test()
Dim monTab() As Variant
Dim lngDerli As Long

lngDerli = Columns("K").Find("*", , , , , xlPrevious).Row
monTab = Range("K15:K" & lngDerli).Value

Range("K16:K" & lngDerli + 1).Value = monTab
[K15] = [g18]

End Sub

cordialement

Edit bonsoir jeanpierre

 

[Cousinhub]

Re : surveiller saisie fichier compteurs

Bonsoir,
pour insérer la nouvelle valeur en K15, tu dois utiliser l'évènement change.
tu peux très bien continuer à l'utiliser pour mettre ta validation de données en G18, tu supprimes l'ancienne (qui fait donc référence à K16), et tu en crées une nouvelle avec K15
Sers-toi de l'enregistreur de macro, c'est très simple.
Bon courage

    With Range("G18").Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertWarning, _
        Operator:=xlBetween, Formula1:="=K15+F19", Formula2:="=K15+F17"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = _
        "Attention , les données saisies dépassent les seuils admis"
        .ShowInput = True
        .ShowError = True
    End With

 

[daniel du 47]

Re : surveiller saisie fichier compteurs

Pour Jean-Pierre
Il s'agit de compteurs à mon boulot sur des process qui consomment hebdomadairement sensiblement la même quantité d'eau d'où l'utilité des seuils, car sur l'année 2007 nous n'avons pas vu une fuite qui nous à consommé quand même 15000m3 (ce n'est pas une paille)
Je ferai passer une copie de mon fichier pour mieux comprendre