Boite de dialogue

laurent950

XLDnaute Barbatruc

• 25 Juin 2012

• #2

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

 

Pièces jointes

• controle.xls

  45.5 KB · Affichages: 64
• controle.xls

  45.5 KB · Affichages: 72
• controle.xls

  45.5 KB · Affichages: 62

Dernière édition: 25 Juin 2012

Vote positif 0 Vote négatif

A

Andry

XLDnaute Junior

• 25 Juin 2012

• #3

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!

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 25 Juin 2012

• #4

Re : Boite de dialogue

Peut etre avec ce fichier

je vous l'envois

 

Pièces jointes

• controle.xlsm

  19.9 KB · Affichages: 53
• controle.xlsm

  19.9 KB · Affichages: 55
• controle.xlsm

  19.9 KB · Affichages: 53

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 25 Juin 2012

• #5

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)))

 

Dernière édition: 25 Juin 2012

Vote positif 0 Vote négatif

A

Andry

XLDnaute Junior

• 25 Juin 2012

• #6

Re : Boite de dialogue

J'arrive pas à ouvrir le fichier xlsm!!

 

Vote positif 0 Vote négatif

A

Andry

XLDnaute Junior

• 25 Juin 2012

• #7

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.

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 25 Juin 2012

• #8

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 !

 

Pièces jointes

• Copie de controle.xls

  76 KB · Affichages: 56
• Copie de controle.xls

  76 KB · Affichages: 56
• Copie de controle.xls

  76 KB · Affichages: 54

Dernière édition: 25 Juin 2012

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 25 Juin 2012

• #9

Re : Boite de dialogue

Ou ce fichier :

 

Pièces jointes

• Copie de controle_bis.xls

  76 KB · Affichages: 43
• Copie de controle_bis.xls

  76 KB · Affichages: 43
• Copie de controle_bis.xls

  76 KB · Affichages: 43

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 25 Juin 2012

• #10

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 !

 

Pièces jointes

• Copie de controle1.xls

  73 KB · Affichages: 54

Vote positif 0 Vote négatif

A

Andry

XLDnaute Junior

• 25 Juin 2012

• #11

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.

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 26 Juin 2012

• #12

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 !

 

Dernière édition: 26 Juin 2012

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 26 Juin 2012

• #13

Re : Boite de dialogue

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

 

Pièces jointes

• Copie de controle_bis.xls

  86 KB · Affichages: 62
• Copie de controle_bis.xls

  86 KB · Affichages: 68
• Copie de controle_bis.xls

  86 KB · Affichages: 64

Vote positif 0 Vote négatif

A

Andry

XLDnaute Junior

• 26 Juin 2012

• #14

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.

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 26 Juin 2012

• #15

Re : Boite de dialogue

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

A+

 

Vote positif 0 Vote négatif