Bonjour à tous
Quelqu'un pourrait-il me dire où je peux trouver les détails du
fonctionnement de la propriété Application.caller lorque l'appel ne
provient
pas d'une fonction personnalisée utilisée dans une cellule de feuille de
calcul ?
Explications :
1) L'aide en ligne ne donne d'informations que pour les appels à partir de
fonctions personnalisées.
2) Certains de mes fichiers contiennent de nombreux onglets. Je n'utilise
souvent qu'un petit nombre d'entre eux, et pour facilier le navigation
entre
les onglets, je masque ceux qui ne m'intéressent pas. J'utilise pour cela
la
fenêtre propriété de VBA, mais cette solution ne me satisfait pas.
J'envisage d'inclure dans le menu "Affichage", une commande "Onglets" qui
déclencherait un menu déroulant de commutateurs nommés comme les onglets
du
fichier. L'utilisation serait strictement la même que celle de la commande
"Barre d'outils" qui permet d'afficher ou de masquer les barres d'outils.
Tous ces commutateurs déclencheraient l'exécution d'une même macro. Je
sais
que la fonction Application.caller permet de récupérer des informations
sur
la manière dont ladite macro aurait été lancée, et donc de retrouver le
commutateur, et par là, le nom de l'onglet à afficher ou à masquer, mais
ces
informations ne sont absolument pas commentées dans l'aide en ligne.
D'avance, merci
AP
Bonjour à tous
Quelqu'un pourrait-il me dire où je peux trouver les détails du
fonctionnement de la propriété Application.caller lorque l'appel ne
provient
pas d'une fonction personnalisée utilisée dans une cellule de feuille de
calcul ?
Explications :
1) L'aide en ligne ne donne d'informations que pour les appels à partir de
fonctions personnalisées.
2) Certains de mes fichiers contiennent de nombreux onglets. Je n'utilise
souvent qu'un petit nombre d'entre eux, et pour facilier le navigation
entre
les onglets, je masque ceux qui ne m'intéressent pas. J'utilise pour cela
la
fenêtre propriété de VBA, mais cette solution ne me satisfait pas.
J'envisage d'inclure dans le menu "Affichage", une commande "Onglets" qui
déclencherait un menu déroulant de commutateurs nommés comme les onglets
du
fichier. L'utilisation serait strictement la même que celle de la commande
"Barre d'outils" qui permet d'afficher ou de masquer les barres d'outils.
Tous ces commutateurs déclencheraient l'exécution d'une même macro. Je
sais
que la fonction Application.caller permet de récupérer des informations
sur
la manière dont ladite macro aurait été lancée, et donc de retrouver le
commutateur, et par là, le nom de l'onglet à afficher ou à masquer, mais
ces
informations ne sont absolument pas commentées dans l'aide en ligne.
D'avance, merci
AP
Bonjour à tous
Quelqu'un pourrait-il me dire où je peux trouver les détails du
fonctionnement de la propriété Application.caller lorque l'appel ne
provient
pas d'une fonction personnalisée utilisée dans une cellule de feuille de
calcul ?
Explications :
1) L'aide en ligne ne donne d'informations que pour les appels à partir de
fonctions personnalisées.
2) Certains de mes fichiers contiennent de nombreux onglets. Je n'utilise
souvent qu'un petit nombre d'entre eux, et pour facilier le navigation
entre
les onglets, je masque ceux qui ne m'intéressent pas. J'utilise pour cela
la
fenêtre propriété de VBA, mais cette solution ne me satisfait pas.
J'envisage d'inclure dans le menu "Affichage", une commande "Onglets" qui
déclencherait un menu déroulant de commutateurs nommés comme les onglets
du
fichier. L'utilisation serait strictement la même que celle de la commande
"Barre d'outils" qui permet d'afficher ou de masquer les barres d'outils.
Tous ces commutateurs déclencheraient l'exécution d'une même macro. Je
sais
que la fonction Application.caller permet de récupérer des informations
sur
la manière dont ladite macro aurait été lancée, et donc de retrouver le
commutateur, et par là, le nom de l'onglet à afficher ou à masquer, mais
ces
informations ne sont absolument pas commentées dans l'aide en ligne.
D'avance, merci
AP
Bonjour,
si chaque bouton porte le nom d'un onglet,
tu n'as qu'à mettre une macro comme celle ci que tu affecteras à ces
boutons:
Sub zaza ()
Sheets(Application.Caller).Select
Sheets(Application.Caller).Visible = False
End Sub
Sub zaza2 ()
Sheets(Application.Caller).Visible = true
End Sub
Tout simplement.
Amicalement
Sitting Hoax
"arbiel" a écrit dans le message de news:Bonjour à tous
Quelqu'un pourrait-il me dire où je peux trouver les détails du
fonctionnement de la propriété Application.caller lorque l'appel ne
provient
pas d'une fonction personnalisée utilisée dans une cellule de feuille de
calcul ?
Explications :
1) L'aide en ligne ne donne d'informations que pour les appels à partir de
fonctions personnalisées.
2) Certains de mes fichiers contiennent de nombreux onglets. Je n'utilise
souvent qu'un petit nombre d'entre eux, et pour facilier le navigation
entre
les onglets, je masque ceux qui ne m'intéressent pas. J'utilise pour cela
la
fenêtre propriété de VBA, mais cette solution ne me satisfait pas.
J'envisage d'inclure dans le menu "Affichage", une commande "Onglets" qui
déclencherait un menu déroulant de commutateurs nommés comme les onglets
du
fichier. L'utilisation serait strictement la même que celle de la commande
"Barre d'outils" qui permet d'afficher ou de masquer les barres d'outils.
Tous ces commutateurs déclencheraient l'exécution d'une même macro. Je
sais
que la fonction Application.caller permet de récupérer des informations
sur
la manière dont ladite macro aurait été lancée, et donc de retrouver le
commutateur, et par là, le nom de l'onglet à afficher ou à masquer, mais
ces
informations ne sont absolument pas commentées dans l'aide en ligne.
D'avance, merci
AP
Bonjour,
si chaque bouton porte le nom d'un onglet,
tu n'as qu'à mettre une macro comme celle ci que tu affecteras à ces
boutons:
Sub zaza ()
Sheets(Application.Caller).Select
Sheets(Application.Caller).Visible = False
End Sub
Sub zaza2 ()
Sheets(Application.Caller).Visible = true
End Sub
Tout simplement.
Amicalement
Sitting Hoax
"arbiel" <arbiel@discussions.microsoft.com> a écrit dans le message de news:
0EF7C1F0-8D25-47F1-94FE-856652F9DD46@microsoft.com...
Bonjour à tous
Quelqu'un pourrait-il me dire où je peux trouver les détails du
fonctionnement de la propriété Application.caller lorque l'appel ne
provient
pas d'une fonction personnalisée utilisée dans une cellule de feuille de
calcul ?
Explications :
1) L'aide en ligne ne donne d'informations que pour les appels à partir de
fonctions personnalisées.
2) Certains de mes fichiers contiennent de nombreux onglets. Je n'utilise
souvent qu'un petit nombre d'entre eux, et pour facilier le navigation
entre
les onglets, je masque ceux qui ne m'intéressent pas. J'utilise pour cela
la
fenêtre propriété de VBA, mais cette solution ne me satisfait pas.
J'envisage d'inclure dans le menu "Affichage", une commande "Onglets" qui
déclencherait un menu déroulant de commutateurs nommés comme les onglets
du
fichier. L'utilisation serait strictement la même que celle de la commande
"Barre d'outils" qui permet d'afficher ou de masquer les barres d'outils.
Tous ces commutateurs déclencheraient l'exécution d'une même macro. Je
sais
que la fonction Application.caller permet de récupérer des informations
sur
la manière dont ladite macro aurait été lancée, et donc de retrouver le
commutateur, et par là, le nom de l'onglet à afficher ou à masquer, mais
ces
informations ne sont absolument pas commentées dans l'aide en ligne.
D'avance, merci
AP
Bonjour,
si chaque bouton porte le nom d'un onglet,
tu n'as qu'à mettre une macro comme celle ci que tu affecteras à ces
boutons:
Sub zaza ()
Sheets(Application.Caller).Select
Sheets(Application.Caller).Visible = False
End Sub
Sub zaza2 ()
Sheets(Application.Caller).Visible = true
End Sub
Tout simplement.
Amicalement
Sitting Hoax
"arbiel" a écrit dans le message de news:Bonjour à tous
Quelqu'un pourrait-il me dire où je peux trouver les détails du
fonctionnement de la propriété Application.caller lorque l'appel ne
provient
pas d'une fonction personnalisée utilisée dans une cellule de feuille de
calcul ?
Explications :
1) L'aide en ligne ne donne d'informations que pour les appels à partir de
fonctions personnalisées.
2) Certains de mes fichiers contiennent de nombreux onglets. Je n'utilise
souvent qu'un petit nombre d'entre eux, et pour facilier le navigation
entre
les onglets, je masque ceux qui ne m'intéressent pas. J'utilise pour cela
la
fenêtre propriété de VBA, mais cette solution ne me satisfait pas.
J'envisage d'inclure dans le menu "Affichage", une commande "Onglets" qui
déclencherait un menu déroulant de commutateurs nommés comme les onglets
du
fichier. L'utilisation serait strictement la même que celle de la commande
"Barre d'outils" qui permet d'afficher ou de masquer les barres d'outils.
Tous ces commutateurs déclencheraient l'exécution d'une même macro. Je
sais
que la fonction Application.caller permet de récupérer des informations
sur
la manière dont ladite macro aurait été lancée, et donc de retrouver le
commutateur, et par là, le nom de l'onglet à afficher ou à masquer, mais
ces
informations ne sont absolument pas commentées dans l'aide en ligne.
D'avance, merci
AP
Bonjour Arbiel,
Si tu as une barre d'outils contenant plusieurs boutons affichant le nom de chacune des feuilles et que tu veuilles récupérer le nom
du bouton cliquer par une procédure unique pour activer cette feuille, tu peux utliser ceci :
A )
Worksheet(Application.CommandBars.ActionControl.Caption).select
B ) tu peux utiliser aussi un bouton (style combobox) dans une barre d'outils contenant tous les noms des feuilles du classeur et
suite à la sélection de l'usager d'un nom d'une feuille dans ce combobox, la feuille est sélectionnée.
Voici un exemple qui servait à afficher tous les classeurs d'un répertoire d'un fichier dans ce type de controle et de pouvoir
ouvrir le classeur sélectionné dans la liste du combobox. Ceci n'est que pour illustrer le principe !
'-------------------------------------------
Sub CréerUnMenuDeTypeCombobox()
Dim MBar As CommandBar
Dim MCtl As CommandBarControl
Dim Fichier As Variant
On Error Resume Next
Application.CommandBars("Liste des fichiers").Delete
With Application.CommandBars
Set MBar = .Add("Liste des fichiers")
End With
With MBar
..Top = 75
..Left = 20
..Visible = True
End With
With MBar.Controls
Set MCtl = .Add(msoControlComboBox)
With MCtl
..AddItem ""
Fichier = Dir("C:test*.xls") 'à définir
Do While Fichier <> ""
..AddItem Fichier
Fichier = Dir()
Loop
..Caption = "Fichiers"
..Width = 150
..OnAction = "OuvrirFichier"
End With
End With
End Sub
'------------------------------
Sub OuvrirFichier()
Dim Chemin As String, Fichier As String
Chemin = "c:test" 'à définir
With Application.CommandBars("Liste des fichiers") _
..Controls("Fichiers")
Ficher = .List(.ListIndex)
End With
If IsEmpty(Fichier) Then Exit Sub
If Dir(Chemin & Fichier) <> "" Then
Workbooks.Open Chemin & Fichier
Else
MsgBox "Impossible de localiser ce fichier."
End If
End Sub
'------------------------------
Salutations!
"arbiel" a écrit dans le message de news:
Bonjour à tous
Quelqu'un pourrait-il me dire où je peux trouver les détails du
fonctionnement de la propriété Application.caller lorque l'appel ne provient
pas d'une fonction personnalisée utilisée dans une cellule de feuille de
calcul ?
Explications :
1) L'aide en ligne ne donne d'informations que pour les appels à partir de
fonctions personnalisées.
2) Certains de mes fichiers contiennent de nombreux onglets. Je n'utilise
souvent qu'un petit nombre d'entre eux, et pour facilier le navigation entre
les onglets, je masque ceux qui ne m'intéressent pas. J'utilise pour cela la
fenêtre propriété de VBA, mais cette solution ne me satisfait pas.
J'envisage d'inclure dans le menu "Affichage", une commande "Onglets" qui
déclencherait un menu déroulant de commutateurs nommés comme les onglets du
fichier. L'utilisation serait strictement la même que celle de la commande
"Barre d'outils" qui permet d'afficher ou de masquer les barres d'outils.
Tous ces commutateurs déclencheraient l'exécution d'une même macro. Je sais
que la fonction Application.caller permet de récupérer des informations sur
la manière dont ladite macro aurait été lancée, et donc de retrouver le
commutateur, et par là, le nom de l'onglet à afficher ou à masquer, mais ces
informations ne sont absolument pas commentées dans l'aide en ligne.
D'avance, merci
AP
Bonjour Arbiel,
Si tu as une barre d'outils contenant plusieurs boutons affichant le nom de chacune des feuilles et que tu veuilles récupérer le nom
du bouton cliquer par une procédure unique pour activer cette feuille, tu peux utliser ceci :
A )
Worksheet(Application.CommandBars.ActionControl.Caption).select
B ) tu peux utiliser aussi un bouton (style combobox) dans une barre d'outils contenant tous les noms des feuilles du classeur et
suite à la sélection de l'usager d'un nom d'une feuille dans ce combobox, la feuille est sélectionnée.
Voici un exemple qui servait à afficher tous les classeurs d'un répertoire d'un fichier dans ce type de controle et de pouvoir
ouvrir le classeur sélectionné dans la liste du combobox. Ceci n'est que pour illustrer le principe !
'-------------------------------------------
Sub CréerUnMenuDeTypeCombobox()
Dim MBar As CommandBar
Dim MCtl As CommandBarControl
Dim Fichier As Variant
On Error Resume Next
Application.CommandBars("Liste des fichiers").Delete
With Application.CommandBars
Set MBar = .Add("Liste des fichiers")
End With
With MBar
..Top = 75
..Left = 20
..Visible = True
End With
With MBar.Controls
Set MCtl = .Add(msoControlComboBox)
With MCtl
..AddItem ""
Fichier = Dir("C:test*.xls") 'à définir
Do While Fichier <> ""
..AddItem Fichier
Fichier = Dir()
Loop
..Caption = "Fichiers"
..Width = 150
..OnAction = "OuvrirFichier"
End With
End With
End Sub
'------------------------------
Sub OuvrirFichier()
Dim Chemin As String, Fichier As String
Chemin = "c:test" 'à définir
With Application.CommandBars("Liste des fichiers") _
..Controls("Fichiers")
Ficher = .List(.ListIndex)
End With
If IsEmpty(Fichier) Then Exit Sub
If Dir(Chemin & Fichier) <> "" Then
Workbooks.Open Chemin & Fichier
Else
MsgBox "Impossible de localiser ce fichier."
End If
End Sub
'------------------------------
Salutations!
"arbiel" <arbiel@discussions.microsoft.com> a écrit dans le message de news: 0EF7C1F0-8D25-47F1-94FE-856652F9DD46@microsoft.com...
Bonjour à tous
Quelqu'un pourrait-il me dire où je peux trouver les détails du
fonctionnement de la propriété Application.caller lorque l'appel ne provient
pas d'une fonction personnalisée utilisée dans une cellule de feuille de
calcul ?
Explications :
1) L'aide en ligne ne donne d'informations que pour les appels à partir de
fonctions personnalisées.
2) Certains de mes fichiers contiennent de nombreux onglets. Je n'utilise
souvent qu'un petit nombre d'entre eux, et pour facilier le navigation entre
les onglets, je masque ceux qui ne m'intéressent pas. J'utilise pour cela la
fenêtre propriété de VBA, mais cette solution ne me satisfait pas.
J'envisage d'inclure dans le menu "Affichage", une commande "Onglets" qui
déclencherait un menu déroulant de commutateurs nommés comme les onglets du
fichier. L'utilisation serait strictement la même que celle de la commande
"Barre d'outils" qui permet d'afficher ou de masquer les barres d'outils.
Tous ces commutateurs déclencheraient l'exécution d'une même macro. Je sais
que la fonction Application.caller permet de récupérer des informations sur
la manière dont ladite macro aurait été lancée, et donc de retrouver le
commutateur, et par là, le nom de l'onglet à afficher ou à masquer, mais ces
informations ne sont absolument pas commentées dans l'aide en ligne.
D'avance, merci
AP
Bonjour Arbiel,
Si tu as une barre d'outils contenant plusieurs boutons affichant le nom de chacune des feuilles et que tu veuilles récupérer le nom
du bouton cliquer par une procédure unique pour activer cette feuille, tu peux utliser ceci :
A )
Worksheet(Application.CommandBars.ActionControl.Caption).select
B ) tu peux utiliser aussi un bouton (style combobox) dans une barre d'outils contenant tous les noms des feuilles du classeur et
suite à la sélection de l'usager d'un nom d'une feuille dans ce combobox, la feuille est sélectionnée.
Voici un exemple qui servait à afficher tous les classeurs d'un répertoire d'un fichier dans ce type de controle et de pouvoir
ouvrir le classeur sélectionné dans la liste du combobox. Ceci n'est que pour illustrer le principe !
'-------------------------------------------
Sub CréerUnMenuDeTypeCombobox()
Dim MBar As CommandBar
Dim MCtl As CommandBarControl
Dim Fichier As Variant
On Error Resume Next
Application.CommandBars("Liste des fichiers").Delete
With Application.CommandBars
Set MBar = .Add("Liste des fichiers")
End With
With MBar
..Top = 75
..Left = 20
..Visible = True
End With
With MBar.Controls
Set MCtl = .Add(msoControlComboBox)
With MCtl
..AddItem ""
Fichier = Dir("C:test*.xls") 'à définir
Do While Fichier <> ""
..AddItem Fichier
Fichier = Dir()
Loop
..Caption = "Fichiers"
..Width = 150
..OnAction = "OuvrirFichier"
End With
End With
End Sub
'------------------------------
Sub OuvrirFichier()
Dim Chemin As String, Fichier As String
Chemin = "c:test" 'à définir
With Application.CommandBars("Liste des fichiers") _
..Controls("Fichiers")
Ficher = .List(.ListIndex)
End With
If IsEmpty(Fichier) Then Exit Sub
If Dir(Chemin & Fichier) <> "" Then
Workbooks.Open Chemin & Fichier
Else
MsgBox "Impossible de localiser ce fichier."
End If
End Sub
'------------------------------
Salutations!
"arbiel" a écrit dans le message de news:
Bonjour à tous
Quelqu'un pourrait-il me dire où je peux trouver les détails du
fonctionnement de la propriété Application.caller lorque l'appel ne provient
pas d'une fonction personnalisée utilisée dans une cellule de feuille de
calcul ?
Explications :
1) L'aide en ligne ne donne d'informations que pour les appels à partir de
fonctions personnalisées.
2) Certains de mes fichiers contiennent de nombreux onglets. Je n'utilise
souvent qu'un petit nombre d'entre eux, et pour facilier le navigation entre
les onglets, je masque ceux qui ne m'intéressent pas. J'utilise pour cela la
fenêtre propriété de VBA, mais cette solution ne me satisfait pas.
J'envisage d'inclure dans le menu "Affichage", une commande "Onglets" qui
déclencherait un menu déroulant de commutateurs nommés comme les onglets du
fichier. L'utilisation serait strictement la même que celle de la commande
"Barre d'outils" qui permet d'afficher ou de masquer les barres d'outils.
Tous ces commutateurs déclencheraient l'exécution d'une même macro. Je sais
que la fonction Application.caller permet de récupérer des informations sur
la manière dont ladite macro aurait été lancée, et donc de retrouver le
commutateur, et par là, le nom de l'onglet à afficher ou à masquer, mais ces
informations ne sont absolument pas commentées dans l'aide en ligne.
D'avance, merci
AP