Afficher un message d'erreur

job75

XLDnaute Barbatruc

• 16 Octobre 2009

• #2

Re : Afficher un message d'erreur

Bonjour,

Il faudrait savoir comment D5 et D6 sont renseignées : manuellement ou par formule ?

Si c'est manuellement, utiliser la Validation de données (menu Données) dans ces 2 cellules.

Si c'est par formules, à quel moment, par quel évènement (entrée dans ue cellule ou autre), vous voulez obtenir ce message ?

Edit : pardon je n'avais pas vu le fichier

A+

 

Dernière édition: 16 Octobre 2009

Vote positif 0 Vote négatif

K

Kobaya2

XLDnaute Nouveau

• 16 Octobre 2009

• #3

Re : Afficher un message d'erreur

salut French_guy,

une possibilité avec des formules dans le fichier joint.

 

Pièces jointes

• Test(1).xls

  15 KB · Affichages: 92
• Test(1).xls

  15 KB · Affichages: 97
• Test(1).xls

  15 KB · Affichages: 96

Vote positif 0 Vote négatif

F

french_guy

XLDnaute Nouveau

• 16 Octobre 2009

• #4

Re : Afficher un message d'erreur

job75 à dit:

Bonjour,

Il faudrait savoir comment D5 et D6 sont renseignées : manuellement ou par formule ?

Si c'est manuellement, utiliser la Validation de données (menu Données) dans ces 2 cellules.

Si c'est par formules, à quel moment, par quel évènement (entrée dans ue cellule ou autre), vous voulez obtenir ce message ?

A+

Cliquez pour agrandir...

D5 et D6 seront rempli par une formule, en provenance d'autres cellules

 

Vote positif 0 Vote négatif

F

french_guy

XLDnaute Nouveau

• 16 Octobre 2009

• #5

Re : Afficher un message d'erreur

Kobaya2 à dit:

salut French_guy,

une possibilité avec des formules dans le fichier joint.

Cliquez pour agrandir...

OK, mais je souhaite avoir le message d'erreur sous forme d'une fenetre qui apparait a l'ecran si les conditions sont remplies....

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2009

• #6

Re : Afficher un message d'erreur

Re, salut Kobaya2, bienvenue sur XLD,

C'est donc par formules... Il va falloir une macro

Mais vous voulez étendre ça à toutes les colonnes...

Pour qu'il n'y ait qu'un seul message (et pas une foultitude), il faut un évènement qui dépende d'une seule colonne. Je n'en vois que 2 :

- Change

- SelectionChange

Toutes 2 concerneront une ou plusieurs cellules dans chaque colonne, lesquelles ?

A+

 

Vote positif 0 Vote négatif

F

french_guy

XLDnaute Nouveau

• 16 Octobre 2009

• #7

Re : Afficher un message d'erreur

Euh....Suis pas sur de bien comprendre la question (totalement novice en macro et VB...)
En fait, j'ai fait un essai avec une macro sur 1 colonne seulement (W) et ca semble marcher pour cette colonne
Voila une copie de la macro en provenance du vrai fichier (le fichier test n'etait qu'un exemple)
Private Sub Worksheet_Calculate()
If Range("W874").Value = 0 And Range("W877").Value <> 0 Then
MsgBox "This press has volume loaded...You can't have that Press inactive, unless you remove the volume "
End If
End Sub
Mais:
1) Je ne sais pas comment etendre cette macro a toutes les autres colonnes (de N a BU dans le vrai fichier)
2) je suis d'accord qu'il y ait un risque d'avoir une foultitude de messages, ce qui n'est pas l'ideal
3) pour info, c'est en Anglais car je suis Francais mais travaille aux USA

D'avance merci pour l'aide

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2009

• #8

Re : Afficher un message d'erreur

Re,

Je pense en fait que j'ai mal raisonné, mais il faudrait que vous nous donniez un fichier avec les formules en lignes 5 et 6.

A+

 

Vote positif 0 Vote négatif

F

french_guy

XLDnaute Nouveau

• 16 Octobre 2009

• #9

Re : Afficher un message d'erreur

La colonne D5 (qui est en fait W874 dans le vrai fichier) est la suivante:
='Serv & Trials'!M27 C'est donc la recopie d'une cellule en provenance d'un autre onglet
Et la colonne D6 (qui est en fait W877 dans le vrai fichier) est la suivante:
=SUM(W894,W909,W924,W939,W954,W969,W984,W999,W1014,W1029)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2009

• #10

Re : Afficher un message d'erreur

Re,

Vu votre post #7. Je venais de penser aussi à l'évènement Calculate, avec le risque de nombreux messages.

Ce sont maintenant d'autres lignes et d'autres colonnes...

Si vous ne nous donnez pas une copie (allégée, pas besoin de toutes les lignes) du vrai fichier on ne va pas s'en sortir

A+

 

Vote positif 0 Vote négatif

F

french_guy

XLDnaute Nouveau

• 16 Octobre 2009

• #11

Re : Afficher un message d'erreur

meme allege, le fichier fait encore 800kB
Avez vous une adresse email pour envoyer ce fichier?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2009

• #12

Re : Afficher un message d'erreur

Re,

Mettez le fichier sur cijoint.fr :

Cijoint.fr - Service gratuit de dépôt de fichiers

Mais avant il faudrait que vous y ajoutiez une zone de texte avec des explications claires sur les plages à considérer.

Colorez aussi ces plages, et prenez votre temps pour que l'on comprenne bien.

Edit : je vais devoir m'absenter 2 ou 3 heures.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2009

• #13

Re : Afficher un message d'erreur

Re,

En fait je pense que vous avez eu la bonne intuition avec Calculate.

Avant de partir, j'ai pensé à cette macro (pas testée) :

Code:

Private Sub Worksheet_Calculate()
Dim col As Byte
For col = 14 To 73 'colonnes N à BU
If cells(874, col) = 0 And cells(877, col)  <> 0 Then
MsgBox "This press has volume loaded...You can't have that Press inactive, unless you remove the volume "
Exit For
End If
Next
End Sub

Il n'y aura bien qu'un seul message, mais à chaque recalcul de la feuille.

Si OK pas besoin de fichier.

A+

 

Dernière édition: 16 Octobre 2009

Vote positif 0 Vote négatif

F

french_guy

XLDnaute Nouveau

• 16 Octobre 2009

• #14

Re : Afficher un message d'erreur

Je viens de faire un essai sur mon fichier allege, et ca l'air de marcher
Super
Je fais les modifs sur le fichier complet en esperant que ca marche tout aussi bien
Merci beaucoup Job75....Je te tiens au courant!!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2009

• #15

Re : Afficher un message d'erreur

Re,

La macro pouvant je pense se déclancher quand une autre feuille est active, il faut impérativement préciser la feuille pour les cellules étudiées, donc corrigez :

Code:

If [COLOR="Red"]Sheets("Feuil1").[/COLOR]cells(874, col) = 0 And [COLOR="Red"]Sheets("Feuil1").[/COLOR]cells(877, col)  <> 0 Then

EDITION : je pensais être sûr de moi et bien c'est faux. Pour la macro Calculate, LA FEUILLE PAR DEFAUT EST CELLE OU SE TROUVE LA MACRO. Donc inutile de préciser la feuille.

A+

 

Dernière édition: 16 Octobre 2009

Vote positif 0 Vote négatif