Discussion :

[DenisHen]

Bonjour à tous,

J'ai le même problème qu'ici :

http://www.developpez.net/forums/d13...texte-editbox/

erreur d'exécution '91' :
variable objet ou variable de bloc with non définie

Et je n'arrive pas à y remédier...

Si quelqu'un a une astuce ou un conseil...

Denis...

[SfJ5Rpw8]

Bonjour,

montre nous entre balises de code [code] [/code] la partie de ton code concerné ... et dis en nous plus sur le contexte..

[DenisHen]

Bonjour bbil,

Au temps pour moi, c'est un oubli...

Alors voici mon code XML :

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
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="InitialMacro">
	<ribbon startFromScratch="false">
		<tabs>
			<tab id="tab1" label="Test" >
				<group id="GR01" label="Essai de checkbox">
					<checkBox id="CheckBox01"
						label="Option"  
						onAction="Validation" />
					<box id="Box01" boxStyle="horizontal">
						<editBox id="editBox01"
							label="Saisissez le code :"
							onChange="RecupDonnee"
							getText="MacroGetText" />
					</box>
				</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

Et mon code VBA :

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
24
25
Option Explicit
 
Public Cible As String
Public MonRuban As IRibbonUI
 
'Callback for customUI.onLoad
Sub InitialMacro(ribbon As IRibbonUI)
    Set MonRuban = ribbon
End Sub
 
'Callback for CheckBox01 onAction
Sub Validation(control As IRibbonControl, pressed As Boolean)
  If Cible = "FALSE" Then
    Cible = "TRUE"
  Else
    Cible = "FALSE"
  End If
  MonRuban.InvalidateControl ("editBox01")
 
  End Sub
 
'Callback for editBox01 getText
Sub MacroGetText(control As IRibbonControl, ByRef returnedVal)
  returnedVal = Cible
End Sub

En fait, c'est juste un test, j'aimerai remplir un editbox depuis VBA...

Denis...

[SfJ5Rpw8]

et sur qu'elle ligne l'erreur ?

[DenisHen]

Code :

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

"MonRuban.InvalidateControl ("editBox01")"

J'ai beau consulter l'aide en ligne, il sont super avares sur les descriptions et les exemples...

[SfJ5Rpw8]

J'ai créé un classeur avec ton XML et ton code VBA , sans rien changer et cela fonctionne... sous EXCEL 2010 32bits