XL 2021 Colorer le mois en cours et le TextBox correspondant

[AIXELS]

Bonjour à tous les Amis du Forum.
J'espère pour les chanceux que vous avez passé de bonnes vacances.
Je reviens vers vous pour vous demander une fois de plus votre aide.
Mon problème est le suivant :
J'ai un tableau récapitulatif d'heures pour chaque mois de l'année
avec des sommes correspondantes à des prestations.
Pour chaque nom, il y'a un userform qui récapitule les heures et les montants.
J'aurais souhaité que le mois en cours et le total du TextBox qui correspond soient colorés
en vert à l'activation du userform et réinitialiser les couleurs à la sortie.
Je vous joins le fichier Excel avec une image écran du résultat souhaité.
Par avance, merci pour aide.
Bien cordialement.

 

[vgendron]

bonjour

un essai avec ceci

Private Sub UserForm_Activate()
Dim ctrl As MSForms.CommandButton
'    Affichage de la date et de l'heure
    Caption = Space(4) & Application.Proper(Format(Now, "dddd dd mmm yyyy")) & "  - " & " Il est  " & Format(Now, "hh:mm")
    nummois = Month(Now)
    Set ctrl = Me.Controls("CommandButton" & nummois)
    ctrl.BackColor = RGB(0, 255, 0)
Me.Controls("Textbox" & NumMois).BackColor = RGB(0, 255, 0)
End Sub

 

[AIXELS]

Bonjour @vgendron
Merci pour ton retour. J'ai testé, ça fonctionne très bien.
Une question, en sortant, les couleurs sont-elles désactivées ?
Merci pour ton aide.
Bien cordialement.

 

[herve62]

Bonjour tous
Si j'ai bien compris !! Ouvrir Userform il devrait y avaoir un choix de nom ...non ??? Papin , Michel etc
donc il te faut dupliquer ton Usf autant d efois que de colonne de noms , simple avec des exports , renommer , importer les USF . un peu long !!!
Ensuite tu refais un usf ou une liste pour selectionner le nom donc l'usf désiré
J'ai pas le temps cet am mais ce soir ok
si c'est ça fait la dupliq. comme j'ai commencé

 

[vgendron]

Bonjour tous
Si j'ai bien compris !! Ouvrir Userform il devrait y avaoir un choix de nom ...non ??? Papin , Michel etc
donc il te faut dupliquer ton Usf autant d efois que de colonne de noms , simple avec des exports , renommer , importer les USF . un peu long !!!
Ensuite tu refais un usf ou une liste pour selectionner le nom donc l'usf désiré
J'ai pas le temps cet am mais ce soir ok
si c'est ça fait la dupliq. comme j'ai commencé

@herve62 : Hello
je pense que Aixels n'a pas posté son fichier en entier.. et qu'il manque 95% du code.. car effectivement.. il n'y a rien qui selectionne le nom..
avant de te lancer dans un code qui existe déjà probablement, attend la confirmation du demandeur..

 

[AIXELS]

Bonjour @vgendron @herve62 et tous les Amis du Forum.
Merci pour vos retours.
Effectivement le fichier est conséquent, ce n'est qu'un bout
de l'application.
@vgendron ta solution fonctionne très bien, mais pour n'avoir
posté qu'une partie du fichier, j'ai le problème suivant :
Lors du passage sur un mois, la couleur de fond change pour
le mettre en évidence lors de la sélection et se réinitialise lors
du passage de de la souris sur un autre bouton.
Le mois en cours est bien coloré en vert au départ.
Lors de la sélection d'un autre bouton, j'aurais souhaité le code
pour le réinitialiser en vert comme demandé dans mon premier
post.
Merci pour votre aide.
Bien cordialement.

 

[vgendron]

ton code mousemove est un peu mal foutu.. selon la vitesse à laquelle on se déplace sur le formulaire, on arrive à colorer plusieurs boutons...
j'ai modifié ton code

 

[AIXELS]

Bonjour @vgendron
Merci pour ton retour et ton aide.
La macro fonctionne très bien.
Bien cordialement.