Afficher / masquer bouton de commande
Résolu/Fermé
hakimr
Messages postés
209
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
15 avril 2024
-
9 juil. 2017 à 22:22
hakimr Messages postés 209 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 15 avril 2024 - 11 juil. 2017 à 08:56
hakimr Messages postés 209 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 15 avril 2024 - 11 juil. 2017 à 08:56
A voir également:
- Excel afficher masquer ligne bouton + -
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Masquer conversation whatsapp - Guide
- Formule excel - Guide
- Apparaitre hors ligne instagram - Guide
9 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
9 juil. 2017 à 22:35
9 juil. 2017 à 22:35
Bonjour,
Ceci devrait le faire
Ceci devrait le faire
If [C7].Value = 12 Then CommandButton2.Visible = True Else CommandButton2.Visible = False End If
hakimr
Messages postés
209
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
15 avril 2024
4
9 juil. 2017 à 23:14
9 juil. 2017 à 23:14
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
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
10 juil. 2017 à 08:03
10 juil. 2017 à 08:03
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.
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.
hakimr
Messages postés
209
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
15 avril 2024
4
10 juil. 2017 à 08:47
10 juil. 2017 à 08:47
Bonjour
j'ai essayer mais ça n'a pas marché
j'ai essayer mais ça n'a pas marché
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
10 juil. 2017 à 11:44
10 juil. 2017 à 11:44
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 !
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 !
hakimr
Messages postés
209
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
15 avril 2024
4
Modifié le 10 juil. 2017 à 13:03
Modifié le 10 juil. 2017 à 13:03
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é".
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
10 juil. 2017 à 13:38
10 juil. 2017 à 13:38
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 :
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
hakimr
Messages postés
209
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
15 avril 2024
4
Modifié le 10 juil. 2017 à 15:46
Modifié le 10 juil. 2017 à 15:46
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.
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
10 juil. 2017 à 21:29
10 juil. 2017 à 21:29
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.
hakimr
Messages postés
209
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
15 avril 2024
4
Modifié le 10 juil. 2017 à 20:39
Modifié le 10 juil. 2017 à 20:39
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
hakimr
Messages postés
209
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
15 avril 2024
4
Modifié le 10 juil. 2017 à 23:17
Modifié le 10 juil. 2017 à 23:17
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.
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
10 juil. 2017 à 23:21
10 juil. 2017 à 23:21
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
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
hakimr
Messages postés
209
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
15 avril 2024
4
Modifié le 11 juil. 2017 à 00:18
Modifié le 11 juil. 2017 à 00:18
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?
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
11 juil. 2017 à 08:22
11 juil. 2017 à 08:22
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
hakimr
Messages postés
209
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
15 avril 2024
4
11 juil. 2017 à 08:56
11 juil. 2017 à 08:56
Bonjour
ça marche très bien merci beaucoup pour votre assistance et pour votre aide
Bonne journée
ça marche très bien merci beaucoup pour votre assistance et pour votre aide
Bonne journée