message en fonction du mois

job75

XLDnaute Barbatruc

• 27 Juin 2008

• #2

Re : message en fonction du mois

Bonjour,
Je ne comprends pas d'où viennent vos difficultés. On peut utiliser des fonctions SI, mais s'il y a beaucoup de messages mieux vaut utiliser CHOISIR.
Ecrire par exemple en E20 :
=CHOISIR(MOIS(B2);"aaa";"bbb";"ccc";"ddd".......)
Evidemment B2 doit contenir une date (donc un nombre), le format date n'a aucune importance.
A+

 

Vote positif 0 Vote négatif

Z

Zlopeck

Guest

• 27 Juin 2008

• #3

Re : message en fonction du mois

Bonjour Job75
Bien sûr que les fonctions SI ou CHOISIR peuvent afficher les messages voulus, mais la cellule dans laquelle ces messages doivent s'inscrire sert aussi pour d'autres fonctions.
C'est pour cela que je ne peux pas y mettre de formule et que je cherche un code en VBA du style:

If Range ("B2") contient "juin" Then
Range ("E20") = " Commencez à préparer vos vacances"
End if

et c'est sur le contient que je bute....

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Juin 2008

• #4

Re : message en fonction du mois

Bonjour à tous,

Un essai

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
If Month(Range("B2")) = 6 Then
Range("E20") = " Commencez à préparer vos vacances"
Else: Range("E20") = ""
End If
End If
End Sub

A+

 

Dernière édition: 27 Juin 2008

Vote positif 0 Vote négatif

Z

Zlopeck

Guest

• 27 Juin 2008

• #5

Re : message en fonction du mois

Bonjour et merci JCGL pour ton code mais lorsque je l'intègre à mon fichier, j'ai droit à un plantage et quand je l'essaie seul dans un fichier vierge, j'ai un débogage et un message d'erreur "Erreur de compilation : Instruction incorrecte à l'extérieur d'une procédure" et le B2 de la première ligne If Month(Range("B2")) = 6 Then surligné en bleu.
J'ai essayé de modifier ce Range ("B2") mais j'ai toujours ce débogage.

( Je suis sous Excel 2007)

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Juin 2008

• #6

Re : message en fonction du mois

Re,

Peux-tu essayer avec ce fichier (liste de validation en B2).
Je pense que cela vient du format de ta date en B2, mais je n'en dirai et ferai pas plus sans fichier 😛

A+

Edition : Si tu es sous XL 2700 poste dans le Forum idoine et pense à renseigner ta version MSO et ton OS dans ton Profil. Merci

 

Pièces jointes

• Essai Message.zip

  6.7 KB · Affichages: 17

Dernière édition: 27 Juin 2008

Vote positif 0 Vote négatif

Z

Zlopeck

Guest

• 27 Juin 2008

• #7

Re : message en fonction du mois RÉSOLU

Ça y est, le problème est résolu.
Ton fichier et ton code fonctionnent à merveille et mon problème venait d'un oubli de ma part : Je n'avais pas renseigné la déclaration "Option Explicit".
Mais maintenant c'est chose faite et tout fonctionne.
Encore merci de ton aide.

PS : En ce qui concerne mon post sous EXCEL "Général" c'était simplement parce que je pense que ce probleme n'est pas propre à 2007 et peut intéresser d'autres utilisateurs.
( Je cours de ce pas compléter mon profil...)

 

Dernière modification par un modérateur: 27 Juin 2008

Vote positif 0 Vote négatif