Colorer les cellules

Bonjour,

J'ai un tableau de présentéisme (agents d'un service), et chacun d'eux doit pouvoir saisir ses différentes absences en fonction de leur nature (congés, RTT, déplacement, formation, temps partiel, maladie, syndicat, etc.)

Ci-joint le fichier en l'état actuel (qui ne me convient pas).

Ce que je voudrais, c'est que chacun puisse en cliquant sur une cellule ou en sélectionnant une ensemble de cellules lui attribuer la couleur voulue à partir d'une palette incluse dans la feuille (cellules protégées).

Merci de votre aide et n'hésitez pas à poser vos questions

Bonjour,

Peut-être que cette démo pourras t'aidé

A+

Bonjour,

Désolé, je ne peux pas ouvrir le lien :

"La page Web ne pas être affichée"

Merci.

Sais pas ce qui c'est passer, j'ai rectifier le lien.

A+

Bonjour,

Merci, mais je recherche quelque chose de simple en partant de ma feuille existante. Du style : je sélectionne une couleur dans la palette et je l'applique à ma sélection de cellules.

A +

Help ! (Bonjour !) Cela ne doit pas être bien difficile. Exemple : je sélectionne ma (mes) cellule(s) dans le tableau, je clique sur une cellule colorée en bleu, la zone sélectionnée se colore en bleu; je clique sur une cellule blanche, la zone sélectionnée se colore en blanc; je clique sur une cellule orange, la zone sélectionnée se colore en orange.

J'avais un tableau qui avait ces fonctionnalités, mais il est HS.

Merci à toutes les bonnes volontés. Cela commence à urger, j'en ai besoin pour la semaine prochaine.

Bonsoir

A tester

Comme je suis avec XL 2003

Remplaces Range("D3:IV30") par Range("D3:OH30")

Macro à mettre en place dans le module de feuil1

clic droit sur l'onglet de la feuille ---> Visualiser le code

Tu remplaces la macro existante par celle-ci

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static Plage As Range

  If Not Application.Intersect(Target,Range("D3:IV30")) Is Nothing Then
    Set Plage = Intersect(Target, Range("D3:IV30"))
  ElseIf Not Application.Intersect(Target, Range("B35:B42")) Is Nothing Then
    If Not Plage Is Nothing Then
      Plage.Interior.color = Target.Interior.color
      Set Plage = Nothing
    End If
  End If
End Sub

Bonsoir,

Désolé, cela ne fait rien.

Bonjour

CHALUMEAU a écrit :

Désolé, cela ne fait rien.

Heuuh un peu simple comme diagnostic

Comment utilises tu ton programme ?

CHALUMEAU a écrit :

Exemple : je sélectionne ma (mes) cellule(s) dans le tableau, je clique sur une cellule colorée en bleu, la zone sélectionnée se colore en bleu; je clique sur une cellule blanche, la zone sélectionnée se colore en blanc; je clique sur une cellule orange, la zone sélectionnée se colore en orange.

La macro fonctionne dans ce sens

Bonjour,

Je sélectionne ma plage, je clique sur B35 : rien.

Je n'ai peut-être pas copié le code où il fallait.

Bonjour

Ton fichier avec la macro

Bonjour,

En recherchant dans le forum j'ai trouvé quelque chose qui me conviendrait :

par apt » 17 Nov 2012, 17:43

A adapter à mon tableau, évidemment.

Pour la saisie des absences, la règle est : jours ouvrés seulement (w-e et fériés déjà coloriés : à neutraliser si possible).

Prévoir remise à blanc de la saisie si erreur.

Par la suite, j'aimerais que la saisie soit effectuée mois par mois et reportée automatiquement dans une feuille annuelle. Ou bien que la saisie effectuée dans la feuille annuelle soit reportée automatiquement dans des feuilles mensuelles.

Merci.

Merci à toi Banzai64.

Cela me convient tout à fait.

Bonnes Fêtes.