Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Changement de couleur d'un bouton de commande

 

126 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
 Mot :  Pseudo :  
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Changement de couleur d'un bouton de commande

Prévenir les modérateurs en cas d'abus 
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 02/01/2019 à 10:52:28  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr ts et mlrs vx 2019

Dans un petit pgm sous Excel 2007, il y a un log listing qui nécessite un découpage en 3 parties pour tout imprimer en 3 parties.
J'ai donc fait 3 macros correspondant aux 3 parties.
https://www.cjoint.com/c/IAcjK​nUnpCK
Voici les 3 macros:
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub ImpressionP1()
  2. '
  3. ' ImpressionP1 Macro
  4. '
  5. '
  6.  ActiveSheet.Unprotect
  7.  Range("B3:F36").Select
  8.  ActiveSheet.PageSetup.PrintArea = "$B$3:$F$36"
  9.  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  10.    , AllowFormattingCells:=True
  11.  Range("A4").Select
  12. End Sub
  13.  
  14. Sub ImpressionP2()
  15. '
  16. ' ImpressionP1 Macro
  17. '
  18. '
  19.  ActiveSheet.Unprotect
  20.  Range("B37:F63").Select
  21.  ActiveSheet.PageSetup.PrintArea = "$B$37:$F$63"
  22.  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  23.    , AllowFormattingCells:=True
  24.  Range("A4").Select
  25. End Sub
  26.  
  27. Sub ImpressionP3()
  28. '
  29. ' ImpressionP1 Macro
  30. '
  31. '
  32.  ActiveSheet.Unprotect
  33.  Range("B64:F90").Select
  34.  ActiveSheet.PageSetup.PrintArea = "$B$64:$F$90"
  35.  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  36.    , AllowFormattingCells:=True
  37.  Range("A4").Select
  38. End Sub

J'aimerais faire en sorte que le bouton choisi pour la plage à imprimer change de couleur quand celui ci est appliqué afin de savoir quelle plage est prête à être imprimée.
Est ce possible ?
Merci

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 02/01/2019 à 21:25:10
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 02/01/2019 à 14:07:30  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bjr nanard
pour colorer ton bouton de vert à rouge te propose ceci

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub CommandButton1_Click()
  2. ici ta macro P1....
  3.  
  4. If CommandButton1.BackColor = RGB(250, 0, 0) Then CommandButton1.BackColor = RGB(0, 250, 0) Else CommandButton1.BackColor = RGB(250, 0, 0)
  5. End Sub


puis fais un test
 :hello:
Message cité 1 fois

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 03/01/2019 à 11:24:08  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

willyplaisir a écrit :

Bjr nanard
pour colorer ton bouton de vert à rouge te propose ceci

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub CommandButton1_Click()
  2. ici ta macro P1....
  3.  
  4. If CommandButton1.BackColor = RGB(250, 0, 0) Then CommandButton1.BackColor = RGB(0, 250, 0) Else CommandButton1.BackColor = RGB(250, 0, 0)
  5. End Sub


puis fais un test
 :hello:
Afficher plus
Afficher moins



Salut Willy

J'ai modifié la commande 1:

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub ImpressionP1()
  2. '
  3. ' ImpressionP1 Macro
  4. '
  5. '
  6.  ActiveSheet.Unprotect
  7.  Range("B3:F36").Select
  8.  ActiveSheet.PageSetup.PrintArea = "$B$3:$F$36"
  9.  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  10.    , AllowFormattingCells:=True
  11.  Range("A4").Select
  12. End Sub

par:
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub CommandButton1_Click()
  2. '
  3. ' ImpressionP1 Macro
  4. '
  5. '
  6.  ActiveSheet.Unprotect
  7.  Range("B3:F36").Select
  8.  ActiveSheet.PageSetup.PrintArea = "$B$3:$F$36"
  9.  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  10.    , AllowFormattingCells:=True
  11.  Range("A4").Select
  12.  
  13.  If CommandButton1.BackColor = RGB(250, 0, 0) Then
  14.    CommandButton1.BackColor = RGB(0, 250, 0)
  15.  Else
  16.    CommandButton1.BackColor = RGB(250, 0, 0)
  17.  End If
  18. End Sub


et cela ne marche pas. Surement des erreurs de ma part ???

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 03/01/2019 à 19:21:28
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 03/01/2019 à 13:15:36  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr

oui c'est normal que ça bug car tu n'as pas crée le bouton activex (rien à voir avec le bouton formulaire)

voir le fichier ci-joint
http://hebergeurfichier.com/do [...] 0c2e2.html

 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 03/01/2019 à 22:15:37  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
RE

Un pb … le téléchargement ne se fait pas …

"téléchargement en cours" et rien ne vient.
Bizarre !

(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 04/01/2019 à 09:55:13  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr

Bizarre le premier lien fonctionne chez moi.
voici un autre lien
https://www.cjoint.com/c/IAei1​vymJsW

tu enregistres d'abord le fichier dans un dossier et ensuite tu l'ouvres
willy
Message cité 1 fois
Message édité par willyplaisir le 04/01/2019 à 09:56:19

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 04/01/2019 à 10:12:37  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

willyplaisir a écrit :

bjr

Bizarre le premier lien fonctionne chez moi.
voici un autre lien
https://www.cjoint.com/c/IAei1​vymJsW

tu enregistres d'abord le fichier dans un dossier et ensuite tu l'ouvres
willy
Afficher plus
Afficher moins



Bjr
Pb d'ouverture. J'ai modifié l'extension xlsx en xlsm et maintenant tout ok.
Merci c'est parfait et satisfait.
Dès que possible je vais faire la modif dans mon pgm

Merci encore

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 04/01/2019 à 14:40:50  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Avec plaisir
@+
Message cité 1 fois

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 10/01/2019 à 11:20:25  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

willyplaisir a écrit :

Avec plaisir
@+
Afficher plus
Afficher moins



Hello Willy
J'ai travaillé sur les boutons sur ta feuille Excel avant de l'incorporer dans mon "Agenda" …
Pas évident pour moi, pauvre néophyte !!!
Le pb est que le bouton reste rouge quand on change de plage … il serait bien qu'en changeant de plage le bouton de la commande pcdte passe au vert de telle sorte que seul le bouton de la plage choisie reste rouge. C'est possible ??
Sinon pas grave je conserve les macros plus classiques.
Si necessaire STP utilise cjoint …
Ton exemple retouché :
https://www.cjoint.com/c/IAkkf​eeU0LK
A+

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 11/01/2019 à 11:00:31  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
b jr
teste ceci
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub CommandButton1_Click()
  2. ' ImpressionP1 Macro
  3.  ActiveSheet.Unprotect
  4.  
  5. If Selection.Address = "$B$3:$F$36" Then
  6.   MsgBox "$B$3:$F$36"
  7.   ActiveSheet.PageSetup.PrintArea = "$B$3:$F$36"
  8.   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  9.    , AllowFormattingCells:=True
  10.  
  11.  CommandButton1.BackColor = RGB(250, 0, 0) 'rouge
  12.  
  13. Else
  14.   MsgBox Selection.Address
  15.   CommandButton1.BackColor = RGB(0, 250, 0) 'vert
  16.   ActiveSheet.PageSetup.PrintArea = Selection.Address
  17.   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  18.    , AllowFormattingCells:=True
  19.  End If
  20.  
  21.  Range("A4").Select
  22.  ActiveSheet.Protect
  23. End Sub

 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 12/01/2019 à 10:43:01  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr Willy

non cela ne marche pas.
Ce n'est pas grave je vais passer à des macros classiques sans me préoccuper à des changements de couleurs…
Je te remercie pour tes interventions et au plaisir

Bonne journée

(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
Commande linux Open Camera, bouton déclencheur
Problème de changement de carte SSD sur ASUS. Sauvegarder l'activation de windows 10 même si changement de matériel
Ecran noir après changement de thème et impossible de restaurer Ecran noir après changement de résolution
Patch Tuesday : 5 failles critiques et un changement de rythme changer couleur des fichiers
Plus de sujets relatifs à : Changement de couleur d'un bouton de commande

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
formule libre office pour planning 5
Fichier verrouillé 7
Problème fonction tarif ne fonctionne pas 4
Création d'une formule Excel 2
Cellule réferentielle pour macro 4