Boite de dialogue

[Andry]

Bonjour à tous!!!
Alors voila mon problème, j'ai un fichier de contrôle, et je souhaite afficher une boite de dialogue qui indique au utilisateurs d'effectuer d'autre contrôle lorsque la moyenne est inférieur à 12.
Ci joint le fichier, c'est plus compréhensible je pense!!
J'ai essayer avec validation, mais cela ne marche pas car c'est une moyenne mais non pas une valeur saisie!
Merci d'avance

 

[laurent950]

Re : Boite de dialogue

Bonsoir,

le code serais celui-ci

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range(Cells(2, 2), Cells(7, 8))) Is Nothing Then
For Each c In Range(Cells(7, 2), Cells(7, 8))
If c < 12 Then
MsgBox "Moyenne est inférieur à 12!", vbRetryCancel + vbCritical, "ERREUR !"
c.Select
Exit For
End If
Next c
End If

End Sub
Laurent

 

[Andry]

Re : Boite de dialogue

Merci d'avoir répondu aussi vite, j'ai essayer et ça me marque erreur d’exécution 13. Et lorsque je clique sur débocage, le if c<12 est en jaune!

 

[laurent950]

Re : Boite de dialogue

Peut etre avec ce fichier

je vous l'envois

 

[JBARBE]

Re : Boite de dialogue

Bonsoir,

Peut-être ceci :

de B7 à H7 >

=SI(ET(B2="";B3="";B4="";B5="";B6="");"Refaire contrôle";SI(MOYENNE(B2:B6)<12;"Refaire contrôle";MOYENNE(B2:B6)))

 

[Andry]

Re : Boite de dialogue

J'arrive pas à ouvrir le fichier xlsm!!

 

[Andry]

Re : Boite de dialogue

Jbarbe, merci de s'interreser à mon problème,
en faite je ne veut pas effacer les autres contrôle mais juste inviter l'utilisateur à effectuer d'autre contrôle lorsque la moyenna est inférieur à 12.

 

[JBARBE]

Re : Boite de dialogue

J'envoie un fichier ! Clic sur le bouton SELECTION

Le fichier que tu ne peux ouvrir a été fait avec Excel 2007 et supérieur !

 

[JBARBE]

Re : Boite de dialogue

Ou ce fichier :

 

[JBARBE]

Re : Boite de dialogue

Je m'excuse pour Laurent950 dont j'ai utilisé et transformé son fichier ( les cellules vides provoquaient une erreur)!

Celui-ci est donc maintenant adapté pour Excel 2003 !

 

[Andry]

Re : Boite de dialogue

Merci beaucoup de votre aide!!
dès qu'on rentre une valeurs on a le message, j'aurai voulu avoir le message une fois les 5 valeurs saisie.

 

[JBARBE]

Re : Boite de dialogue

Tu peux utiliser mon fichier "Copie de contrôle_bis.xls " Et ainsi cliquer sur le bouton " SELECTION " une fois avoir saisie les valeurs dans les colonnes correspondantes ! Ce qui évitera l'apparition de la boîte de dialogue à chaque saisie !

 

[JBARBE]

Re : Boite de dialogue

Voici un autre fichier qui contrôle ( en cliquant sur le bouton SELECTION) les cellules vides et la MOY < 12 !

 

[Andry]

Re : Boite de dialogue

Vous allez dire que je suis pénible mais est ce qu'il y a moyen de supprimer le bouton sélection et après avoir rentrée les 5 valeurs on affiche le message en fonction de la moyenne.

 

[JBARBE]

Re : Boite de dialogue

Désolé je ne sais pas faire et je doute qu'une macro puisse satisfaire ta demande !

A+