barre d'outils et macro

[jopont]

Bonjour
Dans cette macro comment faire pour que la barre d'outil s'ouvre uniquement pour un classeur ?
D'autre part comment faire pour que la macro s'applique à d'autre onglet du classeur et pas uniquement la zone [planning]
Merci
Sub auto_open()
On Error Resume Next
CommandBars.Add ("BarreColoriage")
CommandBars("BarreColoriage").Visible = True
For i = 1 To [couleurs].Count
Set bouton = CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Tag = i
bouton.OnAction = "'Coloriage """ & bouton.Tag & """'"
bouton.Caption = Range("couleurs")(i)
Next i
End Sub
Sub Coloriage(p)
For Each C In Selection
If Not Intersect([planning], C) Is Nothing Then
C.Value = Range("couleurs")(p).Value
C.Interior.ColorIndex = Range("couleurs")(p).Interior.ColorIndex
'Range("couleurs")(p).Copy C
End If
Next C
End Sub

Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreColoriage").Delete
End Sub

 

[Cousinhub]

Re : barre d'outils et macro

Bonjour, rajoute ces deux codes dans l'évènement du classeur :

Private Sub Workbook_Activate()
CommandBars("BarreColoriage").Visible = True
End Sub

Private Sub Workbook_Deactivate()
CommandBars("BarreColoriage").Visible = False
End Sub

pour la deuxième, mets un quote (') devant :

[COLOR="Red"]'[/COLOR] If Not Intersect([planning], C) Is Nothing Then

et devant :

[COLOR="Red"]'[/COLOR] End If

Cependant, cela va colorier toute ta sélection dès que tu appuies sur le bouton, il n'y a plus de limites d'utilisation

 

[jopont]

Re : barre d'outils et macro

Merci pour la première question.
Seulement pour la deuxième ça veut dire que la commande est disponible pour toutes les cellules de toutes les feuilles ?

 

[Cousinhub]

Re : barre d'outils et macro

Re-,
oui, normalement

 

[jopont]

Re : barre d'outils et macro

Merci il n'y a pas moyen de le faire activer pour plusieurs pages nommées dans plusieurs feuilles.
D'autre part pour dessiner la barre il faut aller dans quoi dans excel 2007 ?
merci

 

[jopont]

Re : barre d'outils et macro

Pourquoi ce code rentre dans un module ?