Commandbar

Le
JPMonnier
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18209871
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
Le #18210611
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" 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
Le #18211011
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" 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
Le #18211141
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" 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" 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












Publicité
Poster une réponse
Anonyme