Discussion :

[kingman29]

Bonjour
j'ai créer un group dans Ribbon a partir Office CustomUI, est la forme XML est comme suiite

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
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
	<ribbon startFromScratch="false">
		<tabs>
			<tab id="customTab" label="RA1Z">
	<group id="conexion" label="Login">
<button id="connexion1" label="Login" size="large" onAction="login" image="login" /></group>
 
<group id="chiffredaffaire" label="Chiffre d'Affaire">
<button id="chiffredaffaire01" label="Chiffre d'Affaire" size="large" onAction="ca01" image="Chiffredaffaire" getVisible="Ifsheetshow" />
 
</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

et le code VBA est :

Code :

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

1
2
3
Sub Ifsheetsshow(control As IRibbonControl)
returnedVal = Worksheets("Feuil1") = visible
End Sub

mais le problème le groupe dans Ribbon n'a jamais apparaître
alors ma question qu'elle est le code VBA pour afficher le groupe "Chiffre d'Affaire" du Ribbon ?

[Jean-Philippe André]

Salut,

sans garantie que cela résolve tous les problèmes, la syntaxe que tu cherches ici serait celle-ci :

Code :

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

1
2
3
Sub Ifsheetsshow(control As IRibbonControl)
returnedVal = Worksheets("Feuil1").Visible = xlSheetvisible
End Sub

[kingman29]

un message d'erreur :

Nombre d'arguments incorrect ou affectation de propriété incorrecte

[Jean-Philippe André]

il faut ajouter ton ByRef returnedVal dans tes parametres

[kingman29]

il faut ajouter ton ByRef returnedVal dans tes parametres

j'ai rattaché le fichier dans ce sujet
j'ai une autre erreur (bug)

les utilisateur
admin
P123

***************
user1
M123
merci de trouvez la sollution
cordialement

[galopin01]

Bonjour,
Hum... j'ai fait "à ma sauce" hein !

A+

[kingman29]

Bonjour,
Hum... j'ai fait "à ma sauce" hein !

A+

Franchement, c'est impicable votre sollution, je vais l'utiliser dans un autre stade
--
Si vous me donne un autre 'sauce', je veux aprés la Feuille 'Chiffre d'Affaire est visible; "groupe2" apparaite sans doute. meme si j'ai clique pas sur la feuille "Chiffre d'Affaires

Merci
Cordialement;

[galopin01]

Je ne comprend pas vraiment la question !
Si vous voulez que le groupe soit toujours visible, remplacez par :

Code :

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

returnedVal = Worksheets("Chiffre d'Affaire").Visible = True

A+

[kingman29]

Je ne comprend pas vraiment la question !
Si vous voulez que le groupe soit toujours visible, remplacez par :

Code :

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

returnedVal = Worksheets("Chiffre d'Affaire").Visible = True

A+

ce que je veux le group02 dans le custom ribbon est visible si la feuille "Chiffre d'Affaire" est visible
si la feuille "Chiffre d'Affaire" soit invisible, le group02 in invisible aussi

[Pierre Fauconnier]

Salut.

Pour réaliser cela, tu dois accompagner le code qui affiche/masque la feuille d'un Ribbon.Invalidate.

Je note cependant que dans ton code, ce n'est pas le groupe qui possède la propriété GetVisible, mais un bouton...

[kingman29]

Salut.

Pour réaliser cela, tu dois accompagner le code qui affiche/masque la feuille d'un Ribbon.Invalidate.

Je note cependant que dans ton code, ce n'est pas le groupe qui possède la propriété GetVisible, mais un bouton...

Merci beaucoup de votre réponse, pouvez vous me donner un coup de main, et dite moi le code exacte, parce que je suis débutant dans ce domaine.
et je veux masqué le bouton, et prochainement un groupe, selon le cas


Cordialement

[kingman29]

j'ai trouvé une autre solution,
c'est de supprimer getVisible, puis
ajouter ce code pour le bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub saisieca01(control As IRibbonControl)
On Error Resume Next
Dim Rp01
Rp01 = Application.WorksheetFunction.VLookup(Range("username"), Range("Tableau1"), 5, 0)
If Rp01 = "" Then
MsgBox "Vous n'etes pas autorisés à effectuer cette tâche", vbOKCancel + vbOKCancel
End If
 
If Rp01 = "oui" Then
SaisieCA.Show
End If
 
End Sub