Discussion :

[Dav1961]

Bonjour le forum,

Je viens requérir votre aide afin de remplir une zone de texte (pas une TextBox, mais une zone de texte par insertion "zone de texte").
Dans cette zone je souhaite avoir la date du jour et l'heure sous cette forme :

Aujourd'hui nous sommes le : jeudi 22 décembre 2022
et il est exactement : 17:51:20

L'heure doit se mettre à jour à la manière d'un chronomètre.

Je vous joint un petit fichier exemple. C'est peut-être la fatigue, mais je peine à trouver la solution en Vba.
Merci par avance pour votre aide

EssaiZoneTexte.xlsm

[78chris]

Bonjour

Il faut écrire la formule dans une cellule, éventuellement masquée par la zone de texte, sélectionner la zone de texte et utiliser =cellule dans la barre de formule, cellule étant l'adresse de la cellule contenant la formule

[deedolith]

Salut,

Une textbox est un objet Shape, une vilaine bestiole d'après ce que j'ai pu lire à droite et à gauche (pas de moyen simple pour mettre le texte à jour).

J'ai trouvé quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
Dim Sh As Excel.Shape
Set Sh = Feuil1.Shapes("TextBox 1")
 
Dim Chrs As Excel.Characters
Set Chrs = Sh.TextFrame.Characters()
 
Chrs.Text = "some text"

[Dav1961]

Bonjour

Il faut écrire la formule dans une cellule, éventuellement masquée par la zone de texte, sélectionner la zone de texte et utiliser =cellule dans la barre de formule, cellule étant l'adresse de la cellule contenant la formule

Bonjour,
Il me semble que c'est ce que j'ai fait dans mon fichier joint.
Merci toutefois pour ta participation

[78chris]

RE

Je n'ouvre pas toujours les fichiers...

Une unique formule suffit

Code :

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

=CONCAT("Aujourd'hui nous somme le ";TEXTE(AUJOURDHUI();"jjjj jj mmmm aaaa");" ";CAR(10);" et il est exactement ";(TEXTE(MAINTENANT();"hh:mm:ss")))

Cependant que ce soit en formule ou VBA cela nécessite un timer pour raffaichir et en général cela sature plus ou moins le fonctionnement d'Excel

[Dav1961]

Merci pour votre réponse, je vais essayer dans mon projet.

Par contre je bute sur une autre formule.

"I19" = si(cellule active dans la plage (D8:J13) est égale à une cellule de Fériés[Date] alors "JOUR FERIE" sinon "JOUR NORMAL".

Féries[Date] étant une zone nommée d'un tableau structuré.

Peux-tu m'aider s'il te plaît ? Mon cerveau marche au ralenti en ce moment...
Je t'en remercie par avance

[Dav1961]

J'ai réussi à faire ce code mais le résultat en H19 est toujours "JOUR NORMAL".
Le format cellule dans D3:J13 est Date "jj"
et celui des cellules G4:G16 est Date "jj/mm/aaaa"

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Cel as Range
For Each Cel In Worksheets("Calend").Range("D8:J13")
        If Not IsError(Application.Match(Cel.Value, Worksheets("Données").Range("G4:G16"), 0)) Then
            [H19].Value = "JOUR FERIE"
        Else
            [H19].Value = "JOUR NORMAL"
        End If
    Next Cel

Merci par avance pour votre aide

[78chris]

Re

En formule on utilise généralement NB.SI(Plage_JF;Date)>0

[Dav1961]

J'ai tenté cette approche sans plus de succès
Merci, je continue à chercher avec mon code Vba

[78chris]

RE

[Dav1961]

Re,

Dans ton exemple, la formule s'applique à une seule cellule (sauf erreur de ma part), dans mon cas, la formule doit s'appliquer à une plage de cellule (D8:J13) et la réponse dans une seule cellule H19.
A moins d'avoir mal compris... ce qui ne serait pas étonnant.

[Dav1961]

Avec l'aide d'internet voici la solution sous Vba
Code à mettre dans WorkSheet_SelectionChange()

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Cel As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D8:J13")) Is Nothing Then
    If Not IsError(Application.Match(CLng(Target), Worksheets("Données").Range("G5:G16"), 0)) Then
        [H19].Value = "JOUR FERIE"
    Else
        [H19].Value = "JOUR NORMAL"
    End If
End If

Bonnes fêtes de fin d'année à tous.
Encore merci pour toutes les réponses apportées.

[78chris]

RE

Si tu testes n dates et écrases ,à chaque date testée dans la boucle, H19 quel intérêt ?

[Dav1961]

RE

Si tu testes n dates et écrases ,à chaque date testée dans la boucle, H19 quel intérêt ?

Je ne comprends pas ce que tu veux dire...

[78chris]

RE

J'étais resté sur la boucle du #7

Le dernier code n'a pas de boucle mais on n'en voit pas le contexte...

Il fonctionne aussi sur une seule cellule alors que c'est ce que tu reprochais à la formule.

De toute façon sans contexte et dans la mesure où ne t'intéresse que VBA, c'est un dialogue de sourds...

Bon Noël

[Dav1961]

Bonjour le forum, bonjour 78chris,

Je travaille sur un calendrier.
Chaque jour est sous le format jj. Lorsque l'utilisateur clique sur un jour du mois, il lui est indiqué qu'il a cliqué sur tel jour au format jjjj jj mmmm aaaa.
Tout cela fonctionne très bien. Donc en plus de la couleur de la cellule qui change, il lui est indiqué si ce jour est férié ou pas.
Je dois travailler sur la plage de cellule du calendrier (RgCalendrier) qui va chercher la date cliquée dans une autre plage (Fériés), si il y a correspondance, alors "JOUR FERIE".
Joyeux Noël également en espérant que le Père Noël ne prenne pas le train....

[jurassic pork]

Hello,

Je viens requérir votre aide afin de remplir une zone de texte (pas une TextBox, mais une zone de texte par insertion "zone de texte").
Dans cette zone je souhaite avoir la date du jour et l'heure sous cette forme :

Aujourd'hui nous sommes le : jeudi 22 décembre 2022
et il est exactement : 17:51:20

L'heure doit se mettre à jour à la manière d'un chronomètre.

Avec ce code dans un module VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim SchedRecalc As Date
 
 
Sub Recalc()
With ActiveSheet.Range("A1")
.Value = Format(Time, "hh:mm:ss AM/PM")
End With
Call SetTime
End Sub
 
 
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub
 
 
Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub

et la formule à 78chris voici ce que l'on peut obtenir :


Les soucis sont :
1 - Quand on fait de l'édition dans la feuille active Excel l'heure ne se met plus à jour.
2 - Toutes les secondes le curseur busy apparaît furtivement.

Ami calmant, J.P

[Dav1961]

Bonjour jurassic pork,

Merci beaucoup pour ton aide.
Je vais tester ça plus tard.

Joyeuses fêtes de fin d'année