Problème effacement cellules?

[atlonia]

Bonsoir à tout le monde,

J'ai dans mon classeur des boutons qui affectent un motif d'absence à des cellules que je choisi.

Au changement de semaine, cellule (A5), le tableau se remet à zéro, sauf que la couleur des cellules de motif d'absence ne se réinitialise pas...!

Avez-vous une idée?

Ci-joint mon classeur:

 

[Spitnolan08]

Re : Problème effacement cellules?

Bonsoir,

Une petite explication complémentaire serait bienvenue...
avec un exemple concret avant-après

Cordialement

 

[atlonia]

Re : Problème effacement cellules?

Bonsoir Spitnolan08,

Pardon d'avoir tardé à te répondre, mais ce Weekend je n'était pas là!

Comme tu le verras sur les fichiers joints "Avant et Après", lorsque je change de semaine par la cellule A5, pour remettre ma feuille à Zéro, "RH" a bien disparu, mais pas la couleur correspondante.

Ce que je souhaite, c'est bien entendu que la cellule reprenne sa couleur d'origine...!

Merci de ton aide!

 

[Spitnolan08]

Re : Problème effacement cellules?

Re,

Avant d'entrer dans le détail de ton code, fonctionne t il ? Parcque chez moi celui ci

Call Module1.MajHeures

ne donne rien (et ça me semble normal...)

Cordialement

 

[Spitnolan08]

Re : Problème effacement cellules?

Re,

quelle que soit ta réponse à la question précédente, il suffit d'ajouter et compléter les lignes suivantes dans Private Sub Worksheet_Change(ByVal Target As Range):

Range("B7:O42").ClearContents
Range("B11:O20").Interior.Color = Range("A12").Interior.Color
Range("B21:O26").Interior.Color = Range("B21").Interior.Color

Cordialement

 

[atlonia]

Re : Problème effacement cellules?

Mille excuses Spitnolan08,

Effectivement j'ai oublié de renommer le module "MajHeures" en "Module1" dans le fichier "Avant".

Merci de rectifier.

 

[atlonia]

Re : Problème effacement cellules?

Re,

quelle que soit ta réponse à la question précédente, il suffit d'ajouter et compléter les lignes suivantes dans Private Sub Worksheet_Change(ByVal Target As Range):

Range("B7:O42").ClearContents
Range("B11:O20").Interior.Color = Range("A12").Interior.Color
Range("B21:O26").Interior.Color = Range("B21").Interior.Color

Cordialement

Merci de ta réponse,

mais ça ne fonctionne pas!

Si j'ai bien compris, je dois inclure les deux dernières lignes de ton code à la suite de

Range("B7:O42").ClearContents

qui existe déjà dans mon module,n'est-ce pas ?

 

[Spitnolan08]

Re : Problème effacement cellules?

Re,

Oui c'est ça et ça fonctionne...😕
Qu'est ce qui ne fonctionne pas chez toi ?

Cordialement

 

[atlonia]

Re : Problème effacement cellules?

Alors je ne comprends plus,

Après un nouvel essais, sur le fichier "Avant" ça fonctionne parfaitement, et pas sur le fichier "Après"...😕

As-tu une explication?

En tout cas merci beaucoup de ton aide.

OUPS!!!

Quel benêt je fais, j'avais encore pas modifier mon appel de procédure dans le fichier "Après"...!

 

[Spitnolan08]

Re : Problème effacement cellules?

Re,

Non je n'en ai pas sauf si tu as désactivé les macros sur ton second fichier... ou que tu ne changes pas le n° en A5 ou encore que le code est bloqué sur une ligne en débogage....

Cordialement

 

[atlonia]

Re : Problème effacement cellules?

Merci infiniment Spitnolan08,

Maintenat ça fonctionne parfaitement!

A+🙂