Bouton- Frame - Couleur

Re Bonsoir

j'ai aussi, juste changér ClsButtonEvents en ButtonEvent

Donc

Public ButtonEvt() As ButtonEvent

aussi ca donne

Case "CommandButton"
                ReDim Preserve ButtonEvt(1 To CptBouton)
                ReDim Preserve OriginalColors(1 To CptBouton)
                Set ButtonEvt(CptBouton) = New ButtonEvent
                Set ButtonEvt(CptBouton).ButtonLRD = Ctrl
                ' on met dans le tag le nom du contrôle ainsi que sa position dans le tableau des couleurs d'origine
                Ctrl.Tag = Ctrl.Name & "," & CptBouton
                OriginalColors(CptBouton) = Ctrl.BackColor
                CptBouton = CptBouton + 1

j'ai nome le module BOUTON et j'y ai mis

Public ButtonEvt() As ButtonEvent
Public FrameEvt() As FrameEvent
Public MultiPageEvt() As MultiPageEvent
Public TabStripEvt() As TabStripEvent
Public ToggleButtonEvt() As ToggleButtonEvent
Public OriginalColors() As Long
Public QuelBouton As String
Sub Bouton()
    UserForm1.Show
End Sub

et module couleur en metant dedans

Sub RemiseDesCouleurs()
    Dim Tablo
    If QuelBouton <> "" Then
        ' on récupère le nom du bouton et sa position dans le tableau
        Tablo = Split(QuelBouton, ",")
        UserForm1.Controls(Tablo(0)).BackColor = OriginalColors(Tablo(1))
        ' on vide la variable QuelBouton vu qu'il n'y a plus de bouton dont la couleur à changer
        QuelBouton = ""
    End If
End Sub

pour que ca soit ...parfait

Bonsoir,

en cherchant la petite bête, le "On Error Resume Next" peut être enlevé.
En effet, on boucle sur les contrôles du USF, donc on en a au moins un, et après on fait une action en fonction de son nom de type avec le Select Case.
Si son nom de type ne correspond à aucun des Case alors on continue la boucle, donc pas d'erreur possible me semble-t-il....

Nota : c'est juste pour avoir le dernier mot !

@ bientôt

LouReeD

c'est tous en ton honneur @LouReeD

j'ai fait enlevé le ON ERROR

et j'ai aj

outé le textbox et le checkbox

merci

Aucun scintillement !

bravo @ vous !

Bonne continuation dans votre projet. Ma version "Non Light" d'ArkaLouReeD a passé les 1000 téléchargements !

@ bientôt

LouReeD

Merveilleux, Sublime, au 1 000 000 de téléchargement

bonsoir, ou bien bon apres-midi

je remercie avant tous, le groupe Excel-Pratique

je remercie @LouReeD pour tous ce qu'il a fait

je fait revivre ce post pour la bonne et simple raison JE BLOQUE

voici pour problème

la macro suivant et sollicité depuis un userform1 mouse move

Sub RemiseDesCouleurs()
    Dim Tablo
    If QuelBouton <> "" Then
        ' on récupère le nom du bouton et sa position dans le tableau
        Tablo = Split(QuelBouton, ",")
        UserForm1.Controls(Tablo(0)).BackColor = OriginalColors(Tablo(1))
        ' on vide la variable QuelBouton vu qu'il n'y a plus de bouton dont la couleur à changer
        QuelBouton = ""
    End If
End Sub

ca fonctionne merveilleusement bien, tand que je suis sur le userform1

j'ai cree un 2ieme userform au nom de test ( et je voudrais creer d'autres avec des nom differents) et la ca ne fonctionne plus correctement car il y a

UserForm1.Controls(Tablo(0)).BackColor = OriginalColors(Tablo(1))

comment remédier au problème, pour que ca fonctionne avec différents userform ??

merci énormément

Bonjour,

avec le même principe que QuelBouton par exemple, un variable Public QuelUSF As Userform, et cette variable est remplie lors du chargement du USF et vidée lorsque l'on quitte ce dernier.

Ensuite dans le code des couleurs remplacez USERFORM1 par QuelUSF.

Ou bien passer en paramètre du code de couleur le USF actuel. Comme vous l'avez fait pour le CaseSelect de l'initialisation.

Pas testé.

@ bientôt

LouReeD

Le fichier de l'idée :

Mais il y a peut-être plus simple... Comme une instruction permettant de connaître le USF affiché...

@ bientôt

LouReeD

parfait !!

j'aivais beugué la

Private Sub UserForm_Initialize()
    Set QuelUSF = Me
        ' Les Controles sont geré par CaseSelect
        ControlsTOUS
End Sub

j'avais pas mis

Set QuelUSF = Me

merci @LouReeD

Bonjour,

Merci à vous pour le retour !

@ bientôt

LouReeD