Stocker une variable lors de l'appel d'une commande ActiveX

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

Citation:

---

Envoyé par Orbeaman

---

Bonjour,

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

Citation:

---

Envoyé par Orbeaman

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 )

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 ?

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:

---

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

---

Pièce jointe 422418

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.

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:

---

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:

---

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

Pièce jointe 422420
maintenant tu sais quasiment tout ;)

Bonjour,

Citation:

---

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

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

oui. Oh, rien de bien mystérieux :

Code:

---

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