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.