Slogan qui change chaque mois

Version imprimable

30/08/2007, 09h49
Ercohuma59

Slogan qui change chaque mois
Bonjour à toutes et à tous,

Je dois faire en sorte qu'à l'ouverture d'un fichier, un slogan s'affiche dans une cellule et change en fonction du mois.

J'ai une cellule (h7) sur la feuil1 nommée "demande" dont la formule est : = aujourdhui(). En (B1) j'ai =mois(h7) format mmmm

J'ai ce code sur thisworkbook :
Code:

1 2 3 Sub thisworkbook_open() Feuil1.SloganDuMois End Sub
Sur feuil1 j'ai essayé le code suivant : (qui ne fonctionne pas)
Code:

1 2 3 4 5 6 Sub SloganDuMois() If [b1] = "janvier" Then [b37] = "soglan janvier" End Sub
Je pense que c'est parceque b1 est une formule et non une valeur ?

Merci d'avance pour votre aide.

Bonjour
Essaie

Code:

1
2
3
4
5
6
Select Case WorkSheets("Feuill1").Range("B1").value
    Case "janvier"
          WorkSheets("Feuill1").Range("B37").Value = "slogan janvier"
    Case "février"
.....
End select

Ce code est à placer dans WorkBook_Open
Slts

30/08/2007, 11h33
Ercohuma59

Merci Plateforme3 mais pour que ca fonctionne il faudrait que je récupére en B1 le texte du mois de la cellule H7 (si on est le 30/08/2007 je dois récupérer en B1 : "août") Hors avec la formule =mois(h7) excel renvoie janvier

Comment faire soit par excel, soit par code VBA.

Merci.
30/08/2007, 11h47
Plateforme3

Re bonjour
En VBA

Code:

format(date,"mmm")

Te renverra le mois en cours en toute lettres

Code:

format(date,"mm")

Te renverra le mois en cours sous forme d'une chaine de 2 chiffres
Slts

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
Sheets("Feuil1").Select
    Range("A1").Select
Select Case Month(Date)
Case 1
ActiveCell.FormulaR1C1 = "slogan janvier"
Case 2
ActiveCell.FormulaR1C1 = "slogan février"
Case 7
ActiveCell.FormulaR1C1 = "slogan juillet"
Case 8
ActiveCell.FormulaR1C1 = "slogan gagné"
End Select
End Sub

Ca ne vas toujours pas

désolé Plateforme3 et random mais ça ne fonctionne pas.

J'ai modifié B1 = mois(g7) et j'ai laissé B1 au format nombre

Donc voilà où j'en suis :
Code:

1 2 3 4 5 6 7 8 9 10 Sub thisworkbook_open() Select Case Worksheets("feuil1").Range("b1").Value Case 1 Worksheets("feuil1").Range("b37").Value = "Slogan 01" Case 8 Worksheets("feuil1").Range("b37").Value = "Slogan 08" End Select End Sub
Message d'erreur : "l'indice n'appartient pas à la selection"

Merci.

30/08/2007, 14h30
Plateforme3

A quelle ligne du code le message apparait?
Parce que je teste et ça marche!
30/08/2007, 14h48
Ercohuma59

c'est quand je suis sur la feuil1 et que je fais :

Outils/macro/ et puis éxécuter la macro

Quand j'ouvre le fichier je ckique sur éxécuter les macro et là la macro tourne et je n'ai pas de message d'erreur. Par contre rien ne s'affiche dans la cellule b37.

Voilà.

Je suis sur excel 2003 et VBA 6.3
30/08/2007, 15h03
Plateforme3

Bizarre autant qu'étrange...
Ce qui m'inquiète, c'est que tu ais accès à ta macro depuis le menu, car moi je ne la voie pas apparaitre
Et que ça ne marche pas à l'ouverture, car moi ça marche
Une question donc, la macro: Sub thisworkbook_open(), tu l'as prise dans les macros proposés par VBA ou tu as tapé le nom toi même?
Slts
30/08/2007, 15h11
Ercohuma59

J'ai tapé le nom qui apparait dans le projet VBA.

Par contre, par outils/macro ....... le nom de la macro qui apparait est :

thisworkbook.thisworkbook_open

Là, je suis largué de chez largué et je ne sais plus quoi faire.
30/08/2007, 15h23
Ercohuma59

J'ai enlevé this et là quand j'ouvre le fichier la macro bloque sur la ligne :

Select case ......

Peut-être que ça va t'aider.
30/08/2007, 15h29
mordrhim

Bonjour Bonjour !!

je passe par ici et viens donner un petit avis :

pas besoin de faire ça avec VBA :)

je te conseille de faire une petite (mais toute petite riquiqui mini) base de données en fait composée de 1 colonne et de 12 lignes.

Slogan Janvier
Slogan Février
...
Slogan de toilette (oops je m'égare)
...
Slogan de Décembre

Ensuite il y a une fonction génialissime :
(Roulement de tambours et tout et tout)
DECALER(Cellule de Référence ,Lignes ,Colonnes)
Cette fonction te permet de prendre la valeur de la Celulle de référence avec un décalement du nombre de Lignes et de Colonnes

Imaginons maintenant que tu veuilles utiliser mon idée :
Ta base de données se trouve en colonne AB :
"AB2" -> Janvier .... "AB13" -> Décembre
Ton "=Aujourdhui()" est en "AC1"
Tu veux afficher le slogan dans la case "B2" il te suffira de faire ceci

Citation:

=DECALER(AB1,MOIS(AC1),0)

et là (Maintenant les vrais roulements de tambour mais les vrais de vrai ....)
ton slogan se mettra à jour a chaque fois, sans execution de macro aucune :)

Et comme je suis gentil, je te mets même à disposition un petit fichier exemple tout pitit simple
30/08/2007, 15h30
Plateforme3

Citation:

Envoyé par Ercohuma59

J'ai enlevé this et là quand j'ouvre le fichier la macro bloque sur la ligne :

Select case ......

Peut-être que ça va t'aider.

Question idiote? Ta feuille s'appelle bien Feuil1?
30/08/2007, 15h45
Ercohuma59

Yes Plateform3, comme indiqué dans mon premier message.

J'ai vérifié dans VBA :

Dans ProjetVBA : feuil1 (demande)
Dans propriétés feuil1 : name=feuil1

Merci à mordrhim pour sa soluce. Je vais essayer et si j'y arrive pas en VBA je l'adopterai.

Cent fois sur le métier remet ton ouvrage :mouarf:
30/08/2007, 16h09
Ercohuma59

Mordrhim,

J'ai copié l'intégralité de ta feuille excel (sauf la formule qui est en b37)

Eh ben ça me met 30-aout-07 et en b37 c'est le slogna de janvier qui s'affiche et non celui d'aout comme sur ta feuille.

Comment ça se fait ??
30/08/2007, 16h12
mordrhim

si ton fichier est trop gros montre moi voir ca :)
ensuite
je suis sur VBA 2000 en français, la différence pourrait venir d'ici
30/08/2007, 16h23
Ercohuma59

Excuse mordrhim

J'avais pas copié la "joli" petite macro.

A présent ça marche.

Si persone ne trouve en VBA (car je préfére ne pas avoir de formule que l'on peut écraser) je prendrai cette solution.
30/08/2007, 16h48
mordrhim

PS : la macro elle sert à rien ^^ juste à ecrire les "Slogan du mois de : "Mois"->"

pour faire en VB :
Récuperer la valeur d'un mois : month()
Avoir le AUJOURDHUI() : Now
ensuite :
- Soit tu fais correspondre Month(Now) avec des Case
- Soit tu fais une mini base de données comme mon exemple et tu fais correspondre Month(Now) avec la cellule ou se trouve ton slogan correspondant
- Soit tu créés un array :

Code:

Array("Un truc bidon","Slogan de Janvier", ... , "Slogan de Décembre")

Comme le premier indice d'array est 0 je rajoute "Un truc bidon" pour que Month(Now) corresponde bien .. :)

je fais exprès de te donner juste des indications car il y a trop de monde qui cherche des "Poules pondeuses" ou "Developpeur pondeurs de code"

J'ai trouvé la solution : la voici et ça marche

Ben c'est chié non ! :yaisse2:

Code dans this workbook :

Code:

1
2
3
Sub thisworkbook_open()
GoTo feuil1_slogan
End Sub

Code dans feuil1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub feuil1_slogan()
If Range("b1").Value = "1" Then Range("b37") = "slogan 01"
If Range("b1").Value = "2" Then Range("b37") = "slogan 02"
If Range("b1").Value = "3" Then Range("b37") = "slogan 03"
If Range("b1").Value = "4" Then Range("b37") = "slogan 04"
If Range("b1").Value = "5" Then Range("b37") = "slogan 05"
If Range("b1").Value = "6" Then Range("b37") = "slogan 06"
If Range("b1").Value = "7" Then Range("b37") = "slogan 07"
If Range("b1").Value = "8" Then Range("b37") = "slogan 08"
If Range("b1").Value = "9" Then Range("b37") = "slogan 09"
If Range("b1").Value = "10" Then Range("b37") = "slogan 10"
If Range("b1").Value = "11" Then Range("b37") = "slogan 11"
If Range("b1").Value = "12" Then Range("b37") = "slogan 12"
End Sub

Bon c'est peut-être pas du grand VBA mais l'important c'est que fonctionne.
Et si ça peut servir à d'autres............
Si vous avez des commentaires ou des améliorations, je suis preneur.

Bonne soirée à tous.:salut: