Afficher un msgbox si

[Ilino]

FORUM BONSOIR
CI JOINT MON SOUCI / JE SOUHAITE AFFICHER UN MESSAGE AUTOMATIQUEMENT APRES AVOIR TERMINE LA SAISIE c a d si la sommes des notes est sup ou inf a 100ù informer l'utilisateur que la note est sup ou inf a 100ù par un MsgBox
A+

 

[Victor21]

Re : Afficher un msgbox si

Bonsoir, Ilino.

Une proposition dans votre pj 😉

 

[Staple1600]

Re : Afficher un msgbox si

Re, bonsoir à tous____________Edition: Bonsoir Victor21 😉

Ilino
C'est donc plus facile avec une PJ, non ?

Sub a()
Dim test
test = Application.Sum(Range("W5:W15")) * 100
If test > 100 Then
MsgBox "> à 100"
Else
MsgBox "< à 100"
End If
End Sub

A voir si cela t'inspire.

 

[Ilino]

Re : Afficher un msgbox si

Re, bonsoir à tous____________Edition: Bonsoir Victor21 😉

Ilino
C'est donc plus facile avec une PJ, non ?

Sub a()
Dim test
test = Application.Sum(Range("W5:W15")) * 100
If test > 100 Then
MsgBox "> à 100"
Else
MsgBox "< à 100"
End If
End Sub

A voir si cela t'inspire.

Re BONSOIR JM
MERCI POUR LA REPONSE MAIS JE SOUHAITE AFFICHER LE MESSAGE UNE FOIS TOUTES LES CELLULES NOTES( Range("W5:W15")) SONT REMPLISSENT et non pas a chaque fois je remplis la cellule j'ai le msgbox???
A+
Edit : Salut VICTOR le code dans le post#1 n'est pas correcte😕 A+

 

[Staple1600]

Re : Afficher un msgbox si

Re______________________EDITION: Bonsoir Job75 😉

Ilino
Il faut tout lire dans mes messages

A voir si cela t'inspire.

Ce qui en bref veut dire : mets un peu les mains dans le cambouis!

EDITION 😛ar exemple,ce qu'ont peut faire avec SOMME on peut le faire avec NBVAL etc ...
Ilino, fais parler ton imagination 😉

Sub b()
Dim test
If Application.CountA(Range("W5:W15")) = 6 Then
test = Application.Sum(Range("W5:W15")) * 100
If test > 100 Then
MsgBox "> à 100"
Else
MsgBox "< à 100"
End If
End If
End Sub

 

[job75]

Re : Afficher un msgbox si

Bonsoir à tous,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, n&
Set r = [W5:W15] 'plage à adapter
n = 6 'nombre de notes, à adapter
If Not Intersect(Target, r) Is Nothing And _
  Application.Sum(r) <> 1 And _
    Application.CountA(r) = n Then _
      MsgBox "Le total n'est pas 100%..."
End Sub

Il est inutile de faire un total en W17 puisqu'on le teste...

A+

 

[Ilino]

Re : Afficher un msgbox si

RE JM , Bonsoir JOB
GRAZIE A TOUS
La mia preoccupazione viene risolto😎
A+