XL 2016 Mettre le mois actif en clignotement

[Dennnisss]

Bonjour j'ai modifier mon user au minimum , lorsque j'entre mes données de vélo j'aimerais que le mois actif dans ce cas ici c'est avril , j'ai mit 12 la valeur par defaut j'ai mit a intérieur de mon user un petit test trouver sur le site mais vue que c'est une boucle il tourne en rond , alors besoin de votre aide svp ,, mon besoin est que le mois clignote selon la date(mois) ou je suis rendu durant mon année ,,, merci de votre aide

 

[dysorthographie]

Au post #13 je n'avais pas soigné la sortie de boucle quand on ferme l'UserForm, c'est corrigé.

bonjour,
je dirais même plus au poste #12

 

[job75]

Oui c'est le post #12...

 

[job75]

Bonjour le forum,

c'est bien gentil de ne pas utiliser les API, mais tes boucles sont énergivores.

Je ne pense pas, ça fait des années que j'utilise des boucles d'attente sur le Timer et je n'ai jamais eu de problème avec le CPU.

Pour terminer avec le fichier joint j'utilise cette fonction VBA :

Function USFOuvert(nom As String) As Boolean
Dim u
For Each u In UserForms
    If u.Name = nom Then USFOuvert = True: Exit For
Next
End Function

utilisée ainsi :

Private Sub CommandButton1_Click()
Dim delai, nom$, c As Control, dat, t
delai = 0.5 'délai d'attente en seconde
With Ouverture
    .Show 0 'non modal
    nom = .Name
    For Each c In .Controls
        If c.Name Like "Label*" And Val(c) = 0 Then _
            dat = "1/" & c: If Month(dat) = Month(Date) Then Exit For
    Next c
End With
While USFOuvert(nom) 'tant que l'UserForm est ouvert
    c.Visible = False
    t = Timer + delai
    While Timer < t And t < 86400: DoEvents: Wend 'attente
    If USFOuvert(nom) Then c.Visible = True
    t = Timer + delai
    While Timer < t And t < 86400: DoEvents: Wend 'attente
Wend
End Sub

A+

 

[dysorthographie]

bonjour,
je ne comprends pas la logique
avril porte le nom de Label329 et pourquoi pas avr

Array("janv","févr","mars","avr","mai","juin","juil","août","sept","oct","nov","déc")

qu'est ce qui défini qu'on est au mois d'avril???
C'est plu facile de faire clignoter Janv, Fev, Mars que Label326, Label327 et Label328 du reste les autre colonne pourraient dériver de:
JanvAddition, JanvMoyenne etc
tu pourrais faire un boucle qui ballait tes controle

Dim Mois As String
For I = 1 To 12
 Mois = Format(DateSerial(1, I, 1), "mmm")
 Me.Controls(Mois).BackColor = IIf(Me.Controls(Mois).Caption = Format(Date, "mmm"), &HFFC0C0, &HC000&)

Next

tu pourrais même envisage de faire une autre boucle pour chargé ton classeur.

faire clignoter le moi en cour serait un jeux d'enfant!

 

[job75]

Hello dyso,

qu'est ce qui défini qu'on est au mois d'avril???

Date.

A+

 

[dysorthographie]

Hello dyso,

Date.

A+

pas dans son code
deplus c'est illisible

tous les labels sont gérées un a un

si encore on avait un exemplaire du fichier en liaison externe on pourrait réfléchir à comment optimiser

 

[job75]

Date est à la 9ème ligne du code mais bon d'accord c'est peut-être mieux d'écrire :

    For Each c In .Controls
        If c.Name Like "Label*" Then dat = "1/" & c: _
            If IsDate(dat) Then If Month(dat) = Month(Date) Then Exit For
    Next c

A+

 

[dysorthographie]

tu as raison c'est nettement plus lisible

 

[dysorthographie]

Addition	Moyenne	Kilo	Retard	???
Label326	janv	Label523	janv_Addition	Label405	janv_Moyenne	Label422	janv_Kilo	Label456	janv_Retard	Label488	janv_???
Label327	févr	Label507	févr_Addition	Label406	févr_Moyenne	Label423	févr_Kilo	Label457	févr_Retard	Label489	févr_???
Label328	mars	Label508	mars_Addition	Label407	mars_Moyenne	Label424	mars_Kilo	Label458	mars_Retard	Label490	mars_???
Label329	avr	Label509	avr_Addition	Label408	avr_Moyenne	Label425	avr_Kilo	Label459	avr_Retard	Label491	avr_???
Label330	mai	Label510	mai_Addition	Label409	mai_Moyenne	Label426	mai_Kilo	Label460	mai_Retard	Label492	mai_???
Label331	juin	Label511	juin_Addition	Label410	juin_Moyenne	Label427	juin_Kilo	Label461	juin_Retard	Label493	juin_???
Label332	juil	Label512	juil_Addition	Label411	juil_Moyenne	Label428	juil_Kilo	Label462	juil_Retard	Label494	juil_???
Label333	août	Label513	août_Addition	Label412	août_Moyenne	Label429	août_Kilo	Label463	août_Retard	Label495	août_???
Label334	sept	Label514	sept_Addition	Label413	sept_Moyenne	Label430	sept_Kilo	Label464	sept_Retard	Label496	sept_???
Label335	oct	Label515	oct_Addition	Label414	oct_Moyenne	Label431	oct_Kilo	Label465	oct_Retard	Label497	oct_???
Label336	nov	Label516	nov_Addition	Label415	nov_Moyenne	Label432	nov_Kilo	Label466	nov_Retard	Label498	nov_???
Label337	déc	Label517	déc_Addition	Label416	déc_Moyenne	Label433	déc_Kilo	Label467	déc_Retard	Label499	déc_???