Discussion :

[Octave Le lorrain]

Bonjour
Quelqu'un saurait pourquoi ce code ne fonctionne pas ? (Masquer ou rendre visible le ruban, alternativement) - D'avance un big merci ;-) Cordialement les bienfaiteurs !

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
Private Sub Commande0_Click()
Dim blnRibbon As Boolean
 
If blnRibbon = True Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
blnRibbon = False
 
Else
DoCmd.ShowToolbar "Ribbon", acToolbarYes
blnRibbon = True
 
End If
 
 
End Sub

Merci par avance

[Jean-Philippe André]

Bonjour,

tu utilises une variable blnRibbon, qui est declaree mais jamais initialisee a l'interieur du code =]

Il faut donc
- soit le declarer en dehors de l'evenement
Je te recommande donc les lignes suivantes

Code :

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

1
2
3
4
5
 
Dim blnRibbon As Boolean
Private Sub Commande0_Click()
If blnRibbon = True Then
...

- soit passer par un bouton a bascule au lieu du bouton et d'utiliser sa valeur

Code :

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

1
2
3
4
 
Private Sub CommandeaBascule_Click()
If CommandeaBascule.Value = True Then
...

[Octave Le lorrain]

Que serait le monde sans l'entraide !

[Octave Le lorrain]

Merci pour la solu 2 du bouton bascule qui est élégante et que j'ai réussi à mettre en oeuvre..

En revanche, j'ai pas su appliquer la solu 1 c-'à-d : déclarer la variable au "dessus" de la procédure ou "hors" ... Probablement une histoire de "portée" que je maitrise pas encore bien (?)...Une ligne continue se génère pour séparer les procédures....et donc même message d'erreur qu'avant mon premier post ....
La réponse est sûrement dans les FAQ et quelque part sur le forum je cherche, mais un indice serait le bienvenu

J'ai des lacunes que je vais peut-être combler

PS : j'ai commandé votre ouvrage VBA chez ENI ;-) ça devrait aller mieux

Octave

Correctif last minute : A priori c'est OK...

[Jean-Philippe André]

Ravi de l'apprendre