Effacement tableau MFC

Le
FREDSCOPE
Bonjour,

J'ai créé (avec l'aide active des membres de ce forums) un planning
avec Mises en forme conditionnelles et possibilité de saisie des
motifs d'absence (Lettre + couleur automatique - Module de JCB).

Je cherche le moyen de réinitilaiser à la demande mon planning sur la
plage déterminée (Mon du champ = ChampMFC). J'ai bien essayé de cr=
éer
une macro qui efface le contenu des cellule (Uniquement les valeurs),
mais de ce fait les couleurs restent en place. L'effacement des format
efface bien les couleurs, mais également les MFC.

La seule solution que j'ai trouvé est de créer une ligne vide avec la
mise en forme conditionnelle souhaitée en dehors du tableau et de
faire un copier/coller sur la zone. C'est pas génial. Ca marche, mais
je pense qu'il y a mieux à faire.

Quelqu'un pourrait t'il me donner une piste sur la façon de procéder.

Exemple de planning ci-joint : http://www.cijoint.fr/cjlink.php?file=cj200=
803/cijmpowSNF.xls

Merci pour votre aide
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5190331
Bonjour,

-J'ai agrandi le champ CouleurMFC avec une cellule vierge (si on
efface une cellule, la couleur disparait)

- On peut sélectionner un champ et appuyer sur Suppr
(Les couleurs disparaissent)

If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Target.Count > 1 And Not témoin Then
For Each c In Target
If IsEmpty(c) Then c.Interior.ColorIndex = xlNone
Next c
End If

http://cjoint.com/?dtsTactp5Y

JB


On 19 mar, 18:18, FREDSCOPE
Bonjour,

J'ai créé (avec l'aide active des membres de ce forums) un planning
avec Mises en forme conditionnelles et possibilité de saisie des
motifs d'absence (Lettre + couleur automatique - Module de JCB).

Je cherche le moyen de réinitilaiser à la demande mon planning sur la
plage déterminée (Mon du champ = ChampMFC). J'ai bien essayé de cr éer
une macro qui efface le contenu des cellule (Uniquement les valeurs),
mais de ce fait les couleurs restent en place. L'effacement des format
efface bien les couleurs, mais également les MFC.

La seule solution que j'ai trouvé est de créer une ligne vide avec la
mise en forme conditionnelle souhaitée en dehors du tableau et de
faire un copier/coller sur la zone. C'est pas génial. Ca marche, mais
je pense qu'il y a mieux à faire.

Quelqu'un pourrait t'il me donner une piste sur la façon de procéder.

Exemple de planning ci-joint :http://www.cijoint.fr/cjlink.php?file=cj20 0803/cijmpowSNF.xls

Merci pour votre aide


JB
Le #5190321
Une autre version avec Barre d'outils: + rapide si plusieurs jours à
saisir

http://boisgontierjacques.free.fr/pages_site/dates.htm#PlanningBO

JB

On 19 mar, 18:18, FREDSCOPE
Bonjour,

J'ai créé (avec l'aide active des membres de ce forums) un planning
avec Mises en forme conditionnelles et possibilité de saisie des
motifs d'absence (Lettre + couleur automatique - Module de JCB).

Je cherche le moyen de réinitilaiser à la demande mon planning sur la
plage déterminée (Mon du champ = ChampMFC). J'ai bien essayé de cr éer
une macro qui efface le contenu des cellule (Uniquement les valeurs),
mais de ce fait les couleurs restent en place. L'effacement des format
efface bien les couleurs, mais également les MFC.

La seule solution que j'ai trouvé est de créer une ligne vide avec la
mise en forme conditionnelle souhaitée en dehors du tableau et de
faire un copier/coller sur la zone. C'est pas génial. Ca marche, mais
je pense qu'il y a mieux à faire.

Quelqu'un pourrait t'il me donner une piste sur la façon de procéder.

Exemple de planning ci-joint :http://www.cijoint.fr/cjlink.php?file=cj20 0803/cijmpowSNF.xls

Merci pour votre aide


FREDSCOPE
Le #5190311
Superbe. Ca semble tellement si simple quand JB, ainsi que les autres
contributeurs de ce foums, donnent une réponse. Un grand merci.

J'en profite au risque d'abuser, pour vous demander, s'il est possible
de remplir automatiquement une zone AVEC les couleurs associées
lorsqu'on sélectionne une zone (par exemple une semaine), je frappe C
pour Congés et Ctrl-Entrée. Le C se copie bien sur la zone
sélectionnée, mais pas la couleur.

Est t'il possible de prendre en compte cette possibilité de windows
dans le code développé.

Merci pour votre réponse.
FREDSCOPE
Le #5190301
Bonsoir,

Encore plus fort. Non seulement vous donnez d'excellentes réponses,
mais en plus vous devinez qu'elle va être ma prochaine question. J'ai
bien essayé la barre d'outils que vous m'aviez indiqué il y a
plusieurs mois, mais plusieurs demes utilisteurs ne trouvent pas ça
très pratique.

Merci de nouveau pour votre aide.


Fred
JB
Le #5225751
Pas testé: http://cjoint.com/?dttTYwitKI

Dim témoin
Private Sub Worksheet_Change(ByVal Target As Range)

' **** Champ nommé ChampMFC défini sur la même feuille sous la forme
C3:AG35 par exemple
' If Not Intersect(Target, Range("C3:AG37")) Is Nothing And
Target.Count = 1 And Not témoin Then

If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Not témoin Then
témoin = True
For Each c In Target
c.Interior.ColorIndex = xlNone
For Each col In Range("couleursMFC")
If UCase(c) = UCase(col.Value) Then
c.Interior.ColorIndex = col.Interior.ColorIndex
End If
Next col
Next c
témoin = False
End If

If Not Intersect(Target, Range(Range("ChampMFC"))) Is Nothing And
Target.Count > 1 And Not témoin Then
For Each c In Target
If IsEmpty(c) Then c.Interior.ColorIndex = xlNone
Next c
End If
End Sub




JB

On 19 mar, 19:06, FREDSCOPE
Superbe. Ca semble tellement si simple quand JB, ainsi que les autres
contributeurs de ce foums, donnent une réponse. Un grand merci.

J'en profite au risque d'abuser, pour vous demander, s'il est possible
de remplir automatiquement une zone AVEC les couleurs associées
lorsqu'on sélectionne une zone (par exemple une semaine), je frappe C
pour Congés et Ctrl-Entrée. Le C se copie bien sur la zone
sélectionnée, mais pas la couleur.

Est t'il possible de prendre en compte cette possibilité de windows
dans le code développé.

Merci pour votre réponse.


FREDSCOPE
Le #5225371
Ca marche parfaitement. Un grand Merci pour votre aide plus que
précieuse.
Publicité
Poster une réponse
Anonyme