Re : Macros + Barre d'outils
Bonjour Guilee, Toutchoco et le forum
j`ai une autre solution - que j`avais peche sur le forum. Merci le Forum
Ca cree ds la barre d`outil un bouton en automatique ( a l`ouverture du file) et ds ce bouton tu peux integrer des sous titres
Par exemple tu l`appelle "MACRO" (nom visible ds barre taches) et ensuite tu mes des sous noms "Guilee/ Toutchoco..."
Bon j`espere que ca t`aide. Je n`ai pas l` ADSL chez moi -c`est en cours - donc t`inquite pas si je te rpeonds pas d`ici demain au cas ou t`as des questions. J`essaierai de te mettre un exemple demain
A+
VBA _DEAD
Alt + f11
A COLLER DS TON FILE EXCEL
Option Explicit
Private Sub Workbook_Open()
Créer_Menu
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Effacer_Menu
End Sub
A COLLER DS UN MODULE
Function Créer_Menu()
For Z = 1 To CommandBars(1).Controls.Count
If CommandBars(1).Controls(Z).Caption = "Transfert" Then Exit Function
Next
With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
.Caption = "Transfert"
With .Controls.Add(msoControlPopup)
.Caption = "Sélection"
With .Controls.Add(msoControlButton)
.Caption = "Envoie des Infos Saisies"
.OnAction = "DONNEES" 'entre les guillemets : nom de votre procédure
End With
With .Controls.Add(msoControlButton)
.Caption = "xxxxx"
.OnAction = "xxxxxxx" 'entre les guillemets : nom de votre procédure
End With
End With
End With
MsgBox "Veuillez lancer le Transfert dans la barre de Menu.", vbInformation, "Transfert"
End Function