XL 2010 macro couleur tableau

JBARBE

XLDnaute Barbatruc

• 6 Mars 2020

• #2

Bonjour à tous,
En double cliquant dans une cellule( choix : effacer - couleurs )
Bonne journée

 

Pièces jointes

• calendrier événementiel.xlsm

  887.6 KB · Affichages: 7

Dernière édition: 6 Mars 2020

Vote positif 0 Vote négatif

C

coke2a

Guest

• 6 Mars 2020

• #3

Bonjour et merci pour votre aide mais, je voudrais que toute les cellules d'une même couleur disparaissent en même temps du tableau.

Bonne fin de journée

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 6 Mars 2020

• #4

Re,
J'ai créé un bouton EFFACER rouge !
Il suffit de sélectionner les cellules à effacer ( couleur et saisie ) et de cliquer sur le bouton !
Par ailleurs s'il ne faut pas supprimer la saisie supprimer cette ligne de macro :
Selection = "" ' à supprimer s'il ne faut pas supprimer la saisie

VB:

Sub effacer()
Reponse = MsgBox("Voulez-vous EFFACE", vbYesNo + vbInformation, "Attention")
 If Reponse = vbYes Then
 Selection.Interior.ColorIndex = xlNone
 Selection = "" ' à supprimer s'il ne faut pas supprimer la saisie
 Selection.Interior.PatternColorIndex = xlAutomatic
 End If
End Sub

Bonne soirée !

 

Pièces jointes

• calendrier événementiel.xlsm

  889 KB · Affichages: 1

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 6 Mars 2020

• #5

Re,
J'ai supprimé le double clic qui ne pouvait concerner qu'une cellule à la fois (on ne peut faire autrement )!
Maintenant en cliquant sur les petits boutons GO à coté de chaque couleur ( ligne 2), l'on peut sélectionner plusieurs cellules concernées afin de les colorier !
Bonne soirée !

 

Pièces jointes

• calendrier événementiel.xlsm

  892.8 KB · Affichages: 9

Vote positif 0 Vote négatif