Discussion :

[Pompaero]

Bonjour le forum

De retour pour un peu d'aide, svp.

Comme indiqué dans le titre j'aimerai créer un bouton à l'ouverture des certaines feuilles afin de pouvoir les re masquer.

Je résume ce que je voudrai:
Sur ma feuille "Recherche" quand je click sur un n° de fiche grace à un lien, la feuille correspondante à ce n° s'ouvre.
C'est à ce moment que j'ai besoin de vos lumières.
j'aimerai à l'ouverture de ces feuilles (fiche n° xx-xxx) qu'un bouton soit crée afin de pouvoir la remasquer et revenir sur la feuille "Recherche".
j'ai bien trouvé un modèle de macro mais n'arrive à me l'adapter

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
Sub Macro1() 'création d'un bouton pour fermer les onglets sauvegardés
 
    Charts.Add
 '   ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
 '   ActiveChart.SeriesCollection.NewSeries
 '   ActiveChart.SeriesCollection.NewSeries
 '   ActiveChart.SeriesCollection.NewSeries
 
    'ActiveChart.SeriesCollection(1).Values = "='Feuil2'!$A$2:$A$26"
    'ActiveChart.SeriesCollection(1).Name = "='Feuil2'!$A$1"
 
    'ActiveChart.SeriesCollection(2).Values = "='Feuil3'!$A$2:$A$26"
    'ActiveChart.SeriesCollection(2).Name = "='Feuil3'!$A$1"
 
    'ActiveChart.SeriesCollection(3).Values = "='Feuil3'!$B$2:$B$26"
    'ActiveChart.SeriesCollection(3).Name = "='Feuil3'!$B$1"
 
 '   ActiveChart.Location Where:=xlLocationAsNewSheet
 '   With ActiveChart
 '       .HasTitle = True
 '       .ChartTitle.Characters.Text = "Résultat"
 '       .Axes(xlCategory, xlPrimary).HasTitle = False
 '       .Axes(xlValue, xlPrimary).HasTitle = False
 '   End With
 
    'Création du bouton
    ActiveSheet.Buttons.Add(590.4, 7.8, 130.8, 26.4).Select
    Selection.OnAction = "ThisWorkbook.efface_feuil_active"
    ActiveSheet.Shapes("Bouton 1").Select
    Selection.Characters.Text = "Fermer l'onglet"
    With Selection.Characters(Start:=1, Length:=19).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .ColorIndex = 3
    ActiveChart.ChartArea.Select
    End With
End Sub

Grand merci à vous
Cdlt

[kiki29]

Salut, pourquoi ne pas utiliser Worksheet_Deactivate pour masquer la feuille en xlveryhidden ?

[Docmarti]

Bonjour.

Voici une suggestion avec Worksheet_Activate

Dans Thisworkbook

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
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
 If Sh.Name <> "Recherche" Then
 
  Dim btn As Button
 
  ActiveSheet.Buttons.Delete
  Dim r As Range
 
    Set r = ActiveSheet.Range(Cells(1, 2), Cells(1, 2))
    Set btn = ActiveSheet.Buttons.Add(r.Left, r.Top, r.Width, r.Height)
    With btn
      .OnAction = "Thisworkbook.Afficher_Recherche"
      .Caption = "Recherche"
      .Name = "Recherche"
    End With
 
  End If
End Sub
 
Sub Afficher_Recherche()
 ThisWorkbook.Worksheets("Recherche").Activate
End Sub

[Pompaero]

Bonjour kiki29, Docmarti

kiki29, désolé mais je ne vois pas trop le sens du fonctionnement de ta proposition, peux tu m'expliqué plus en détails, stp ?

Docmarti, ta proposition va bien dans le sens que je l'imaginai, mais erreur de ma part, j'ai oublié de préciser qu'il n'y avais pas que la feuille "Recherche" ou il ne fallai pas de bouton. DESOLE.

Je résume, il y a 5 feuilles ou il ne faut pas le bouton
* feuille "Accueil"
* feuille "Note"
* feuille "Prix km"
* feuille "Param"
* feuille "Recherche"
Toutes les autres feuilles sont nommées n° 15-001, n° 15-002, ect…. Puis au changement d'année on repart n° 16-001, n°16-002, ect…
C'est donc ces feuilles la ou il faut le bouton. sincèrement désolé.
est il possible d'améliorer cela ?


PS : j'ai mis ta macro dans ThisWorkbook, c'est bien ça ?

Grand merci à vous
Cdlt

[Docmarti]

PS : j'ai mis ta macro dans ThisWorkbook, c'est bien ça ?

Oui, c'est bien ca. La macro Afficher_Recherche doit etre dans ThisWorkbook. Si tu veux la mettre dans un module standard,
remplace

Code :

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

.OnAction = "Thisworkbook.Afficher_Recherche"

par

Code :

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

.OnAction = "Afficher_Recherche"

Je résume, il y a 5 feuilles ou il ne faut pas le bouton
* feuille "Accueil"
* feuille "Note"
* feuille "Prix km"
* feuille "Param"
* feuille "Recherche"
Toutes les autres feuilles sont nommées n° 15-001, n° 15-002, ect…. Puis au changement d'année on repart n° 16-001, n°16-002, ect…
C'est donc ces feuilles la ou il faut le bouton. sincèrement désolé.
est il possible d'améliorer cela ?

Technique 1 :

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
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
 Dim OK
 'Verifier que le nom de la feuille est compose de 2 elements numeriques separes par -
 t = Split(Sh.Name, "-")
 If UBound(t) = 1 Then
  If IsNumeric(t(0)) Then
   If IsNumeric(t(1)) Then
    OK = True
   End If
  End If
 End If
 If OK = True Then
 
  Dim btn As Button
 
  ActiveSheet.Buttons.Delete
  Dim r As Range
 
    Set r = ActiveSheet.Range(Cells(1, 2), Cells(1, 2))
    Set btn = ActiveSheet.Buttons.Add(r.Left, r.Top, r.Width, r.Height)
    With btn
      .OnAction = "Thisworkbook.Afficher_Recherche"
      .Caption = "Recherche"
      .Name = "Recherche"
    End With
 End If
 
End Sub

Une autre technique :

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
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
 Dim OK
 'Verifier qu'il ne s'agit pas d'une de ces 5 feuilles
 t = Array("Accueil", "Note", "Prix km", "Param", "Recherche")
 For i = LBound(t) To UBound(t)
  If t(i) = Sh.Name Then OK = True: Exit For
 Next
 If OK = False Then
 
  Dim btn As Button
 
  ActiveSheet.Buttons.Delete
  Dim r As Range
 
    Set r = ActiveSheet.Range(Cells(1, 2), Cells(1, 2))
    Set btn = ActiveSheet.Buttons.Add(r.Left, r.Top, r.Width, r.Height)
    With btn
      .OnAction = "Thisworkbook.Afficher_Recherche"
      .Caption = "Recherche"
      .Name = "Recherche"
    End With
 End If
 
End Sub

[Pompaero]

Re

Merci pour les conseils .

Je viens de tester tes macros mais erreur à la même place pour les 2

ça me dit pour le t = (variable non définie) est ce normal ?

par la même occasion j'aimerai mettre le texte du bouton en rouge, gras.
Donc après
.Name="Recherche" j'ai ajouté
.FontStyle="Gras"
.ColorIndex="3" mais ne marche pas.



je viens de retester puis ajouter les variables à la suite de Dim OK, t, i et ça à l'air de fonctionner.
Cdlt