Bonjour,
Je teste les CommandBars visible à l'ouverture d'un classeur
Sub Menubars()
Dim n As CommandBar
x = 0
Set OU = Sheets("critères")
For Each n In Application.CommandBars
If n.Visible = True Then
OU.Cells(31 + x, 1) = n.Name
x = x + 1
End If
Next
End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars
Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB()
Dim Bar As String
For x = 0 To Sheets("critères").Range("c30")
Bar = Sheets("critères").Cells(31 + x, 1)
Application.CommandBars(Bar).Visible = False
Next
End Sub
Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué
Merci d'avance
--
Cordialement
jpmonnier-nospam@neuf.fr
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
Daniel.C
Bonsoir. Quelle est la valeur de la variable Bar au moment du plantage ? Cordialement. Daniel
Bonjour, Je teste les CommandBars visible à l'ouverture d'un classeur Sub Menubars() Dim n As CommandBar x = 0 Set OU = Sheets("critères") For Each n In Application.CommandBars If n.Visible = True Then OU.Cells(31 + x, 1) = n.Name x = x + 1 End If Next End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB() Dim Bar As String For x = 0 To Sheets("critères").Range("c30") Bar = Sheets("critères").Cells(31 + x, 1) Application.CommandBars(Bar).Visible = False Next End Sub Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué Merci d'avance
Bonsoir.
Quelle est la valeur de la variable Bar au moment du plantage ?
Cordialement.
Daniel
Bonjour,
Je teste les CommandBars visible à l'ouverture d'un classeur
Sub Menubars()
Dim n As CommandBar
x = 0
Set OU = Sheets("critères")
For Each n In Application.CommandBars
If n.Visible = True Then
OU.Cells(31 + x, 1) = n.Name
x = x + 1
End If
Next
End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars
Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB()
Dim Bar As String
For x = 0 To Sheets("critères").Range("c30")
Bar = Sheets("critères").Cells(31 + x, 1)
Application.CommandBars(Bar).Visible = False
Next
End Sub
Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué
Merci d'avance
Bonsoir. Quelle est la valeur de la variable Bar au moment du plantage ? Cordialement. Daniel
Bonjour, Je teste les CommandBars visible à l'ouverture d'un classeur Sub Menubars() Dim n As CommandBar x = 0 Set OU = Sheets("critères") For Each n In Application.CommandBars If n.Visible = True Then OU.Cells(31 + x, 1) = n.Name x = x + 1 End If Next End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB() Dim Bar As String For x = 0 To Sheets("critères").Range("c30") Bar = Sheets("critères").Cells(31 + x, 1) Application.CommandBars(Bar).Visible = False Next End Sub Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué Merci d'avance
JPMonnier
Merci Daniel de répondre à mon Pb Il plante sur Standard qui est bien actif De plus je ne plus plus ancrer la commandbar "Visual Basic" elle reste dans l'application ! Je ne trouve pas les propriétés pour qu'elle soit "Encrable" Seule cette commandbar est concernée Merci encore -- Cordialement
"Daniel.C" a écrit dans le message de news:%
Bonsoir. Quelle est la valeur de la variable Bar au moment du plantage ? Cordialement. Daniel
Bonjour, Je teste les CommandBars visible à l'ouverture d'un classeur Sub Menubars() Dim n As CommandBar x = 0 Set OU = Sheets("critères") For Each n In Application.CommandBars If n.Visible = True Then OU.Cells(31 + x, 1) = n.Name x = x + 1 End If Next End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB() Dim Bar As String For x = 0 To Sheets("critères").Range("c30") Bar = Sheets("critères").Cells(31 + x, 1) Application.CommandBars(Bar).Visible = False Next End Sub Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué Merci d'avance
Merci Daniel de répondre à mon Pb
Il plante sur Standard qui est bien actif
De plus je ne plus plus ancrer la commandbar "Visual Basic" elle reste dans
l'application !
Je ne trouve pas les propriétés pour qu'elle soit "Encrable"
Seule cette commandbar est concernée
Merci encore
--
Cordialement
jpmonnier-nospam@neuf.fr
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:%23a1yjASZJHA.684@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Quelle est la valeur de la variable Bar au moment du plantage ?
Cordialement.
Daniel
Bonjour,
Je teste les CommandBars visible à l'ouverture d'un classeur
Sub Menubars()
Dim n As CommandBar
x = 0
Set OU = Sheets("critères")
For Each n In Application.CommandBars
If n.Visible = True Then
OU.Cells(31 + x, 1) = n.Name
x = x + 1
End If
Next
End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars
Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB()
Dim Bar As String
For x = 0 To Sheets("critères").Range("c30")
Bar = Sheets("critères").Cells(31 + x, 1)
Application.CommandBars(Bar).Visible = False
Next
End Sub
Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué
Merci d'avance
Merci Daniel de répondre à mon Pb Il plante sur Standard qui est bien actif De plus je ne plus plus ancrer la commandbar "Visual Basic" elle reste dans l'application ! Je ne trouve pas les propriétés pour qu'elle soit "Encrable" Seule cette commandbar est concernée Merci encore -- Cordialement
"Daniel.C" a écrit dans le message de news:%
Bonsoir. Quelle est la valeur de la variable Bar au moment du plantage ? Cordialement. Daniel
Bonjour, Je teste les CommandBars visible à l'ouverture d'un classeur Sub Menubars() Dim n As CommandBar x = 0 Set OU = Sheets("critères") For Each n In Application.CommandBars If n.Visible = True Then OU.Cells(31 + x, 1) = n.Name x = x + 1 End If Next End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB() Dim Bar As String For x = 0 To Sheets("critères").Range("c30") Bar = Sheets("critères").Cells(31 + x, 1) Application.CommandBars(Bar).Visible = False Next End Sub Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué Merci d'avance
Daniel.C
Var = "Standard" Application.CommandBars(Var).Visible = False fonctionne chez moi (XL2003) Je regarde pour l'ancrage. Daniel
Merci Daniel de répondre à mon Pb Il plante sur Standard qui est bien actif De plus je ne plus plus ancrer la commandbar "Visual Basic" elle reste dans l'application ! Je ne trouve pas les propriétés pour qu'elle soit "Encrable" Seule cette commandbar est concernée Merci encore -- Cordialement
"Daniel.C" a écrit dans le message de news:%
Bonsoir. Quelle est la valeur de la variable Bar au moment du plantage ? Cordialement. Daniel
Bonjour, Je teste les CommandBars visible à l'ouverture d'un classeur Sub Menubars() Dim n As CommandBar x = 0 Set OU = Sheets("critères") For Each n In Application.CommandBars If n.Visible = True Then OU.Cells(31 + x, 1) = n.Name x = x + 1 End If Next End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB() Dim Bar As String For x = 0 To Sheets("critères").Range("c30") Bar = Sheets("critères").Cells(31 + x, 1) Application.CommandBars(Bar).Visible = False Next End Sub Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué Merci d'avance
Var = "Standard"
Application.CommandBars(Var).Visible = False
fonctionne chez moi (XL2003)
Je regarde pour l'ancrage.
Daniel
Merci Daniel de répondre à mon Pb
Il plante sur Standard qui est bien actif
De plus je ne plus plus ancrer la commandbar "Visual Basic" elle reste dans
l'application !
Je ne trouve pas les propriétés pour qu'elle soit "Encrable"
Seule cette commandbar est concernée
Merci encore
--
Cordialement
jpmonnier-nospam@neuf.fr
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:%23a1yjASZJHA.684@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Quelle est la valeur de la variable Bar au moment du plantage ?
Cordialement.
Daniel
Bonjour,
Je teste les CommandBars visible à l'ouverture d'un classeur
Sub Menubars()
Dim n As CommandBar
x = 0
Set OU = Sheets("critères")
For Each n In Application.CommandBars
If n.Visible = True Then
OU.Cells(31 + x, 1) = n.Name
x = x + 1
End If
Next
End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars
Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB()
Dim Bar As String
For x = 0 To Sheets("critères").Range("c30")
Bar = Sheets("critères").Cells(31 + x, 1)
Application.CommandBars(Bar).Visible = False
Next
End Sub
Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué
Merci d'avance
Var = "Standard" Application.CommandBars(Var).Visible = False fonctionne chez moi (XL2003) Je regarde pour l'ancrage. Daniel
Merci Daniel de répondre à mon Pb Il plante sur Standard qui est bien actif De plus je ne plus plus ancrer la commandbar "Visual Basic" elle reste dans l'application ! Je ne trouve pas les propriétés pour qu'elle soit "Encrable" Seule cette commandbar est concernée Merci encore -- Cordialement
"Daniel.C" a écrit dans le message de news:%
Bonsoir. Quelle est la valeur de la variable Bar au moment du plantage ? Cordialement. Daniel
Bonjour, Je teste les CommandBars visible à l'ouverture d'un classeur Sub Menubars() Dim n As CommandBar x = 0 Set OU = Sheets("critères") For Each n In Application.CommandBars If n.Visible = True Then OU.Cells(31 + x, 1) = n.Name x = x + 1 End If Next End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB() Dim Bar As String For x = 0 To Sheets("critères").Range("c30") Bar = Sheets("critères").Cells(31 + x, 1) Application.CommandBars(Bar).Visible = False Next End Sub Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué Merci d'avance
JPMonnier
Merci Daniel ça "refonctionne", par contre j'ai toujours mon pb d'ancrage avec "Visual Basic" et uniquement cette barre ! J'ai même réinstaller Excel et toujours pareil !! Nota : Dans Word, l'ancrage de "Visual Basic" fonctionne ! J'y perd mon latin -- Cordialement
"Daniel.C" a écrit dans le message de news:
Var = "Standard" Application.CommandBars(Var).Visible = False fonctionne chez moi (XL2003) Je regarde pour l'ancrage. Daniel
Merci Daniel de répondre à mon Pb Il plante sur Standard qui est bien actif De plus je ne plus plus ancrer la commandbar "Visual Basic" elle reste dans l'application ! Je ne trouve pas les propriétés pour qu'elle soit "Encrable" Seule cette commandbar est concernée Merci encore -- Cordialement
"Daniel.C" a écrit dans le message de news:%
Bonsoir. Quelle est la valeur de la variable Bar au moment du plantage ? Cordialement. Daniel
Bonjour, Je teste les CommandBars visible à l'ouverture d'un classeur Sub Menubars() Dim n As CommandBar x = 0 Set OU = Sheets("critères") For Each n In Application.CommandBars If n.Visible = True Then OU.Cells(31 + x, 1) = n.Name x = x + 1 End If Next End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB() Dim Bar As String For x = 0 To Sheets("critères").Range("c30") Bar = Sheets("critères").Cells(31 + x, 1) Application.CommandBars(Bar).Visible = False Next End Sub Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué Merci d'avance
Merci Daniel ça "refonctionne", par contre j'ai toujours mon pb d'ancrage
avec "Visual Basic" et uniquement cette barre !
J'ai même réinstaller Excel et toujours pareil !!
Nota : Dans Word, l'ancrage de "Visual Basic" fonctionne !
J'y perd mon latin
--
Cordialement
jpmonnier-nospam@neuf.fr
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OxbzpdTZJHA.4456@TK2MSFTNGP04.phx.gbl...
Var = "Standard"
Application.CommandBars(Var).Visible = False
fonctionne chez moi (XL2003)
Je regarde pour l'ancrage.
Daniel
Merci Daniel de répondre à mon Pb
Il plante sur Standard qui est bien actif
De plus je ne plus plus ancrer la commandbar "Visual Basic" elle reste
dans l'application !
Je ne trouve pas les propriétés pour qu'elle soit "Encrable"
Seule cette commandbar est concernée
Merci encore
--
Cordialement
jpmonnier-nospam@neuf.fr
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:%23a1yjASZJHA.684@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Quelle est la valeur de la variable Bar au moment du plantage ?
Cordialement.
Daniel
Bonjour,
Je teste les CommandBars visible à l'ouverture d'un classeur
Sub Menubars()
Dim n As CommandBar
x = 0
Set OU = Sheets("critères")
For Each n In Application.CommandBars
If n.Visible = True Then
OU.Cells(31 + x, 1) = n.Name
x = x + 1
End If
Next
End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars
Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB()
Dim Bar As String
For x = 0 To Sheets("critères").Range("c30")
Bar = Sheets("critères").Cells(31 + x, 1)
Application.CommandBars(Bar).Visible = False
Next
End Sub
Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué
Merci d'avance
Merci Daniel ça "refonctionne", par contre j'ai toujours mon pb d'ancrage avec "Visual Basic" et uniquement cette barre ! J'ai même réinstaller Excel et toujours pareil !! Nota : Dans Word, l'ancrage de "Visual Basic" fonctionne ! J'y perd mon latin -- Cordialement
"Daniel.C" a écrit dans le message de news:
Var = "Standard" Application.CommandBars(Var).Visible = False fonctionne chez moi (XL2003) Je regarde pour l'ancrage. Daniel
Merci Daniel de répondre à mon Pb Il plante sur Standard qui est bien actif De plus je ne plus plus ancrer la commandbar "Visual Basic" elle reste dans l'application ! Je ne trouve pas les propriétés pour qu'elle soit "Encrable" Seule cette commandbar est concernée Merci encore -- Cordialement
"Daniel.C" a écrit dans le message de news:%
Bonsoir. Quelle est la valeur de la variable Bar au moment du plantage ? Cordialement. Daniel
Bonjour, Je teste les CommandBars visible à l'ouverture d'un classeur Sub Menubars() Dim n As CommandBar x = 0 Set OU = Sheets("critères") For Each n In Application.CommandBars If n.Visible = True Then OU.Cells(31 + x, 1) = n.Name x = x + 1 End If Next End Sub
Tout va bien
Ensuite je veux cacher ces CommandBars Est-il possible d'exécuter cette commande avec une variable
Sub MasquerCDB() Dim Bar As String For x = 0 To Sheets("critères").Range("c30") Bar = Sheets("critères").Cells(31 + x, 1) Application.CommandBars(Bar).Visible = False Next End Sub Msg d'erreur : La méthode 'Visible' de l'objet 'Commanbars' à échoué Merci d'avance