VB couleur bouton sur feuille
Résolu/Fermé
A voir également:
- VB couleur bouton sur feuille
- Somme si couleur - Guide
- Vb cable - Télécharger - Audio & Musique
- Excel couleur conditionnelle - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Vb - Télécharger - Langages
6 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
27 févr. 2009 à 09:19
27 févr. 2009 à 09:19
Bonjour,
C'est la même chose que dans l'UF sauf que tu doit spécifier la feuille si tu n'est pas dans le module de la feuille.
A+
C'est la même chose que dans l'UF sauf que tu doit spécifier la feuille si tu n'est pas dans le module de la feuille.
'en rouge Sheets("Feuil1").CommandButton1.BackColor = 255
A+
Merci Lermite222, j'ai mis ta ligne de code dans ma macro mais ça ne marche pas. Je pense que c'est le nom de ma macro qui ne va pas avec CommandButton1 ...
Voici le code de ma macro
Sub Sélect_durée_7_ans()
'
' Sélect_durée_7_ans Macro
' Macro enregistrée le 21/02/2009 par Utilisateur
'
Range("d8").Select
ActiveCell = 7
Range("h8").Select
contenu = ActiveCell
Range("d9").Select
ActiveCell = contenu
Sheets("Feuil1").CommandButton1.BackColor = 255
'
End Sub
Quand je lance la macro j'ai : "erreur d'exécution 9, l'indice n'appartient pas à la sélection"
Voici le code de ma macro
Sub Sélect_durée_7_ans()
'
' Sélect_durée_7_ans Macro
' Macro enregistrée le 21/02/2009 par Utilisateur
'
Range("d8").Select
ActiveCell = 7
Range("h8").Select
contenu = ActiveCell
Range("d9").Select
ActiveCell = contenu
Sheets("Feuil1").CommandButton1.BackColor = 255
'
End Sub
Quand je lance la macro j'ai : "erreur d'exécution 9, l'indice n'appartient pas à la sélection"
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
27 févr. 2009 à 15:04
27 févr. 2009 à 15:04
Bien entendu... Tu doit remplacer Feuil1 par le nom de ta feuille (onglet)
Et tu peu simplifier par..
Sélect_durée_7_ans()
Range("d8") = 7
Range("d9") = Range("h8")
Sheets("C'est içi queTuMetLeNomDeTaFeuille").CommandButton1.BackColor = 255
End Sub
Et tu peu simplifier par..
Sélect_durée_7_ans()
Range("d8") = 7
Range("d9") = Range("h8")
Sheets("C'est içi queTuMetLeNomDeTaFeuille").CommandButton1.BackColor = 255
End Sub
J'ai bien pris en compte tes remarques pour l'affectation des cellules et t'en remercie (c'est plus simple comme ça !) mais en ce qui concerne mon bouton je suis désolé, ça ne marche toujours pas.
Voici le code remanié
Sub Sélect_durée_7_ans()
'
' Sélect_durée_7_ans Macro
' Macro enregistrée le 21/02/2009 par Utilisateur
'
Range("d8") = 7
Range("d9") = Range("h8")
Sheets("Général").CommandButton1.BackColor = 255
'
End Sub
Maintenant j'ai :"erreur d'exécution 438, propriété ou méthode non gérée par cet objet"
Voici quelques constatations que j'ai pu faire :
Quand je crée un bouton avec UserForm il s'appelle par défaut : CommandButton1
-----------------------------directement sur la feuille il s'appelle par défaut : Bouton1_QuandClic
J'ai pris un classeur vierge, sur feuil1 j'ai dessiné un bouton puis ai affecté une macro (j'ai laissé le nom de macro proposé par défaut), voici le code de mes 2 essais :
Sub Bouton1_QuandClic()
Sheets("Feuil1").CommandButton1.BackColor = 255
End Sub
et
Sub Bouton1_QuandClic()
Sheets("Feuil1").Bouton1_QuandClic.BackColor = 255
End Sub
ni l'un ni l'autre ne marchent et ils retournent la même erreur 438 !
D'autre part j'ai vu qu'il était possible sur la feuille de changer la couleur de l'écriture du bouton mais que l'on n'avait pas accés à sa couleur de fond ! ?
J'ai essayé alors en remplacant BackColor par ForeColor ====> erreur 438
As tu une solution ? Où est mon erreur ?
Voici le code remanié
Sub Sélect_durée_7_ans()
'
' Sélect_durée_7_ans Macro
' Macro enregistrée le 21/02/2009 par Utilisateur
'
Range("d8") = 7
Range("d9") = Range("h8")
Sheets("Général").CommandButton1.BackColor = 255
'
End Sub
Maintenant j'ai :"erreur d'exécution 438, propriété ou méthode non gérée par cet objet"
Voici quelques constatations que j'ai pu faire :
Quand je crée un bouton avec UserForm il s'appelle par défaut : CommandButton1
-----------------------------directement sur la feuille il s'appelle par défaut : Bouton1_QuandClic
J'ai pris un classeur vierge, sur feuil1 j'ai dessiné un bouton puis ai affecté une macro (j'ai laissé le nom de macro proposé par défaut), voici le code de mes 2 essais :
Sub Bouton1_QuandClic()
Sheets("Feuil1").CommandButton1.BackColor = 255
End Sub
et
Sub Bouton1_QuandClic()
Sheets("Feuil1").Bouton1_QuandClic.BackColor = 255
End Sub
ni l'un ni l'autre ne marchent et ils retournent la même erreur 438 !
D'autre part j'ai vu qu'il était possible sur la feuille de changer la couleur de l'écriture du bouton mais que l'on n'avait pas accés à sa couleur de fond ! ?
J'ai essayé alors en remplacant BackColor par ForeColor ====> erreur 438
As tu une solution ? Où est mon erreur ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
28 févr. 2009 à 00:56
28 févr. 2009 à 00:56
Tu a pris un bouton de la boite à outils Formulaire, essaye avec la boite à outils Contrôles.
Ca va aller :-)
Ca va aller :-)