Créer bouton de commande feuille précédente excel 2003
Résolu/Fermé
D277
Messages postés
34
Date d'inscription
lundi 7 avril 2014
Statut
Membre
Dernière intervention
30 avril 2015
-
7 avril 2014 à 11:44
D277 Messages postés 34 Date d'inscription lundi 7 avril 2014 Statut Membre Dernière intervention 30 avril 2015 - 7 avril 2014 à 13:11
D277 Messages postés 34 Date d'inscription lundi 7 avril 2014 Statut Membre Dernière intervention 30 avril 2015 - 7 avril 2014 à 13:11
A voir également:
- Créer bouton de commande feuille précédente excel 2003
- Invite de commande - Guide
- Créer liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
3 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
7 avril 2014 à 12:11
7 avril 2014 à 12:11
Bonjour,
Ouvre un nouveau classeur et vois ce que fait cette macro:
a toi de l'adapter!
Ouvre un nouveau classeur et vois ce que fait cette macro:
Sub CreationLiens() Dim Feuille As Worksheets, n As Integer, L As Integer Dim ExisteFeuille As Boolean, wCell As Range, Réponse As Long On Error Resume Next ExisteFeuille = Worksheets("Répertoire").Name If Err.Number = 9 Then Err.Clear Réponse = _ MsgBox("Il faut une feuille nommée ""Répertoire"" !" & vbCrLf _ & "Voulez-vous la créer ?", vbYesNo, _ "Création des liens Hypertextes") If Réponse = vbNo Then Exit Sub ActiveWorkbook.Worksheets.Add before:=Sheets(1) ActiveSheet.Name = "Répertoire" End If On Error GoTo 0 With Sheets("Répertoire") L = 1 .Cells.Clear For n = 1 To Worksheets.Count If Worksheets(n).Name <> "Répertoire" Then .Activate .Hyperlinks.Add _ Anchor:=.Cells(L, 1), Address:="", _ SubAddress:="'" & Worksheets(n).Name & "'!A1" .Cells(L, 1).Value = Worksheets(n).Name .Cells(L, 1).Select If Worksheets(n).[A1].Hyperlinks.Count = 1 Or _ IsEmpty(Worksheets(n).[A1]) Then Set wCell = Worksheets(n).[A1] ElseIf Worksheets(n).[B1].Hyperlinks.Count = 1 Or _ IsEmpty(Worksheets(n).[B1]) Then Set wCell = Worksheets(n).[B1] ElseIf Worksheets(n).[C1].Hyperlinks.Count = 1 Or _ IsEmpty(Worksheets(n).[C1]) Then Set wCell = Worksheets(n).[C1] End If If Not wCell Is Nothing Then Worksheets(n).Hyperlinks.Add _ Anchor:=wCell, Address:="", _ SubAddress:="'" & Worksheets("Répertoire").Name _ & "'!" & .Cells(L, 1).Address(0, 0) wCell.Value = "Retour au Répertoire" End If L = L + 1 Set wCell = Nothing End If Next End With End Sub
a toi de l'adapter!
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
7 avril 2014 à 12:12
7 avril 2014 à 12:12
Bonjour,
un exemple:
code bouton dans VBA module1, code changement onglet dans VBA Thisworkbook
https://www.cjoint.com/c/DDhmldjORoN
un exemple:
code bouton dans VBA module1, code changement onglet dans VBA Thisworkbook
https://www.cjoint.com/c/DDhmldjORoN
D277
Messages postés
34
Date d'inscription
lundi 7 avril 2014
Statut
Membre
Dernière intervention
30 avril 2015
7 avril 2014 à 13:11
7 avril 2014 à 13:11
Génial !!
Je vous remercie beaucoup de votre aide et du temps que vous m'avez consacré.
A+
Je vous remercie beaucoup de votre aide et du temps que vous m'avez consacré.
A+