MsgBox If Cell<value

V

VDAVID

XLDnaute Impliqué

• 3 Juillet 2014

• #2

Re : MsgBox If Cell<value

Salut AHMOST

Essaye comme ceci:

Code:

Sub MsgBoxEnergyBill()
Dim EnergyBill As Integer
EnergyBill = Sheets("Feuil1").Range("D35").Value

If EnergyBill < 300000 Then
MsgBox "Consumption is too low"
End If

End Sub

 

Vote positif 0 Vote négatif

A

AHMOST

XLDnaute Junior

• 3 Juillet 2014

• #3

Re : MsgBox If Cell<value

Salut VDAVID !

Deja merci pour ton aide !
Voici le code suite à ton commentaire :

Sub MsgBoxEnergyBill()
Dim EnergyBill As Integer

EnergyBill = Sheets("2-Quotation").Range("D35").Value

If EnergyBill < 300000 Then
MsgBox "Consumption is too low"
End If


End Sub

Cliquez pour agrandir...

ça ne fonctionne pas Ma feuille est vérouillée sur certaines cellules mais pas sur la D35 qui contient la valeur "Energy Bill".
As tu une idée de ce qui pourrait clocher ?

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 3 Juillet 2014

• #4

Re : MsgBox If Cell<value

Re AHMOST,

Effectivement je ne suis pas réveillé ce matin ! ^^

Tu as déclarer la valeur EnergyBill As Integer.
Une variable Integer est un entier compris entre - 32 768 et 32 767.
Or apparemment la valeur de la cellule D35 peut façilement prendre une valeur supérieure à 32 767 puisque ta condition porte sur 300 000

Essaye de déclarer en tant que Long si c'est un entier, ou Double si EnergyBill est susceptible d'avoir des virgules.

Comme ceci:

Dim EnergyBill As Long

OU

Dim EnergyBill As Double

 

Vote positif 0 Vote négatif

A

AHMOST

XLDnaute Junior

• 3 Juillet 2014

• #5

Re : MsgBox If Cell<value

Re,

Voici le code que l'on a à présent :

Sub MsgBoxEnergyBill()
Dim EnergyBill As Long

EnergyBill = Sheets("2-Quotation").Range("D35").Value

If EnergyBill < 300000 Then
MsgBox "Consumption is too low"
End If


End Sub

Cliquez pour agrandir...

La MsgBox ne s'affiche pas plus, meme en entrant 100 rien ne se passe.

 

Vote positif 0 Vote négatif

A

AHMOST

XLDnaute Junior

• 3 Juillet 2014

• #6

Re : MsgBox If Cell<value

Message en double

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 3 Juillet 2014

• #7

Re : MsgBox If Cell<value

AHMOST,

Tu veux que la macro se lance au changement de valeur de la cellule D35?
Sinon essaye de mettre un fichier exemple avec le code, pour que l'on puisse voir où ça coince !

 

Vote positif 0 Vote négatif

A

AHMOST

XLDnaute Junior

• 3 Juillet 2014

• #8

Re : MsgBox If Cell<value

En fait je veux tout simplement que SI la valeur en D35 est inférieure à 300 000, ALORS MsgBox "consommation énergétique trop basse".

Voici le fichier joint pour un test de la macro, merci !

 

Pièces jointes

• AHMOST-MsgBox.xlsm

  11.8 KB · Affichages: 26

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 3 Juillet 2014

• #9

Re : MsgBox If Cell<value

Re,

Comme ceci plutôt, il faut que tu intègres le code dans l'évènement Change de ta feuille:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = Range("D3").Address Then
    
        If Target.Value < 300000 Then MsgBox "Consumption is too low", vbExclamation, "Caution"
    
    End If
    
    
End Sub

Un code sub doit être activé manuellement et ne se déclenchera pas à la modification d'une cellule !
Regarde la P.J autrement

 

Pièces jointes

• AHMOST-MsgBox(1).xlsm

  14.6 KB · Affichages: 28

Vote positif 0 Vote négatif

A

AHMOST

XLDnaute Junior

• 3 Juillet 2014

• #10

Re : MsgBox If Cell<value

Merci VDAVID c'est parfait ! J'ai juste rajouté un End If
Est-ce que tu pourrais m'expliquer le rôle de "ByVal target As Range" stp ? Sur le net je ne parviens pas à comprendre ...

Merci pour ton aide !

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 3 Juillet 2014

• #11

Re : MsgBox If Cell<value

AHMOST,
Content que ça colle à ce que tu souhaitais

En ce qui concerne le rôle de ByVal et Target As Range, je t'invite à consulter l'aide (en appuyant sur F1, lorsque tu es sur un mot clé) qui est très complète !

Pour résumer, il s'agit de passer des arguments pour cette procédure. Comme tu déclares des variables lorsque tu initialises ton code. Ici, on passe Target en tant que Range, qui représente une ou plusieurs cellules. ByVal veut dire en fonction de la valeur en opposition à ByRef, s'appuyant sur les références des cellules.

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 3 Juillet 2014

• #12

Re : MsgBox If Cell<value

Bonjour AHMOST, VDAVID (rien que des gens qui parlent haut et fort )

Je sais que j'arrive longtemps après la bataille, mais ... on aurait pu faire la même chose avec Données > Validation, non?

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 3 Juillet 2014

• #13

Re : MsgBox If Cell<value

Salut Modeste,

Effectivement je parle haut et fort (Attention aux oreilles !) mais j'espère que je ne dis pas trop de conneries (Ce qui est souvent le cas pour les gens qui parle comme ça =D ).
En l'occurrence c'est vrai qu'en passant par données validations c'est bien plus simple !

Pourquoi faire simple quand on peut faire compliqué dira t-on

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 3 Juillet 2014

• #14

Re : MsgBox If Cell<value

Re,
Salut Jean-Bernard

VDAVID à dit:

j'espère que je ne dis pas trop de conneries

Cliquez pour agrandir...

Alors là, ce n'est certainement pas moi qui me prononcerai sur ce sujet (je suis hors concours!)

... Mais le message s'adressait surtout à AHMOST, pour lui éviter de réinventer quelque chose qui existe!

 

Vote positif 0 Vote négatif

A

AHMOST

XLDnaute Junior

• 3 Juillet 2014

• #15

Re : MsgBox If Cell<value

Salut Modeste !

Bien vu c'est vrai que ça existe deja pour le coup ! C'est quand meme interessant d'apprendre à gérer les MsgBox de ce type qui sont très utiles

 

Vote positif 0 Vote négatif