[XL-2013] Sélection ListIndex=-1 dans un comboBox du ruban

Bonjour au Forum,

N'ayant pas de réponse, j'en déduis que je n'étais pas très clair...

Voici mon Code XML

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
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
	<ribbon startFromScratch="false">
		<tabs>
			<tab id="customTab" label="Carto 200" >
				<group id="Geo" label="Géographie" >
					<comboBox id="GeograAfc" label="Alsace Franche conté" onChange="GeoAfc" sizeString="###########################" >
					<item id="Afc1" label="Lot 4" />
					<item id="Afc2" label="Lot 9" />
					<item id="Afc3" label="Lot 10" />
					<item id="Afc4" label="Lot 14" />
					<item id="Afc5" label="Lot 19" />
					<item id="Afc6" label="Lot inconnu" />
					</comboBox>
					<comboBox id="GeograNancy" label="Nancy" onChange="GeoNancy" sizeString="###########################" >
					<item id="Nancy1" label="Bar le Duc" />
					<item id="Nancy2" label="Bar le Duc - Commercy" />
					<item id="Nancy3" label="Bar le Duc - Verdun" />
...........................................................
					</comboBox>
				</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

Et mon Code VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
'Callback for GeograAfc onChange
Sub GeoAfc(control As IRibbonControl, text As String)
  If text = "" Then Exit Sub
  Sheets("Saisie").Select
  Range("SaisieRegion").Value = "ALSACE - FRANCHE CONTÉ"
  Range("SaisieSecteur").Value = text
    EffaceSaisie
  ActiveSheet.Range("SaisieCRN").Value = ""
  LireBase
  AfficheTableauSaisie
'Mettre ici le code qui permettrai de désélectionner le ListIndex de ce comboBox #####################
End Sub

Le truc, c'est que lorsque je modifie ma cellule "SaisieCRN", j'aimerai que le comboBox "GeograAfc" désélectionne som item courant... Donc, ListIndex=-1

Mon problème est que je ne sais pas agir dans le ruban depuis VBA...

Il devrait il y avoir un "controle.ID" quelquepart pour fixer ListIndex=-1 dans le comboBox "GeograAfc"...

Merci pour votre aide éventuelle...

A toutes fins utiles, je joint mon XLSM...

Denis...