Discussion :

[Orbeaman]

Bonjour,

Est-il possible de stocker une variable (voire même un object complexe) lors de l'appel d'une commande ActiveX ? Je préférerais ne pas utiliser de variable globale.

L'idée serait de pouvoir conserver des données avant l'appel d'une commande ActiveX et d'y accèder après.

Merci par avance

[Invité]

Bonjour,

Perso, je stocke mes données (répertoires, fichiers, etc..) dans des zones nommées dans un onglet de paramètres.

[patricktoulon]

Bonjour,

Est-il possible de stocker une variable (voir même un object complexe) lors de l'appel d'une commande ActiveX ? Je préférerais ne pas utiliser de variable globale.

L'idée serait de pouvoir conserver des données avant l'appel d'une commande ActiveX et d'y accèder après.

Merci par avance

Bonjour
tu devrais te relire avant de valider ton message

ta ligne 2 est en contradiction avec la ligne 1
quand au sujet lui meme je lis dans ta demande (voir même un object complexe)

je dirais que pour stoquer un object il n'y a pas d'autre moyen qu'une variable

maintenant pour stoquer une données ne serait-ce que le nom de l'object donc string effectivement tu peux stoquer dans un sheets prevu pour ca

voir aussi le tag de l'object si c'est un activX ou userform (sauf sur activX sur sheets dont le tag est innacessible par VBAsi je ne me trompe pas )

[Orbeaman]

Merci pour vos réponse !

Oui, je viens de m'apercevoir que ma question n'était pas très clair. Mais en mentionnant un objet, je ne voulais pas me limiter à un simple nombre ou une chaine de caractères... En fait, je ne voudrais pas non-plus me limiter à un ActiveX. Dans ce cas là, je crains qu'il faudrait écrire une fonction spécifiquement pour l'écriture et la lecture des (sous-)propriétés de l'objet, non ?

Par exemple, avec un événement Worksheet_SelectionChange est-il possible de changer la couleur de la ligne sélectionnée et restaurer la couleur originale en sélectionnant une autre ligne (c'est à dire faire appel à la précédente ligne lors de la sélection d'une nouvelle) ?

Je ne suis pas sûr ce que tu sous-entends par "tag"... Pour moi, ça serait juste un simple label ?

[patricktoulon]

re
tu ne veux pas utiliser de variable globale OK MAIS!!!!....a tu deja entendu parler de variable static a l'interieur de levenement puisque ici par exemple il sagit de l'evenement selectionchange dans un sheets
quel est l'avantage de ces variable static
en fait elle se comportent un peu comme des variable globale mais a l'interieur de l'evenement autrement dit mais une fois l'evenement efectué quand cet evenement est re efectué la variable a garder sa dernier valeur et elle peu etre utilisable , et cela que ce soit un object ou une valeur (string,long,integer,double)

en voici un tout petit exemple de rien du tout ,justement sur l'evenement selection_change du sheets
il te faut alors deux chose memoriser la cellule et sa couleur donc ici 2 variables static
demo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static oldcel As Range: Static oldcouleur As Long
       If Not oldcel Is Nothing Then oldcel.Interior.Color = oldcouleur
       If Target.Column = 1 Then
          Set oldcel = Target: oldcouleur = Target.Interior.Color
        Target.Interior.Color = vbRed
    End If
End Sub

[Orbeaman]

Merci Patrick, c'est exactement ce que je cherchais.

A vrai dire, j'ai récemment créée une pseudo-classe statique (en modifiant les attribues), ce qui se rejoint en quelque sorte. Je verrai pour les objets ActiveX dans un second temps.

[patricktoulon]

re
et bien pour les activx c'est pareil sauf que a l'inverse des cellules il n'y a pas d'evenement regroupant tout les labels(ActivX)
alors on va faire une seule fonction que l'evenement de chaque evenement label l'abel vont appeler
et on va ajouter l'evenement selection change pour remettre le dermier label cliqué a l'origine
alors voila comment on fait
les evenement apel label et sheets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Label1_Click()
    chang_Lab Label1.Object, True
End Sub
Private Sub Label2_Click()
    chang_Lab Label2.Object, True
End Sub
Private Sub Label3_Click()
    chang_Lab Label3.Object, True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    chang_Lab suit:=False
End Sub

tu vois rien de bien compliqué

c'est quoi ce "true" ou ce "suit" :
et bien c'est le 2d argument de la fonction general des labels
il me sert justement a metre ou pas la couleur du clik
autrement dit dans les label suit est a true et pour le selection_change du sheets il est a false
cette condition me sert simplement a séparer la fonction en deux si c'est apelé par un label ca remet l'ancien et ca met en rouge le nouveau
si c'est apellé par le selection_change ca remet l'ancien et c'est tout
remarque aussi les arguments de la function qui sont "Optional" ca me permet de simplifier les apels quand j'injecte pas tout les argument (voir evenement selection_change)
tout ca maintenant dit voila le code la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function chang_Lab(Optional ByRef label As Object, Optional suit As Boolean)
    Static lab As Object: Static couleur As Long
    If Not lab Is Nothing Then lab.BackColor = couleur
    If suit Then
        Set lab = label: couleur = label.BackColor
        label.BackColor = vbRed
    End If
End Function

demo


maintenant tu sais quasiment tout

[eriiic]

Bonjour,

Par exemple, avec un événement Worksheet_SelectionChange est-il possible de changer la couleur de la ligne sélectionnée et restaurer la couleur originale en sélectionnant une autre ligne

Pour faire ça je met une MFC. Ca ne touche pas à l'existant et il suffit de la supprimer pour retrouver l'intégralité de toutes les mises en forme.
eric

[patricktoulon]

re
bonsoir eriic ca m'interesse une petite demo non?

[eriiic]

oui. Oh, rien de bien mystérieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Const num As Long = 1 ' n° de la MFC si plusieurs à gérer sinon utiliser =VRAI en formule
    suppMFC ActiveSheet, 1
    With Target.EntireRow
        .FormatConditions.Add Type:=xlExpression, Formula1:="=" & num & "=" & num
        .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .Color = 65535
        End With
        .FormatConditions(1).StopIfTrue = True
    End With
End Sub
 
Sub suppMFC(sh As Worksheet, num As Long)
    Dim fc As FormatCondition
    For Each fc In sh.Cells.FormatConditions
        If fc.Formula1 = "=" & num & "=" & num Then fc.Delete
    Next fc
End Sub

J'ai séparé sa suppression si on désire l'appeler d'ailleurs.
Note que je sors pas de la boucle.
Comme ça c'est auto-réparable si on a enregistré le fichier avec une de ces MFC. Quelque soit la plage où elle a été définie, sans avoir besoin de mémoriser quoique ce soit.

On peut aussi surligner plusieurs lignes avec une sélection multiple (shift-clic, Ctrl+clic ou cliqué-glissé souris)
Par contre, comme avec toute macro, on perd la possibilité d'annuler une action antérieure. Et comme elle est appelée à chaque sélection... Je ne sais pas si le demandeur en est conscient.
Il faudrait ajouter une activation avec un bouton bascule pour ne la mettre en route qu'au moment des contrôles par exemple (mis dans le fichier joint).
eric