Discussion :

[Ercohuma59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub thisworkbook_open()
Feuil1.SloganDuMois
End Sub

Sur feuil1 j'ai essayé le code suivant : (qui ne fonctionne pas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Plateforme3]

Bonjour
Essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Plateforme3]

Re bonjour
En VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

format(date,"mmm")

Te renverra le mois en cours en toute lettres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

format(date,"mm")

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

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ercohuma59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Plateforme3]

A quelle ligne du code le message apparait?
Parce que je teste et ça marche!

[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

[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

[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.

[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.

[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

=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

[Plateforme3]

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?

[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

[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 ??

[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

[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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[Ercohuma59]

Ben c'est chié non !

Code dans this workbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub thisworkbook_open()
GoTo feuil1_slogan
End Sub

Code dans feuil1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.