VBA - Macro bouton qui s'applique à la plage de cellules sélectionnée
Bonjour,
J'ai réalisé à l'aide de boutons des petites macros sur un planning automatique.
Je rencontre deux problèmes :
- Le premier : Les boutons CP, Maladie et autres ne s'appliquent qu'à une seule cellule. Je souhaiterais qu'en sélectionnant une plage de cellules à l'aide de la souris et en cliquant sur le bouton, la macro s'applique à l'ensemble des cellules.
- Le second : Le bouton "effacer planning" supprime bien les données complétées dans le planning. Seulement si le bouton "nuit" a été appliqué auparavant dans une cellule, lors d'une nouvelle saisie, cette dernière conserve la mise en forme appliquée par le bouton "nuit". Je souhaite qu'en cliquant sur "effacer planning" la cellule redevienne neutre (fond blanc et écriture noire automatique).
Comment appliquer ces deux paramètres?
J'ai trouvé pour le second point :
Sub Effacer()
Worksheets("Planning").Range("D10:AH80").ClearContents
Worksheets("Planning").Range("D10:AH80").Interior.ColorIndex = 0
Worksheets("Planning").Range("D10:AH80").Font.ColorIndex = 1
End Sub
Quelqu'un pour m'aider à résoudre le premier svp?
Hello
Fallait remplacer ActiveCell par selection =D Tu sélectionnes une plage et t'exécutes ta macro et ça marche
Passe le sujet en résolu si c'est OK
@+