Bonjour à tous !
J'ai un problème pour récupérer les données de deux editBox créées dans mon reuban Excel. J'ai suivit le tuto donné par le site mais çà se passe pas comme je voudrais : mes valeurs restent à 0...
Voici le code XML intéressant :
Code xml : 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
20
21
22
23
24 <group id="CreationEtiquettesNouveau" label="Nouveau tableau"> <box id="Box2" boxStyle="horizontal"> <box id="Box22" boxStyle="vertical"> <editBox id="editBox222" screentip="Indiquez ici la hateur que vous voulez donner aux cellules." sizeString="00000000" maxLength="8" onChange="RecupDonnee222" /> </box> <box id="Box23" boxStyle="vertical"> <editBox id="editBox232" screentip="Indiquez ici la largeur que vous voulez donner aux cellules." sizeString="00000000" maxLength="8" onChange="RecupDonnee232" /> </box> <box id="Box24" boxStyle="vertical"> <button id="BT242" label="Réinitialiser cellules" screentip="Réinitialiser cellules." onAction="Dimensionner" supertip="Permet de réinitialiser toutes les cellules aux dimensions données ci-contre" imageMso="StartAfterPrevious" /> </box> </box> </group>
Et le code VBA associé :
Je pense avoir rigoureusement fait la même chose que dans le tuto (cf. III-f-8) sauf que çà marche pas :-/
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
20
21
22
23 '1er module : Option Explicit Dim HC As Double Dim LC As Double 'On récupère la hauteur des cellules Sub RecupDonnee222(control As IRibbonControl, valeur As Double) HC = valeur End Sub 'On récupère la largeur des cellules Sub RecupDonnee232(control As IRibbonControl, valeur As Double) LC = valeur End Sub '2e module : Sub Dimensionner(control As IRibbonControl) Msgbox HC Msgbox LC End Sub
J'ai essayé en mettant les variables HC et LC en Public et aussi de mettre toutes les macros dans le même module (standard) mais rien à faire, je ne vois pas comment m'y prendre...
Quelqu'un aurait une solution svp?
Merci d'avance!
Partager