Afficher / masquer bouton de commande
Résolu
hakimr
Messages postés
259
Date d'inscription
Statut
Membre
Dernière intervention
-
hakimr Messages postés 259 Date d'inscription Statut Membre Dernière intervention -
hakimr Messages postés 259 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
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
A voir également:
- Excel afficher masquer ligne bouton + -
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Partager photos en ligne - Guide
- Word et excel gratuit - Guide
- Formule somme excel ligne - Guide
9 réponses
Bonjour,
Ceci devrait le faire
Ceci devrait le faire
If [C7].Value = 12 Then
CommandButton2.Visible = True
Else
CommandButton2.Visible = False
End If
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
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
Bonjour
j'ai essayer mais ça n'a pas marché
j'ai essayer mais ça n'a pas marché
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é".
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é".
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
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
Quand l'on veut programmer il faut être très précis et respecter les appellations.
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.
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
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
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.
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.
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?
pourquoi? et est ce possible de casher le bouton complet?
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
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
