Mise en forme sur userform avec MouseMove

skoobi

XLDnaute Barbatruc

• 9 Septembre 2009

• #2

Re : Mise en forme sur userform avec MouseMove

Bonjour Nanir,

Le ForeColor change tout les 2 boutons?
Idem pour la mise en gras?
Et pourquoi commencer par le "2" puis continuer par le "1"?, décroissant 😕
Et avec un fichier c'est mieux.

 

Vote positif 0 Vote négatif

N

Nanir

XLDnaute Occasionnel

• 9 Septembre 2009

• #3

Re : Mise en forme sur userform avec MouseMove

skoobi à dit:

Bonjour Nanir,

Le ForeColor change tout les 2 boutons?
Idem pour la mise en gras?
Et pourquoi commencer par le "2" puis continuer par le "1"?, décroissant 😕
Et avec un fichier c'est mieux.

Cliquez pour agrandir...

En fait, sur le formulaire j'ai 23 commandbutton.
Je souhaiterai que le forecolor change losque le bouton est pointé avec la souris...
La seule méthode que j'ai trouvé est celle citée ci-dessus mais elle est super longue.

Ci joint un fichier exemple.
L'exemple est réalisé pour les 3 premier boutons seulement.

 

Pièces jointes

• Mousemove.xls

  29 KB · Affichages: 123
• Mousemove.xls

  29 KB · Affichages: 129
• Mousemove.xls

  29 KB · Affichages: 134

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 9 Septembre 2009

• #4

Re : Mise en forme sur userform avec MouseMove

Re,

il faut utiliser les modules de classe.
Là j'ai plus le temps, désolé. Si jamais personne ne t'auras fais une proposition d'ici demain, j'essayerai de te répondre.

 

Vote positif 0 Vote négatif

N

Nanir

XLDnaute Occasionnel

• 9 Septembre 2009

• #5

Re : Mise en forme sur userform avec MouseMove

skoobi à dit:

Re,

il faut utiliser les modules de classe.
Là j'ai plus le temps, désolé. Si jamais personne ne t'auras fais une proposition d'ici demain, j'essayerai de te répondre.

Cliquez pour agrandir...

Merci pour ton aide.
Juste pour le fun, j'ai complété le fichier exemple joint pour les 8 commandbutton...
Il doit certainement y avoir un moyen de faire beaucoup, beaucoup plus court...

 

Pièces jointes

• Mousemove.xls

  35 KB · Affichages: 86
• Mousemove.xls

  35 KB · Affichages: 95
• Mousemove.xls

  35 KB · Affichages: 97

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Septembre 2009

• #6

Re : Mise en forme sur userform avec MouseMove

Bonjour,

Voir PJ

Code:

Dim Btn(1 To 10) As New ClasseBoutons
Private Sub UserForm_Initialize()
  For i = 1 To 8
   Set Btn(i).GrBoutons = Me("commandbutton" & i)
  Next i
End Sub

Module de classe:

Code:

Public WithEvents GrBoutons As Msforms.CommandButton
Private Sub GrBoutons_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  For i = 1 To 8:
    UserForm1("CommandButton" & i).ForeColor = 0
    UserForm1("CommandButton" & i).Font.Bold = False
  Next
  GrBoutons.ForeColor = RGB(255, 0, 0)
  GrBoutons.Font.Bold = True
End Sub

JB

 

Pièces jointes

• Copie de Mousemove-2.xls

  41.5 KB · Affichages: 168

Dernière édition: 9 Septembre 2009

Vote positif 0 Vote négatif

N

Nanir

XLDnaute Occasionnel

• 10 Septembre 2009

• #7

Re : Mise en forme sur userform avec MouseMove

Merci beaucoup BOISGONTIER!
Ca fonctionne parfaitement!
Un très grand merci...

 

Vote positif 0 Vote négatif