Discussion :

[DenisHen]

Bonjour au Forum,

Voilà, J'ai personnalisé mon ruban Excel, J'ai un comboBox ("GeoAfc") contenant déjà des données (5 lignes).

J'aimerais, lorsque je lance une autre commande, désélectionner les item de ce comboBox. Je suppose qu'il faut mettre la ListIndex = -1.

Mais je ne sais pas comment intervenir dans le ruban depuis VBA...

J'ai chercher plusieurs heures (j'ai d'ailleurs amélioré mon ruban grace à ces recherches) dans divers forum et divers Tutos mais je n'ai rien trouvé...

Merci pour votre aide...

Et bon week-end à tous

[DenisHen]

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

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

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...