msgbox et soustraction

[guigui76]

Bonjour, je suis entrain de refaire pour le travail un document qui nous sert à faire des réactions chimiques.
Je fais une soustraction des valeurs de D10-D11 et resultat en D12.
D10-D11=12
Ensuite la valeur de D11 et copié en E10 etc.... > iv11
Ma recherche porte sur un msgbox qui me signale que le tonnage n'est pas compris entre 8.5 et 10.
Pour info si le tonnnage n'est pas correcte je fais sauté un réacteur.
Les utilisateurs régulier ne connaissent encore moins excel que moi .
Merci de votre réponse
Guigui1976

 

[job75]

Re : msgbox et soustraction

Bonsoir guigui76, bienvenue sur XLD,

Pour info si le tonnnage n'est pas correcte je fais sauté un réacteur.

Ben dites donc, par pitié, mettez vous vite à Excel, aux formules matricielles et au VBA 😱

On va regarder ça.

A+

 

[Staple1600]

Re : msgbox et soustraction

Bonsoir

En utilisant une macro évènementielle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 10 And Target.Column > 3 Then
x = InputBox("Saisir un chiffre", "Niveau avant", Target): y = InputBox("Saisir un chiffre", "Niveau après")
On Error Resume Next
Select Case x - y
Case 8.5, 10#
Target = x: Target.Offset(1, 0) = y
Target.Offset(2, 0) = x - y
Case Else
Range(Target, Target.Offset(2, 0)) = "ERREUR"
MsgBox "Attention le tonnage de glyoxal ne correspond pas aux attentes." & Chr(13) _
& "Si confirmation de l'injection prevenir Mr Papaux et bloquer l'oxydeur.", vbInformation, "Avertissement"
End Select
End If
End Sub

Il faut faire un clic droit sur l'onglet de la Feuille 1 puis choisir
Visualiser le code et copier la macro ci-dessus

Ensuite retourner dans Excel et cliquer par exemple sur la cellule D10

 

[youky(BJ)]

Re : msgbox et soustraction

Bonsoir à vous tous,
J'envoie tout de même car je n'utilise pas de macros mais une donnée/validation
A testé
A+

 

[job75]

Re : msgbox et soustraction

Re,

Allez, ma version aussi...

A+

 

[youky(BJ)]

Re : msgbox et soustraction

RE
J'ai mis plus de virgules dans ma formule pour éviter l'explosion....
et puis des petits messages
A+

 

[job75]

Re : msgbox et soustraction

Re,

J'avais pourtant corrigé la formule de la MFC, mais j'ai dû faire une fausse manip.

Fichier corrigé.

Edit : la petite macro dans le code de la feuille :

Private Sub Worksheet_Calculate()
Dim cel As Range
On Error Resume Next 'en cas de valeur d'erreur en ligne 12
For Each cel In Range("D12:IV12")
If Application.Count(cel.Offset(-2).Resize(3)) = 3 And (cel < 8.5 Or cel > 10) Then _
  MsgBox "ALERTE ALERTE TOUT VA PÊTER !!!", 48
Next
End Sub

A+

 

[guigui76]

Re : msgbox et soustraction

Je suis désolé mais je reviens tout juste du boulot, je suis en poste ce qui explique pourquoi hier soir j'ai arrêté de bonne heure mon pc.
je suis trés surpris de rapidité à laquelle vous m'avez répondu et aussi le nombre de personne.
Je ne sais pas encore laquelle je vais prendre mais chapeau bas a tous.
Pouvez-vous m'indiqué un bon livre sur excel pour ne plus vous empettez, pour des choses aussi simple.

 

[13GIBE59]

Re : msgbox et soustraction

Bonjour à tous 🙂

Job, je te cite :

"

J'avais pourtant corrigé la formule de la MFC, mais j'ai dû faire une [B]fausse manip.[/B]

Ca va pas, non, tu vas tout faire péter !! 😉😀

 

[ROGER2327]

Re : msgbox et soustraction

Bonjour à tous
Bonjour job75

(...)
J'avais pourtant corrigé la formule de la MFC, mais j'ai dû faire une fausse manip.
(...)

Je m'associe à 13GIBE59 dans sa protestation. Il y a des cas, rares, j'en conviens, dans lesquels on n'a pas le droit à l'erreur. Compte tenu de la richesse de vos interventions, passons pour une fois, mon cher job75...
Mais, le temps de la plaisanterie passé, j'ai froid dans le dos en pensant que la stabilité des réacteurs chimiques dépend de nos interventions ! On devrait profiter de l'occasion pour demander une augmentation...​

ROGER2327
#1865

 

[job75]

Re : msgbox et soustraction

Salut Roger 🙂

On devrait profiter de l'occasion pour demander une augmentation...

Ah les vieux syndicalistes !!!

Mais vous avez raison, dans des cas aussi graves, toute faute d'inattention est inexcusable 😱

A+

 

[youky(BJ)]

Re : msgbox et soustraction

Petit bonjour à tous de ce fil..
Je vois que nous sommes nombreux sur le qui-vive.
J'en profite pour dire que ma solution Validation peut être détournée
avec un copié-collé....donc Boum ! ! ! !

Par ailleurs avec les solutions en macros, si l'utilisateur n'active pas les macros
c'est sauve-qui-peut . ...
Restont prudent
A + si tout va bien


Edit
J'avais oublié, heureusement Job75 a prévu la MFC

 

[guigui76]

Re : msgbox et soustraction

Ok youky(bj), je suis décidé à prendre la solution de Job75.
Un grand merci à tous