Discussion :

[Akkarin0706]

Bonjour
Je suis nouveau sur Excel et j'aimerais créer un tableau interactif.
Je m'explique.

Sur la première page du classeur il y aurait un sommaire avec des boutons pour aller dans les autres pages du classeurs ( 1 bouton par page ) et à chaque page 1 bouton sommaire pour retourner au sommaire.

Par où dois-je commencer ? J'avais penser utiliser VBA et du coup acheter un bouquin "vba pour les nuls" histoire d'apprendre tout çà.

Qu'en pensez-vous ?

Cordialement

[DeTraX]

Bonjour,

Tu peux déjà commencer par ça : http://bidou.developpez.com/article/VBA/

Amuse toi aussi à regarder le code généré en VBA après avoir créé une macro (Alt+F11 pour ouvrir l'éditeur)

[Oliv-]

Salut,
voici 2 exemples de Jacques Boisgontier
http://boisgontierjacques.free.fr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Sub sommaire_hyper_lien()
'Jacques Boisgontier
'http://boisgontierjacques.free.fr
    On Error Resume Next
    Err = 0
    Sheets("Accueil").Select
    If Err <> 0 Then
        Sheets.Add before:=Sheets(1)
        ActiveSheet.Name = "Accueil"
        ActiveSheet.Tab.ColorIndex = 3
        On Error GoTo 0
        Range("c4") = "Sommaire"
        ActiveWindow.DisplayGridlines = False
        Range("c4").Font.Bold = True
        Range("c4").Font.Size = 12
        Range("c4").Select
        Range("A1") = Date
        Range("c1").Select
    End If
    '--
    Range("c6").Select
    For I = 2 To Sheets.Count
        X = Sheets(I).Name
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & X & "'" & "!A1", TextToDisplay:=X
        ActiveCell.Offset(1, 0).Select
    Next I
End Sub
Sub sommaire_hyper_lien_trié()
'Jacques Boisgontier
'http://boisgontierjacques.free.fr
    On Error Resume Next
    Err = 0
    Sheets("Accueil").Select
    If Err <> 0 Then
        Sheets.Add before:=Sheets(1)
        ActiveSheet.Name = "Accueil"
        ActiveSheet.Tab.ColorIndex = 3
        On Error GoTo 0
        Range("c4") = "Sommaire"
        ActiveWindow.DisplayGridlines = False
        Range("c4").Font.Bold = True
        Range("c4").Font.Size = 12
        Range("c4").Select
        Range("A1") = Date
        Range("c1").Select
    End If
    '--
    Range("c6").Select
    For I = 2 To Sheets.Count
        X = Sheets(I).Name
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & X & "'" & "!A1", TextToDisplay:=X
        ActiveCell.Offset(1, 0).Select
    Next I
    '-- tri
    If Not IsEmpty(Range("c7")) Then
        Range("c6").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Sort Key1:=Range("c6"), Order1:=xlAscending, Header:=xlGuess, _
                       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
    '--
End Sub

[Akkarin0706]

merci pour vos réponses donc si j'ai bien compris grâce a la formation VBA en PDF je pourrais faire mon tableau interactif ?

encore merci

cordialement