probleme if/then dans macro

pakalom

XLDnaute Junior
bonjour,

Je me tourne encore une fois vers vous ( et!! oui......)

je souhaite que mon message change lorsque ma diff est sup à 8 ou pas.

MAIS comme d'habitude l'ordinateur est tétu, il ne veut pas le faire.

Pouvez vous venir a mon secours !!!!!


Merci d'avance
 

Pièces jointes

  • test_condition.xls
    23 KB · Affichages: 43
  • test_condition.xls
    23 KB · Affichages: 44
  • test_condition.xls
    23 KB · Affichages: 44

ROGER2327

XLDnaute Barbatruc
Re : probleme if/then dans macro

Bonjour pakalom
Code:
[COLOR="DarkSlateGray"][B]Sub test()
Sheets("feuil1").Select
Range("g8").Select
If ActiveCell.[COLOR="Red"]Value [/COLOR]< 8 Then
MsgBox (" A L A R M !!!  DEPECHE TOI !!!")
Else
MsgBox (" RELAX TU AS LE TEMPS !!!!!")
End If
End Sub[/B][/COLOR]
fera l'affaire.

Plus simplement :
Code:
[COLOR="DarkSlateGray"][B]Sub test()
  If Sheets("feuil1").Range("g8").Value < 8 Then
    MsgBox (" A L A R M !!!  DEPECHE TOI !!!")
  Else
    MsgBox (" RELAX TU AS LE TEMPS !!!!!")
  End If
End Sub[/B][/COLOR]

Plus court :
Code:
[COLOR="DarkSlateGray"][B]Sub test()
  MsgBox IIf(Sheets("feuil1").Range("g8").Value < 8, " A L A R M !!!  DEPECHE TOI !!!", " RELAX TU AS LE TEMPS !!!!!")
End Sub[/B][/COLOR]
Bonne nuit !

ROGER2327
#4158


Vendredi 13 Absolu 138 (Saint Cantarel, l'illuminateur, SQ)
4ème Sanculottide An CCXVIII
2010-W38-1T22:25:43Z
 

Discussions similaires

Réponses
20
Affichages
2 K
Réponses
2
Affichages
925

Statistiques des forums

Discussions
299 930
Messages
1 980 158
Membres
207 010
dernier inscrit
Setry