problème de syntaxe

[antiphot]

Bonjour à toutes et à tous

J'ai un petit souçi d'adaptation d'une macro 🙁

Dans le cas suivant j'ai une macro événementielle qui gère la couleur d'un label dans un usf (Je n'ai mis que la 2ème partie de la macro qui pose souçi).

Private Sub Userform_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Label1
.ForeColor = &H80000012
.Font.Underline = False
End With
end sub

Mon problème: si je met ce label dans un multipage, comment écrire la procédure pour que cela fonctionne.

Merci par avance pour vos conseils éclairés 🙂
Philippe

 

[mutzik]

Re : problème de syntaxe

bonjour,

with multipage1.page1.label1

bien sur tu remplaces multipage1 et page1 par les noms que tu as attribués

 

[antiphot]

Re : problème de syntaxe

Bonjour Mutzik

Merci pour ta réponse et désolé pour le retard à te répondre.
Ceci dit ta solution ne fonctionne pas. Ou alors c'est moi qui n'est pas su l'adapter.
Quoiqu'il en soit je pense que le mieux est de joindre un fichier exemple qui va toute de suite t'éclairer sur ce que je veux faire.

A bientôt

Philippe

 

[Spitnolan08]

Re : problème de syntaxe

Bonjour à tous,

 Private Sub Userform_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
[COLOR=Green] '***Définit la page [/COLOR]
MultiPage1.Value = 0
[COLOR=Green] '***Définit le label[/COLOR]
With Label1
[COLOR=Green] '***Applique la couleur de font voulue [/COLOR]
.ForeColor = &H8000000D  '&H80000012
.Font.Underline = False
End With
End Sub

Cordialement

Edit : Vu la réponse de Pierrot, j'aurais peut être du ouvrir le fichier joint... En tout cas le code ci dessus fonctionne.

 

[Pierrot93]

Re : problème de syntaxe

Bonjour Antiphot, Bertrand, Spitnolan

pour moi ton code fonctionne bien, seulement l'événement lié à l'USF ne se déclenche pas puisque ton multipage recouvre tout l'USF.

Si tu agrandis USF, en mettant des points d'arrêt sur tous les événements mousemove, tu pourras constater par toi même...

bon après midi
@+

 

[Pierrot93]

Re : problème de syntaxe

Re

la solution mettre le code sur le multipage1 :

Private Sub MultiPage1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With Label1
        .ForeColor = &H80000012
        .Font.Underline = False
    End With
    With Label2
        .ForeColor = &H80000012
        .Font.Underline = False
    End With
End Sub

a voir si j'ai bien compris...

 

[Excel_lent]

Re : problème de syntaxe

Salut à tous,

Avec répétitions et bascule,

@+

 

[pierrejean]

Re : problème de syntaxe

bonjour voisin

salut Pierrot, mutzik,Spitnolan,Excellent

ma version

edit:

le 'bon' fichier
je veux dire : bien celui que je voulais poster

 

[antiphot]

Re : problème de syntaxe

Merci, grâce à vous tous j'ai la solution à mon problème avec en prime une variante intéressante.

Bonne fin de journée
Philippe