Discussion :

[Newworld92]

Bonjour,

Je vais essayer de décrire précisément mon besoin mais n'hésitez pas à me demander plus de détails.

J'ai un fichier Excel avec 2 feuilles.
Dans la 1ière feuille, un bouton me permet de basculer dans la 2ième feuille.

Cette 2ième feuille contient un contrôle ActiveX de type Microsoft Forms 2.0 Frame.
A l'intérieur de cette Frame se trouvent des contrôles de type OptionButton.

Je cherche à activer l'OptionButton de ma Frame qui porte le nom correspondant au contenu d'une variable globale que j'ai renseignée dans la 1ière feuille. Ce, dès l'ouverture automatique de la 2ième feuille.

Pour ce faire, je suppose que je dois coder dans la procédure Private Sub Worksheet_Activate() (de ma 2ième feuille) un événement consistant à cliquer sur l'OptionButton (de ma Frame) qui m'intéresse.

Je suppose qu'il va falloir faire appel à .OLEObjects mais je suis complètement perdu.

Je ne sais pas si c'est très clair.

Merci d'avance pour votre aide.

Cdt.

[XLRATOR]

Bonsoir,
Il suffit seulement de jouer sur la valeur de l'une des cellules liées de vos contrôles OptionButton (True ou False) c.à.d les cellules que vous auriez spécifié dans la propriété LinkedCell des boutons d'Options.

Bien cordialement.

[Newworld92]

Merci MXLRATOR pour votre réponse.

J'ai peur que ce soit plus compliqué ou bien je n'ai pas bien compris.

J'ai appris via un autre de mes posts à balayer les contrôles ActiveX de type OptionButton que j'avais directement implantés sur ma feuille Excel avec la boucle suivante :

Code :

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

1
2
3
4
5
6
7
    With ActiveSheet
         For i = 1 To 36
            If .OLEObjects(i).progID = "Forms.OptionButton.1" And .OLEObjects(i).Name <> "OptionButton" & i Then
                .OLEObjects(i).Object.Value = False
            End If
        Next
    End With

Est-ce que, de façon similaire, ma Frame (Microsoft Forms 2.0) satisfait la condition .OLEObjects(i).progID = "Forms.Frame.1" ?

Autre question...
Les OptionButton qui m'intéressent sont implantés dans ma Frame.
C'es-à-dire que je me suis mis en mode Création dans ma feuille Excel puis j'ai cliqué droit sur ma Frame et ai choisi Objet Cadre => Edition.
Là j'ai de nouveau cliqué droit sur ma Frame et ai choisi Boîte à outils où j'ai pioché l'objet Bouton d'option en plusieurs exemplaires.

Je cherche donc à manipuler les boutons d'option qui se trouvent dans ma Frame.

Dans quel événement puis-je atteindre ces boutons d'option et avec quelle syntaxe (pour par exemple activer l'un d'eux précisément d'après son nom) ?

Merci d'avance pour votre aide.

Cdt.

[clementmarcotte]

Bonjour,

Bonjour,

Dans la 1ière feuille, un bouton me permet de basculer dans la 2ième feuille.

Pourquoi un bouton ? Un clic sur le nom de la feuille fait très bien la job ?

Cette 2ième feuille contient un contrôle ActiveX de type Microsoft Forms 2.0 Frame.
A l'intérieur de cette Frame se trouvent des contrôles de type OptionButton.


Cdt.

Pourquoi sur une feuille et pas sur un UserForm ?

Si c'est juste parce l'UserForm ouvert empêche de travailler sur la feuille; tu peux tout simplement l'ouvrir en mode non-modal, en utilisant le paramètre VBmodeless.

[unparia]

Si (et seulement si) un contrôle nommé "le_contrôle" a bien été placé DANS le Frame nommé Frame1, on s'y réfère de deux manières possibles :
1) la plus orthodoxe explicite la collection utilisée :

Code :

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

Frame1.controls("le_contrôle")

2) celle que je n'aime pas et qui n'est qu'une "bonté" de VBA :

Code :

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

Frame1("le_contrôle")

[Newworld92]

Merci beaucoup unparia.
La 1ière option fonctionne parfaitement.

Pourrais-tu préciser comment je rends dynamique la syntaxe, stp ?

Je veux dire que je voudrais ne pas mettre en dur le nom du contrôle mais utiliser le contenu d'une variable.

J'ai essayé Frame1.controls( & MaVariable) mais VB n'aime pas du tout.

Merci d'avance.

Cdt.

[unparia]

Oh !
Bon ... (mais, là ...)
Soit la_variable la variable en cause
l

Code :

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

1
2
la_variable = "nom_du_contrôle"
Frame1.Controls(la_variable) ' se réfère au contrôle en cause

Je crains que tu ne confondes ce forum avec un apprentissage pas à pas ...

[Newworld92]

Merci Clément pour tes réponses (la 1ière m'a bien amusée).

Effectivement le clic sur la feuille 2 est plus simple mais c'était juste pour illustrer le contexte.
En réalité ma feuille 1 contient 12 boutons (1 par mois de l'année).
Chaque bouton renvoie à une feuille qui correspond au dernier jour du mois qui précède le mois cliqué.
Exemple : pour 2016, je clique sur le bouton Avril de la Feuille 1, je bascule sur la feuille Jeudi de mon fichier parce que le dernier jour du mois de mars est un jeudi.
Comme tu l'auras compris, j'ai 12 boutons qui renvoient vers 7 feuilles possibles (les 7 jours de la semaine).

Pour la 2ième remarque, je la garde dans un coin de ma tête.
Disons que pour une V2, cela sera une très bonne idée mais pour autre chose que la Frame qui m'intéresse actuellement.
Je garderai l'idée pour développer un cockpit (celui des boutons des 12 mois, ma Feuille 1 donc). Comme ça, j'aurai une fenêtre ouverte constamment pour jongler avec les mois sans devoir revenir à ma Feuille 1.

Encore merci à toi.

[Newworld92]

MERCI unparia.

Il faudra que j'éclaircisse quand est-ce qu'on utilise & pour une variable et quand est-ce qu'on peut s'en passer.
Si tu as la réponse, ça m'intéresse.

En tout cas, merci car ta réponse m'est très utile.