Pratique VBA

[nicos3390]

Bonjour,

je suis en train de réaliser un fichier de suivi des ressources et des dépenses à titre professionnel.

j'ai réalisé plusieurs feuilles sur mon fichier excel et j'aimerais réalisé une macro qui me permette d'aller directement à la feuille que je veux sans aller la chercher parmi toutes.

voici quelques noms de mes feuilles, Alain, Alexandre, Michel, Adrien, ...

J'aimerais donc une barre de dialogue qui me demande de choisir parmi ces 4 noms de feuilles.

Est-ce clair?

Par avance merci

Nicolas

 

[kiki29]

Re : Pratique VBA

Salut,et pourquoi pas des liens hypertextes ?

 

[Fred0o]

Re : Pratique VBA

Bonjour nicos3390 et bienvenue sur le forum

Si tu veux passer par VBA, tu peux essayer un code de ce genre :

Sub choix()
    Dim nf As String
    nf = InputBox("Quelle feuille voulez-vous afficher ?")
    If nf <> "" Then
        On Error Resume Next
        Sheets(nf).Activate
    End If
End Sub

A+

 

[nicos3390]

Re : Pratique VBA

Parfait, c'est exactement ce que je voulais.

Merci

 

[kiki29]

Re : Pratique VBA

Salut, tu peux y accéder via un clic droit sur les fleches de navigation

sinon via le menu contextuel : ici pour 5 feuilles
pour cela placer dans ThisWorkBook

Option Explicit

Private Sub Workbook_Deactivate()
    EffacerMenus
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    EffacerMenus

    '   Création d'un menu contextuel
    '   ajouté en première position
    Set MenuPrincipal = Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup, before:=1, temporary:=True)
    With MenuPrincipal
        .Caption = "Feuilles"
        .BeginGroup = True
    End With

    '   Création du premier sous-menu affecté à MenuPrincipal
    Set SousMenu1 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu1
       .Caption = "Feuil1"
       .OnAction = "ActF1"
       .FaceId = 2105
    End With

    Set SousMenu2 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu2
       .Caption = "Feuil2"
       .OnAction = "ActF2"
       .FaceId = 2105
    End With

    Set SousMenu3 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu3
       .Caption = "Feuil3"
       .OnAction = "ActF3"
       .FaceId = 2105
    End With

    Set SousMenu4 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu4
       .Caption = "Feuil4"
       .OnAction = "ActF4"
       .FaceId = 2105
    End With

    Set SousMenu5 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu5
       .Caption = "Feuil5"
       .OnAction = "ActF5"
       .FaceId = 2105
    End With
End Sub

Dans un module

Option Explicit

Sub ActF1()
    Feuil1.Activate
End Sub

Sub ActF2()
    Feuil2.Activate
End Sub

Sub ActF3()
    Feuil3.Activate
End Sub

Sub ActF4()
    Feuil4.Activate
End Sub

Sub ActF5()
    Feuil5.Activate
End Sub

Dans un autre module

Option Explicit

Public MenuPrincipal As CommandBarPopup
'   Sous-menus de MenuPrincipal
Public SousMenu1 As CommandBarControl
Public SousMenu2 As CommandBarControl
Public SousMenu3 As CommandBarControl
Public SousMenu4 As CommandBarControl
Public SousMenu5 As CommandBarControl

Sub EffacerMenus()
Dim Ctrl As CommandBarControl
    For Each Ctrl In Application.CommandBars("Cell").Controls
        If Ctrl.Caption = "Feuilles" Then Ctrl.Delete
    Next Ctrl
End Sub

 

[MJ13]

Re : Pratique VBA

Bonjour à tous

une petite macro à lancer sur un raccourci clavier sur la première lettre (on peut adapter à n lettres si doublon sur la première lettre ou au nombre de lettres qui sont tapées):

Public nomf(100), i
Sub lance()
For i = 1 To Sheets.Count
nomf(i) = Sheets(i).Name
Next
End Sub
Sub Trouve()
lance
Dim NAT As String
NAT = InputBox("Première lettre du début du nom")
For n = 1 To i
'MsgBox nomf(n)
If Left(nomf(n), 1) = NAT Then Sheets(n).Select
Next
End Sub