XL 2016 Macro pour creer un bouton

Calvus

XLDnaute Barbatruc

• 31 Juillet 2019

• #2

Bonjour Neilru4, le forum,

VB:

Sheets("Machin").Visible = False' pour masquer
Sheets("Machin").Visible = True 'pour afficher'

A+

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 31 Juillet 2019

• #3

Bonjour calvus quand tu mets machin c'est le nom de mon onglet?

mais est il possible que quand je clique sur mon bouton que sa ouvre mon onglet?

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 31 Juillet 2019

• #4

Re,

Tu parles bien d'un onglet masqué non ?
Alors oui, il faut mettre le nom de l'onglet et le code dans le module qui gère le bouton.

A+

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 31 Juillet 2019

• #5

oui je parle bien d'un onglet masquer mais cela ne fait que l'afficher
le bouton me l'ouvre mais ne me renvoie pas vers l'onglet
est ce possible?

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 31 Juillet 2019

• #6

Re,

Sheets("machin").Activate

A+

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 31 Juillet 2019

• #7

Re
Merci pour ces fonctions
mais tu va dire que je suis embêtant activate fonctionne si l'onglet et afficher
s'il est masquer comment faire?

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 31 Juillet 2019

• #8

RE faut il fusionner les deux commandes?

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 31 Juillet 2019

• #9

Re,

.......
Sub Afficher
Sheets("Machin").Visible = True
Sheets("machin").Activate
End sub

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 31 Juillet 2019

• #10

Calvus
un grand merci a toi
je viens de tester cela fonctionne comme je le voulais

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 1 Août 2019

• #11

Bonjour
Suite a ma demande d'hier j'aurais voulu via la macro ouvrir un onglet excel mais d'un autre classeur
Est ce possible?

 

Dernière édition: 1 Août 2019

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 4 Août 2019

• #12

Bonsoir,

Voici le code :

VB:

Sub Ouvrir()
Dim fichier As String, nom As String
fichier = Feuil12.Range("A1")
nom = Feuil12.Range("A2")
On Error Resume Next
    Workbooks(nom).Activate
    If Err.Number <> 0 Then
        Workbooks.Open fichier
    End If
Sheets("Machin").Activate
End Sub

A+

 

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 5 Août 2019

• #13

Bonjour mon classeur s'appel Données
mon onglet Part1
donc le code devrait être:

Sub Ouvrir()
Dim fichier As String, nom As String
Données = Part1.Range("A1")
Données = Part1Range("A2")
On Error Resume Next
Workbooks(Données).Activate
If Err.Number <> 0 Then
Workbooks.Open fichier
End If
Sheets("Part1").Activate
End Sub

est ce bien ca car cela ne fonctionne pas

 

Vote positif 0 Vote négatif