XL 2021 Colorer le mois en cours et le TextBox correspondant

vgendron

XLDnaute Barbatruc

• 4 Septembre 2024

• #2

bonjour

un essai avec ceci

VB:

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

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 4 Septembre 2024

• #3

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.

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2024

• #4

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é

 

Pièces jointes

• TEST_hd.xlsm

  32.2 KB · Affichages: 4

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 4 Septembre 2024

• #5

herve62 à dit:

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é

Cliquez pour agrandir...

@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..

 

Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 5 Septembre 2024

• #6

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.

 

Pièces jointes

• TEST.xlsm

  45.8 KB · Affichages: 6

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 5 Septembre 2024

• #7

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

 

Pièces jointes

• TEST (1).xlsm

  44.7 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

AIXELS

XLDnaute Occasionnel

Supporter XLD

• 5 Septembre 2024

• #8

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

 

Vote positif 0 Vote négatif