Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour
Sub test() Dim Cb As CommandBar For Each Cb In CommandBars If Cb.Name = "LeNomDeLaBarre" Then MsgBox "La barre d'outil ""LeNomDeLaBarre"" existe" Next End Sub
Bon courage
Eric
-----Message d'origine----- resalut,
comment faire pour savoir si une barre d'outils existe déja en connaissant seulement son nom ? .
Bonjour
Sub test()
Dim Cb As CommandBar
For Each Cb In CommandBars
If Cb.Name = "LeNomDeLaBarre" Then MsgBox "La barre
d'outil ""LeNomDeLaBarre"" existe"
Next
End Sub
Bon courage
Eric
-----Message d'origine-----
resalut,
comment faire pour savoir si une barre d'outils existe
déja en connaissant seulement son nom ?
.
Sub test() Dim Cb As CommandBar For Each Cb In CommandBars If Cb.Name = "LeNomDeLaBarre" Then MsgBox "La barre d'outil ""LeNomDeLaBarre"" existe" Next End Sub
Bon courage
Eric
-----Message d'origine----- resalut,
comment faire pour savoir si une barre d'outils existe déja en connaissant seulement son nom ? .
Alain CROS
Bonjour.
Un petite fonction.
Function CommandBarExist(MaBarreName As String) As Boolean Dim CB As CommandBar On Error Resume Next Set CB = CommandBars(MaBarreName) CommandBarExist = Not CB Is Nothing Set CB = Nothing End Function
Alain CROS.
"ced" a écrit dans le message de news: 07c401c352a1$02de6f10$ resalut,
comment faire pour savoir si une barre d'outils existe déja en connaissant seulement son nom ?
Bonjour.
Un petite fonction.
Function CommandBarExist(MaBarreName As String) As Boolean
Dim CB As CommandBar
On Error Resume Next
Set CB = CommandBars(MaBarreName)
CommandBarExist = Not CB Is Nothing
Set CB = Nothing
End Function
Alain CROS.
"ced" <cmarmonier@ifotec.com> a écrit dans le message de news: 07c401c352a1$02de6f10$a601280a@phx.gbl...
resalut,
comment faire pour savoir si une barre d'outils existe
déja en connaissant seulement son nom ?
Function CommandBarExist(MaBarreName As String) As Boolean Dim CB As CommandBar On Error Resume Next Set CB = CommandBars(MaBarreName) CommandBarExist = Not CB Is Nothing Set CB = Nothing End Function
Alain CROS.
"ced" a écrit dans le message de news: 07c401c352a1$02de6f10$ resalut,
comment faire pour savoir si une barre d'outils existe déja en connaissant seulement son nom ?
