CommandButton visible

[maval]

Bonjour,
Bonjour

J'ai deux petit soucis avec mon code mais je n y arrive pas, forcement sinon je ne vous poserai pas la question.🙂
J'ai sur une feuille excel dans la colonne "C" 12 CommandButton pour mettre des liens vers les onglets et un autre CommandButton pour masquer la colonne "C".

1er. est-il possible avec mon code ci-dessous je puisse masquer les 12 CommandButton.

Private Sub CommandButton6_Click()

If CommandButton6.Caption = "Masquer" Then
    CommandButton6.Caption = "Afficher"
     Worksheets(1).Columns("C").Hidden = True    
Else
    CommandButton6.Caption = "Masquer"
   Worksheets(1).Columns("C").Hidden = False 
End If
End Sub

2éme. Je suis à la recherche d'un code pour mettre à mes CommandButton, pour avoir des liens a chaque Bouton vers un onglet différents.

Je n'ai pas d'idée comment je pourrais résoudre?

Je vous remercie de votre aide

 

[Robert]

Re : CommandButton visible

Bonjour Maval bonjour le forum,

Désolé mais je n'ai rien compris... c'est quoi 12 et autre Commandbutton ?
masquer les 12 quoi ?
Pour la deuxième question, je pense que :

Sheets(Ton_onglet).Select
Range(Ta_cellule).Select

devrait faire l'affaire ou alors je n'ai pas compris non plus...
Et si tu mettais le fichier en pièce jointe. Depuis le temps que tu es dans ce forum tu devrais le savoir...

[Édition]

Arf ! encore parlé trop vite moi...

 

[Robert]

Re : CommandButton visible

Bonjour Maval, bonjour le forum,

Pour la première question :
En Mode Création à chaque bouton. Clic du Bouton droit/Format de contrôle/onglet Propriétés/Option : Déplacer et dimensionner avec les cellules

 

[Guest]

Re : CommandButton visible

Bonjour,

Re bonjour Robert,

@Maval: rien compris non plus, même en ouvrant le fichier (les commentaires ne correspondent pas à la demande)


A+

 

[maval]

Re : CommandButton visible

Bonjour Robert, Hasco,

Bon peut être que vous avez raison alors je vais essayer de répondre autrement.
J'ai sur une feuille excel dans la colonne "C" 12 Boutons pour mettre un liens vers chaque onglets, et j'ai un autre bouton pour masquer la colonne "C".

1er. Est-il possible avec mon code ci-dessous masquer les 12 Boutons?

Private Sub CommandButton6_Click()

If CommandButton6.Caption = "Masquer" Then
    CommandButton6.Caption = "Afficher"
     Worksheets(1).Columns("C").Hidden = True    
Else
    CommandButton6.Caption = "Masquer"
   Worksheets(1).Columns("C").Hidden = False
End If
End Sub

2éme. Je recherche un code pour mettre à mes boutons, un liens vers chaque onglet?

Le fichier est sur le Post1
Merci d'avance

 

[Guest]

Re : CommandButton visible

Re,

Pour CacherMasquer les boutons:

 'Bouton masquer et démasquer les colonnes "L:V"
Private Sub CommandButton6_Click()
If CommandButton6.Caption = "Masquer" Then
    CommandButton6.Caption = "Afficher"
     Worksheets(1).Columns("C").Hidden = True ' cache colonne H:I
    CacherMasquerButtons
    
Else
    CommandButton6.Caption = "Masquer"
   Worksheets(1).Columns("C").Hidden = False ' Affiche colonne H:I
   CacherMasquerButtons
 ' Shapes("Image 18").Visible = True
End If
End Sub
Private Sub CacherMasquerButtons()
    Dim cmd As Object
   
    For Each cmd In OLEObjects
        If cmd.Name <> "CommandButton6" Then cmd.Visible = Me.CommandButton6.Caption = "Masquer"
    Next cmd
   
End Sub

Pour la deuxième question: voir le code CommandButton6_Click() de chaque bouton dans lequel tu peux mettre
Sheets("NomDeLaFeuille").Activate


Mais tout serait plus simple avec des liens hypertextes en lieu et place des boutons!

A+

 

[Si...]

Re : CommandButton visible

salut

à tester

Private Sub CommandButton6_Click()
With CommandButton6
    .Caption = IIf(.Caption = "Masquer", "Afficher", "Masquer")
    Columns("H:I").Hidden = .Caption = "Afficher"
  End With
End Sub
Private Sub CommandButton1_Click()
  Sheets(2).Activate
End Sub

'pareil pour les autres

 

[Guest]

Re : CommandButton visible

Re,

Hello Si,

Je vois au réponses que personnes n'a compris la même chose....arf

Maval, peut-être qu'un effort de langage ( à moins que tu sois de langues étrangère ) serait apprécié.

A+

 

[maval]

Re : CommandButton visible

Re Hasco

Alors pour le code que tu ma mis, masquer les boutons c'est Nickel "Tu vois que tu as compris.....!"

La deuxième question il y a pas plus simple que Sheets("NomDeLaFeuille").Activate a chaque bouton ?

@+

 

[Guest]

Re : CommandButton visible

Re,

Moins compliqué, je ne sais pas, mais demandant plus de connaissance que tu as l'air d'en avoir, certainement: un module de classe comme dans le fichier joint. Perso je trouve cela un peu trop pour le besoin que tu exprimes. Des liens hypertextes feraient aussi bien l'affaire ou des boutons de formulaire (non activeX) auxquels tu affecterais la même macro.

********** JE N'ASSURERAI PAS LA MAINTENANCE ***********

A toi de te mettre au travail et aux recherches pour comprendre comment cela fonctionne.

A+

 

[maval]

Re : CommandButton visible

Re,

Je te remercie mais regarde avec le code

Private Sub CommandButton1_Click()
Sheets("Feuil2").Activate
End Sub
Private Sub CommandButton2_Click()
Sheets("Feuil3").Activate
End Sub
Private Sub CommandButton3_Click()
Sheets("Feuil4").Activate
End Sub
Private Sub CommandButton4_Click()
Sheets("Feuil5").Activate
End Sub
Private Sub CommandButton5_Click()
Sheets("Feuil6").Activate
End Sub
Private Sub CommandButton6_Click()
Sheets("Feuil7").Activate
End Sub
Private Sub CommandButton7_Click()
Sheets("Feuil8").Activate
End Sub
Private Sub CommandButton8_Click()
Sheets("Feuil9").Activate
End Sub
Private Sub CommandButton9_Click()
Sheets("Feuil10").Activate
End Sub
Private Sub CommandButton10_Click()
Sheets("Feuil11").Activate
End Sub
 Private Sub CommandButton11_Click()
Sheets("Feuil12").Activate
End Sub
 Private Sub CommandButton12_Click()
Sheets("Feuil13").Activate
End Sub
  
 'Bouton masquer et démasquer les colonnes "C"
Private Sub CommandButton14_Click()
If CommandButton14.Caption = "Masquer" Then
    CommandButton14.Caption = "Afficher"
     Worksheets(1).Columns("C").Hidden = True
    CacherMasquerButtons
   
Else
    CommandButton14.Caption = "Masquer"
   Worksheets(1).Columns("C").Hidden = False
   CacherMasquerButtons
 
End If
End Sub
Private Sub CacherMasquerButtons()
    Dim cmd As Object
   
    For Each cmd In OLEObjects
        If cmd.Name <> "CommandButton14" Then cmd.Visible = Me.CommandButton14.Caption = "Masquer"
    Next cmd
   
End Sub

@+

 

[Guest]

Re : CommandButton visible

Re,

C'est bien ce que je disais. Faire au plus simple est toujours la meilleur solution.

A+

 

[maval]

Re : CommandButton visible

Re,

Merci Hasco

Bon WE

@+

 

[Guest]

Re : CommandButton visible

Re,

Bon Week-end à toi également.

A+

 

[Si...]

Re : CommandButton visible

re

comme le dit Hasco 😉 "Faire simple..."; un exemple sans 36 000 boutons et une maintenance des plus réduites .