Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Probleme de macro pour créer un bouton de couleur

cycou

XLDnaute Junior
Bonjour

Je voudrais créer un bouton de couleur pour ensuite colorier les cellules voulus.

Je met en visual basic la formule

Private Sub CommandButton1_Click()
' JAUNE Macro
Selection.Interior.ColorIndex = 6
End Sub

Cela ne marche pas. Une fenetre erreure d'execution "438" apparait
 

cycou

XLDnaute Junior
Re : Probleme de macro pour créer un bouton de couleur

je suis novice dans les macros

peux tu me donner ta procédure pour ce code

Ex Bouton en A1 et colorier les cellules de la zone A2;A10 en fonction

Merci

Cordialement
 

Pierrot93

XLDnaute Barbatruc
Re : Probleme de macro pour créer un bouton de couleur

Re,

le code doit être placé dans le module de la feuille concernée... click droit sur l'onglet => visualiser le code et tu le colles...
 

cycou

XLDnaute Junior
Re : Probleme de macro pour créer un bouton de couleur

Merci beaucoup cela fonctionne.

Existe-t-il un code pour grâce à ce bouton me permet de colorier que des cellules voulues sur plusieurs lignes

Ex: de la ligne E6,M6; E14, M14 et E25, M25
 

cycou

XLDnaute Junior
Re : Probleme de macro pour créer un bouton de couleur

je vais etre chiant :/

Cela fonctionne mais je voudrais les selectionner cellule par cellule pas la ligne entière mais rester que sur ces lignes
 

cycou

XLDnaute Junior
Re : Probleme de macro pour créer un bouton de couleur

Je t'envoie le debut cela reste encore un brouillon

En gros j'aimerais: Le membre 1 qui comprend la ligne E66; E1010, E1414...
Je voudrais délimiter cette couleur qui est le jaune à ces lignes là.
 

Pièces jointes

  • Classeur1.xlsx
    14.9 KB · Affichages: 77
  • Classeur1.xlsx
    14.9 KB · Affichages: 87
  • Classeur1.xlsx
    14.9 KB · Affichages: 73

Modeste geedee

XLDnaute Barbatruc
Re : Probleme de macro pour créer un bouton de couleur

Bonsour®
pour executer des macros il faut que le classeur posséde l'extention .xls ou bien .xlsm

pour selectionner des plages discontinues il faut maintenir la touche Ctrl enfoncée pendant les selections.
pour selectionner une plage unique , il faut maintenir la touche Maj enfoncée en selectionnant les cellules Haut-Gauche puis Bas droit

affecter cette macro(module standard) aux objets (boutons ou autres) déclenchant la mise en couleur des cellules sélectionnées, la couleur de remplissage sera la couleur de l'objet déclencheur.


Sub Clic()
Selection.Interior.Color = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB
End Sub
 

Pièces jointes

  • Classeur1.xls
    90 KB · Affichages: 64
  • Classeur1.xls
    90 KB · Affichages: 77
  • Classeur1.xls
    90 KB · Affichages: 72
  • Capture.JPG
    35.9 KB · Affichages: 332
  • Capture.JPG
    35.9 KB · Affichages: 332

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…