Ruban Excel, récupérer données de plusieurs editBox

Version imprimable

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:

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é :

Code:

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

Je pense avoir rigoureusement fait la même chose que dans le tuto (cf. III-f-8) sauf que çà marche pas :-/
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!

25/02/2014, 14h50
Phil'oche

Pas tout à fait la même chose que je vois dans le tuto...

Et si tu essayes de passer ton argument "valeur" en String au lieu de Double, puis de faire un HC = Cdbl(valeur), ça change quelque chose ?
25/02/2014, 15h19
Symone

Salut,

Merci de te pencher sur mon cas mais... Fausse piste!

Je n'ai pas de message d'erreur au lancement de ma macro et lorsque je met un point d’arrêt sur RecupDonnee222, je vois bien que HC prend la valeur souhaitée. Seulement, quand je met un point d'arrêt sur Dimensionner, je remarque que HC est vide...

C'est pour çà que j'ai essayé de déclarer mes variables en 'Public' mais çà ne suffit pas...

Ce qui pourrait marcher, c'est d'appeler RecupDonnee222 dans la macro Dimensionner! Mais je ne vois pas comment faire, à cause du control As IRibbonControl j'ai un jolis message d'erreur Argument is not optional et je ne vois pas quoi répondre à çà...
25/02/2014, 15h45
Phil'oche

Re !

Bon, je viens de reprendre ton exemple complet, et j'ai fait à l'identique, si ce n'est que les 3 sub RecupDonnee222, RecupDonnee232 et Dimensionner ainsi que la déclaration de HC et LC sont dans le même module... et tout fonctionne correctement ! 8O

Re!

C'est exacte çà marche aussi pour moi... 8O

Par contre, j'ai eu à stopper une macro et depuis, çà ne marche plus : il faut que je re-rentre les valeurs dans les editBox!
Ducoup çà serait quand même bien de pouvoir appeler RecupDonnee222 dans une macro ^^

En attendant, je vais voir comment actualiser mon editBox... ;)

merci encore!

Re-bonjour,

J'ai deux petites questions:

Citation:

Est-il possible d'avoir les editBox du ruban renseignées à l'ouverture du classeur?

Je n'ai trouvé aucun attribut pour renseigner une valeur par défaut dans le tuto

Citation:

Est-il possible de renseigner ces editBox par macro?

Le chapitre V du tuto pour actualiser les controls ne marche que si on n'a pas arreté VBA en appuyant sur le bouton stop ; donc, çà ne m'aide pas!
En revanche j'ai trouvé sur un forum comment appeler une fonction du ruban :
Code:

1 2 3 4 Sub AppelerMacro() Dim ctrl As IRibbonControl Call Dimensionner(ctrl) End Sub
C'est utile mais je suis pas plus avancé pour rafraîchir mes petites editBox : j'ai besoin, pour appeler RecupDonnee222, de renseigner un deuxième argument qui est celui que je veux obtenir : HC (ou valeur)...
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub AppelerMacro() Dim ctrl As IRibbonControl Dim Val As Double Call RecupDonnee222(ctrl, Val) End Sub Sub RecupDonnee222(control As IRibbonControl, Valeur As Double) HC = Replace(Valeur, ".", ",") 'ici "Valeur" ne vaut pas le champs renseigné mais vaut "Val", c'est à dire : rien 'Idem pour HC End Sub
Ducoup je suis coincé :(

Merci pour les rep!

26/02/2014, 11h49
SfJ5Rpw8
Bonjour,
Citation:
Envoyé par Symone

...
En revanche j'ai trouvé sur un forum comment appeler une fonction du ruban :

Code:

1 2 3 4 Sub AppelerMacro() Dim ctrl As IRibbonControl Call Dimensionner(ctrl) End Sub

C'est utile mais je suis pas plus avancé pour rafraîchir mes petites editBox : j'ai besoin, pour appeler RecupDonnee222, de renseigner un deuxième argument qui est celui que je veux obtenir : HC (ou valeur)...
...
oui mais il est sur que cela ne t'apporte pas grand chose car Ctrl n'est pas initialisé ... et donc si ta procédure Dimensionner fonctionne c'est juste parce qu'elle n’interagit pas avec ton ruban..

La question que tu devrais te poser est pourquoi utilise tu le "STOP" VBA qui ré-initialise toutes les variables ?

Pour tes variables HC et LC , tu pourrai stocker par exemple leur valeurs dans une cellule d'une tes feuilles de calculs ce qui t'éviterais de perdre sur un "STOP" Vba...

Bonjour,

Le "STOP" est parce que mon fichier est en chantier et qu'il m'arrive (souvent) de tomber sur des messages d'erreur et d’arrêter la macro pour faire d'autres tests parallèles...

Citation:

si ta procédure Dimensionner fonctionne c'est juste parce qu'elle n’interagit pas avec ton ruban..

Exact ; la procédure Dimensionner ne fait qu'utiliser les variables HC et LC... Question interaction, je souhaite justement pouvoir renseigner mes editBox par macro :) Vous connaissez d'autres tutoriels intéressants à ce sujet? Je trouve la liste eds attributs fournie un peu légère et j'espère pouvoir en trouver plus...

Citation:

Pour tes variables HC et LC , tu pourrai stocker par exemple leur valeurs dans une cellule d'une tes feuilles de calculs ce qui t'éviterais de perdre sur un "STOP" Vba...

C'est une bonne idée, je pense faire comme çà si je n'arrive pas à faire autrement...

Merci! :D

Trouvé!

Pour remplir mes editBox à l'ouverture du classeur :
Code XML:
Code:

1 2 3 4 5 6 <editBox id="editBox222" screentip="Indiquez ici la hateur que vous voulez donner aux cellules." sizeString="00000000" maxLength="8" onChange="RecupDonnee222" getText="GetEditBox222Text" />
Code VBA :
Code:

1 2 3 4 5 6 7 8 9 '1erModule Sub GetEditBox222Text(control As IRibbonControl, ByRef valeur2) Dim tampon$ tampon = Sheets("Commandes").Cells(10, 2).Formula valeur2 = tampon End Sub
Et pour m'éviter mes nombreux "STOP" de VBA, je suis passé par une cellule comme mémoire tampohn :)

Code VBA adapté :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 '2e Module Sub RecupDonnee222(control As IRibbonControl, valeur As String) HC = Replace(valeur, ".", ",") HC = 1 * HC 'petite méthode pour passer de String à Double Sheets("Commandes").Cells(10, 2).Formula = HC End Sub '3e module Sub Dimensionner(control As IRibbonControl) HC = Sheets("Commandes").Cells(10, 2).Formula Msgbox HC End Sub
J'aurais pu éviter l'empoi de HC à chaque fois mais je suis fainéant, je voulais pas tout changer =)

PS : un lien intéressant pour compléter le tuto de developpez.com

Merci à bbil et à Phil'oche pour leur coup de pouce!