Texte variable en fonction de la date
Résolu
Mathieu
-
Mathieu -
Mathieu -
Bonjour,
Je voudrais mettre dans une présentation une zone de texte qui change en fonction de la date du jour, comme par exemple afficher un anniversaire en fonction du jour. J'avais pensé à une macro mais comment faire ? Ou sinon d'une autre manière.
Merci d'avance.
Je voudrais mettre dans une présentation une zone de texte qui change en fonction de la date du jour, comme par exemple afficher un anniversaire en fonction du jour. J'avais pensé à une macro mais comment faire ? Ou sinon d'une autre manière.
Merci d'avance.
A voir également:
- Texte variable en fonction de la date
- Fonction si et - Guide
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Mettre un texte en majuscule - Guide
- Traitement de texte gratuit - Guide
3 réponses
Bonjour,
J'espère que tu n'as pas 365 dates à remplir !
Voici un exemple de macro qui suppose :
- que la zone de texte se trouve dans la première diapo. Si ce n'est pas le cas, change le numéro (CurrentShowPosition),
- que cette zone de texte se nomme "zone".
Tu mets la macro dans un module quelconque, il s'agit d'une macro automatique, et donc elle se lancera toute seule dès la première diapo affichée en diaporama.
A toi de compléter ce que tu veux faire figure dans la zone de texte, en fonction de la date du jour. Tu dois donc ajouter autant de :
que de jours que tu souhaites compléter.
m@rina
Nous ne sommes pas devins : n'oubliez pas d'indiquer la version du logiciel utilisé, et comment vous avez procédé.
J'espère que tu n'as pas 365 dates à remplir !
Voici un exemple de macro qui suppose :
- que la zone de texte se trouve dans la première diapo. Si ce n'est pas le cas, change le numéro (CurrentShowPosition),
- que cette zone de texte se nomme "zone".
Tu mets la macro dans un module quelconque, il s'agit d'une macro automatique, et donc elle se lancera toute seule dès la première diapo affichée en diaporama.
A toi de compléter ce que tu veux faire figure dans la zone de texte, en fonction de la date du jour. Tu dois donc ajouter autant de :
Case "date"
montexte = "XXXXXXXX"
que de jours que tu souhaites compléter.
Sub OnSlideShowPageChange(ByVal diaporama As SlideShowWindow)
'macro écrite par m@rina
Dim jour As Date, montexte As String
jour = Date
Select Case jour
Case "24/12/2015"
montexte = "Reveillon de Noël"
Case "25/12/2015"
montexte = "Noël"
Case "31/12/2015"
montexte="Saint Sylvestre"
End Select
If diaporama.View.CurrentShowPosition = 1 Then
ActivePresentation.Slides(1).Shapes("zone").TextFrame.TextRange.Text = montexte
End If
End Sub
m@rina
Nous ne sommes pas devins : n'oubliez pas d'indiquer la version du logiciel utilisé, et comment vous avez procédé.