IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Slogan qui change chaque mois


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Août 2007
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Août 2007
    Messages : 23
    Par défaut 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 : 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.

  2. #2
    Membre éprouvé
    Inscrit en
    Janvier 2007
    Messages
    132
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Janvier 2007
    Messages : 132
    Par défaut
    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

  3. #3
    Membre averti
    Inscrit en
    Août 2007
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Août 2007
    Messages : 23
    Par défaut
    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.

  4. #4
    Membre éprouvé
    Inscrit en
    Janvier 2007
    Messages
    132
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Janvier 2007
    Messages : 132
    Par défaut
    Re bonjour
    En VBA
    Te renverra le mois en cours en toute lettres
    Te renverra le mois en cours sous forme d'une chaine de 2 chiffres
    Slts

  5. #5
    Expert confirmé

    Profil pro
    Inscrit en
    Mai 2005
    Messages
    3 419
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 3 419
    Par défaut
    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

  6. #6
    Membre averti
    Inscrit en
    Août 2007
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Août 2007
    Messages : 23
    Par défaut 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 : 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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 07/03/2012, 18h05
  2. Réponses: 2
    Dernier message: 14/09/2011, 16h17
  3. Déplacement vers un point aléatoire qui change à chaque tour
    Par Lulou40 dans le forum Débuter avec Java
    Réponses: 2
    Dernier message: 13/10/2009, 12h54
  4. Creer un rapport qui change chaque semaine.
    Par amne26 dans le forum IHM
    Réponses: 5
    Dernier message: 03/12/2008, 14h13
  5. [JMeter] Récupration d'une variable qui change à chaque process
    Par vendeeman dans le forum Tests et Performance
    Réponses: 3
    Dernier message: 11/12/2007, 12h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo