Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour la com. Je ne sais pas si c'est réalisable. J'aimerai que ma listview et affiche le nom de mes onglets,
déjà existant et ceux que je pourrai ajouter ainsi que si je sélectionne le nom de l'onglet qu'il permet de me rendre
sur cette page.
Merci pour votre aide futur.
j'ai trouvé ton fichier très bien ! j'y ai fait plusieurs modifs.
* il n'y a plus de feuille "Accueil", et il n'y a plus de boutons de commande.
* note que la feuille active est "Mai" ; fais Ctrl g ➯ la ListView est affichée,
et l'item sélectionné est le 5ème item de la liste : "Mai".
* sélectionne l'item "Octobre" ➯ ça sélectionne la feuille "Octobre".
* sélectionne l'item "Juin" ➯ ça sélectionne la feuille "Juin".
* il n'y a plus de bouton Quitter ; pour sortir de la fenêtre, au choix :
appuie sur la touche Echap, ou clique sur la croix de fermeture du
coin haut droit de la fenêtre.
* la feuille active est "Juin" ; fais Ctrl g ➯ la ListView est affichée,
et l'item sélectionné est le 6ème item de la liste : "Juin".
* appuie sur la touche Echap ; fin de la démo.
code VBA du UserForm "ListFeuilles" (18 lignes) :
VB:
Option Explicit
Private Sub UserForm_Initialize()
Dim Ws As Worksheet
With ListView1
.ColumnHeaders.Add , , "Feuilles", 80: .View = lvwReport: .Gridlines = 0
For Each Ws In Worksheets: .ListItems.Add , , Ws.Name: Next Ws
.ListItems(ActiveSheet.Index).Selected = -1
End With
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Worksheets(CStr(ListView1.ListItems(Item.Index))).Select
End Sub
Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then Unload Me
End Sub
j'ai trouvé ton fichier très bien ! j'y ai fait plusieurs modifs.
* il n'y a plus de feuille "Accueil", et il n'y a plus de boutons de commande.
* note que la feuille active est "Mai" ; fais Ctrl g ➯ la ListView est affichée,
et l'item sélectionné est le 5ème item de la liste : "Mai".
* sélectionne l'item "Octobre" ➯ ça sélectionne la feuille "Octobre".
* sélectionne l'item "Juin" ➯ ça sélectionne la feuille "Juin".
* il n'y a plus de bouton Quitter ; pour sortir de la fenêtre, au choix :
appuie sur la touche Echap, ou clique sur la croix de fermeture du
coin haut droit de la fenêtre.
* la feuille active est "Juin" ; fais Ctrl g ➯ la ListView est affichée,
et l'item sélectionné est le 6ème item de la liste : "Juin".
* appuie sur la touche Echap ; fin de la démo.
code VBA du UserForm "ListFeuilles" (18 lignes) :
VB:
Option Explicit
Private Sub UserForm_Initialize()
Dim Ws As Worksheet
With ListView1
.ColumnHeaders.Add , , "Feuilles", 80: .View = lvwReport: .Gridlines = 0
For Each Ws In Worksheets: .ListItems.Add , , Ws.Name: Next Ws
.ListItems(ActiveSheet.Index).Selected = -1
End With
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Worksheets(CStr(ListView1.ListItems(Item.Index))).Select
End Sub
Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then Unload Me
End Sub
Bonjour Soan, Jean Marie.
Merci Soan pour ton intervention. J'aime beaucoup la possibilité de pouvoir ouvrir UserForm par raccourcis. Néanmoins j'ai toujours besoin de la feuille Accueil car sur celle-ci j'ai un Userform qui s'ouvre au démarrage demandant le nom de l'utilisateur ainsi qu'un mdp.
J'aime beaucoup la possibilité de pouvoir ouvrir UserForm par raccourcis. Néanmoins j'ai toujours besoin de la feuille Accueil car sur celle-ci j'ai un Userform qui s'ouvre au démarrage demandant le nom de l'utilisateur ainsi qu'un mdp.
* à l'ouverture du fichier, tu es sur la feuille "Accueil"
* fais Ctrl g ➯ la ListView est affichée, mais comme c'est une liste des feuilles mois, la feuille "Accueil" n'y est pas, donc cette fois, il n'y a pas d'item sélectionné dans la liste ! (c'est normal)
* sélectionne l'item "Mai" ➯ ça sélectionne la feuille "Mai".
* sélectionne l'item "Octobre" ➯ ça sélectionne la feuille "Octobre".
* sélectionne l'item "Juin" ➯ ça sélectionne la feuille "Juin".
* pour sortir de la fenêtre, au choix : appuie sur la touche Echap, ou
clique sur la croix de fermeture du coin haut droit de la fenêtre.
* la feuille active est "Juin" ; fais Ctrl g ➯ la ListView est affichée,
et l'item sélectionné est le 6ème item de la liste : "Juin".
* appuie sur la touche Echap ; fin de la démo.
code VBA du UserForm "ListFeuilles" (26 lignes) :
VB:
Option Explicit
Private Sub UserForm_Initialize()
Dim Ws As Worksheet, k%
With ListView1
.ColumnHeaders.Add , , "Feuilles", 80: .View = lvwReport: .Gridlines = 0
For Each Ws In Worksheets
If Ws.Name <> "Accueil" Then .ListItems.Add , , Ws.Name
Next Ws
k = ActiveSheet.Index
If k = 1 Then 'feuille Accueil
'la 1ère ligne est sélectionnée par défaut ; pour la désélectionner :
.ListItems(1).Selected = 0: Set .SelectedItem = Nothing
Else 'autres feuilles
.ListItems(k - 1).Selected = -1
End If
End With
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Worksheets(CStr(ListView1.ListItems(Item.Index))).Select
End Sub
Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then Unload Me
End Sub
Bonsoir ,
J'aime aussi la méthode des raccourcis qu'utilise souvent mon ami Soan.
Mais il est important que l'ensemble des utilisateurs en soit informé, car pas évident a Deviner lol
D'où l'intérêt d'une feuille accueil pour en informer les utilisateurs lol.
Merci soan
Bonne fin de soirée
Jean marie
exact ! d'habitude, j'utilise Ctrl e car souvent, je fais une sub nommée Essai() ; mais ici, j'ai choisi Ctrl g car ma sub se nomme GoFX() : aller sur la Feuille X.
j'évite toujours les lettres s et w car Ctrl s est trop pratique pour sauvegarder ; et Ctrl w est trop pratique pour fermer le document qui est ouvert dans la fenêtre de l'application. (y'a aussi quelques autres lettres que j'évite, pour le même genre de raison)
rappel : pour fermer l'application elle-même, c'est avec Alt F4 ; attention : sauvegarder le document avant !
Merci Soan, j'apprécie ton travail. Le fait de pouvoir ouvrir l'userform avec touche de raccourcis le bonheur. Mais je souhaitai l'ajouter à un autre classeur mais le soucis c'est que je ne vois pas ou se trouve la partie de ton code qui permette justement cette action.
Bonne soirée
je souhaitai l'ajouter à un autre classeur mais le souci c'est que je ne vois pas où se trouve la partie de ton code qui permet justement cette action.
c'est pas dans le code vba que j'ai ajouté un raccourci clavier ; c'est au niveau de la feuille de calcul ! voici la description de la procédure à suivre :
* fais Alt F8 ➯ fenêtre "Macro" ; dans la liste des macros, sélectionne celle pour laquelle tu veux mettre un raccourci clavier ; si y'a qu'une seule macro dans la liste, elle est déjà automatiquement sélectionnée.
* quand la bonne macro est sélectionnée, clique à droite sur le bouton "Options..." ou fais Alt t ➯ fenêtre "Options de macro" ; c'est là ! mets dans la petite case la lettre de ton choix, par exemple g pour Ctrl+g(attention : la casse compte ➯ g est différent de G) ; tu peux même mettre aussi dans la grande case une description du but de la macro, qui apparaîtra en bas de la fenêtre "Macro".
* valide en cliquant sur le bouton OK ➯ retour à la fenêtre précédente "Macro" ; ferme cette fenêtre ➯ retour sur la feuille de calcul ; c'est bon : tu peux maint'nant utiliser ton nouveau raccourci clavier !
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.