Afficher / masquer bouton de commande

Résolu
hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   -  
hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   -
Bonsoirr,
dans une feuille de calcul j'ai créer deux boutons (boton1 et bouton2) relies chacun a une macro qu'est ce que je peu écrire dans procédure bouton1 pour afficher bouton 2 que l'osque valeur de laceelule C7=12
merci d'avance pour votre aide

9 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    Bonjour,

    Ceci devrait le faire 
        If [C7].Value = 12 Then
        CommandButton2.Visible = True
    Else
        CommandButton2.Visible = False
    End If
    0
  2. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
     
    Bonsoir
    j'attire votre attention que :
    Bouton 1 nommé mois suivant, attaché a une macro : ZoneTexte58_Clic
    Bouton 2 nommé Clôture, attaché a une macro : Groupe59_QuandClic
    merci pour votre réponse rapide
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonjour,

      Merci de la précision car ma boule de cristal ne fonctionne pas mais je pense qu'en remplaçant "CommandButton2" par "Groupe59" cela devrait le faire.
      0
  3. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
     
    Bonjour
    j'ai essayer mais ça n'a pas marché
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonjour,

      Il faut être positionné dans la bonne feuille mais quand tu écris "ça n'a pas marché" cela ne fait en aucune manière avancer le débat car je te répète que ma boule de cristal ne fonctionne pas !
      0
  4. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
     
    j'ai écrit dans bouton 1
    Sub ZoneTexte58_Clic()
    Dim dlg As FileDialog
    Dim i As Integer
    ActiveSheet.Copy after:=Sheets(Sheets.Count)
    [c7].Value = [c7].Value + 1
    If [c7].Value = 13 Then
    [c7].Value = 1
    [A6].Value = [A6].Value + 1
    End If
    [A843].Value = [C843].Value
    test = Application.Proper(Format(Range("e779"), "mmm-yyyy"))
    ActiveSheet.Name = test
    If [C7].Value = 12 Then
    Groupe59.Visible = True
    Else
    Groupe59.Visible = False
    End If
    End Sub
    lorsque j'exécute le bouton (bouton1) il me dit :
    Erreur d'exécution '424' :
    Objet requis
    au niveau :Groupe59.Visible = True
    j'utilise - Excel 2003 - (11.0) - Automne 2003
    merci pour votre attention et pardon de "ça n'a pas marché".
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonjour,

      En fait, ce que tu appelles un "bouton" n'en est pas un car c'est plus précisément un objet cliquable et dans ce cas là, il faut préciser ainsi : 
          If [C7].Value = 12 Then
        ActiveSheet.Shapes("Groupe59").Visible = True
    Else
        ActiveSheet.Shapes("Groupe59").Visible = False
    End If
      1

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
     
    Re :
    au niveau compilation
    Erreur d'exécution "des numéros".....
    l’élément portant ce nom est introuvable.
    j'ai essayé avec :Groupe59_QuandClic et avec .enabled et le m^résultat.
    voila le fichié :https://www.cjoint.com/c/GGknRPzHBfP
    merci pour votre aide.
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonsoir hakimr,

      Si j'écris ton pseudo 'haki mr' le site ne le trouvera pas non plus !
      Ton objet ne s'appelle pas "Groupe59" mais "Groupe 59", donc il faut mettre 
          If [C7].Value = 12 Then
        ActiveSheet.Shapes("Groupe 59").Visible = True
    Else
        ActiveSheet.Shapes("Groupe 59").Visible = False
    End If

      Quand l'on veut programmer il faut être très précis et respecter les appellations.
      0
  7. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
     
    re
    j'ai écrit encore
    Dim b1 As Button
    If [c7].Value <> 12 Then
    Set b1 = ActiveSheet.Buttons("Groupe59")
    b1.Enabled = False
    End If
    et toujours la m^chose
    Erreur au niveau compilation
    impossible de lire commande buttons de la classe worksheet
    0
  8. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
     
    oui effectivement
    maintenant ça marche, mais au lieu de cacher le bouton "Clôture", c'est le bouton du "Tableau" qui ce cache. pouvez vous m'aider pour régler cette astuce, je vous rappelle que je suis débitant en VBA.
    bouton tableau c'est pour accéder directement a la ligne A818 a l'aide de lien hypertexte pour remplir le tableau.
    merci beaucoup.
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      c'est le bouton du "Tableau" qui ce cache
      Parce qu'il s'appelle "Groupe 59" alors que "Clôture" s'appelle "ZoneTexte 58"

      Je t'ai renommé tes objets avec le libellé affiché, ce devrait être plus simple de t'y retrouver.

      http://www.cjoint.com/c/GGkvvqcWIjl
      0
  9. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
     
    oui merci, c'est plus simple et plus correct , mais le mot Clôture qui ce câhe et ce n'est pas le bouton complet
    pourquoi? et est ce possible de casher le bouton complet?
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonjour,

      Au lieu d'empiler les objets et de les grouper, avec des objets simples, c'est plus normal et plus utilisable.

      https://www.cjoint.com/c/GGlgwyYG7Kl
      0
  10. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
     
    Bonjour
    ça marche très bien merci beaucoup pour votre assistance et pour votre aide
    Bonne journée
    0

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses
Bouton ON/OFF : O ou I, quel côté est allumé
Stargirlfr -
kaparzo23 -

12 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses
Probleme d'affichage de ligne dans Excel
sammy79 -
Pierre65 -

12 réponses
Où est la touche SHIFT sur mon clavier d'ordi ?
joe! -
fernando-_ytb -

18 réponses