Problème effacement cellules?

Spitnolan08

XLDnaute Barbatruc

• 12 Avril 2008

• #2

Re : Problème effacement cellules?

Bonsoir,

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

Cordialement

 

Vote positif 0 Vote négatif

atlonia

XLDnaute Occasionnel

• 13 Avril 2008

• #3

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!

 

Pièces jointes

• Gestion d'horaires.zip

  48.3 KB · Affichages: 21

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 13 Avril 2008

• #4

Re : Problème effacement cellules?

Re,

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

Code:

Call Module1.MajHeures

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

Cordialement

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 13 Avril 2008

• #5

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):

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

atlonia

XLDnaute Occasionnel

• 13 Avril 2008

• #6

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.

 

Vote positif 0 Vote négatif

atlonia

XLDnaute Occasionnel

• 14 Avril 2008

• #7

Re : Problème effacement cellules?

Spitnolan08 à dit:

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):

Code:

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

Cordialement

Cliquez pour agrandir...

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

Code:

Range("B7:O42").ClearContents

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 14 Avril 2008

• #8

Re : Problème effacement cellules?

Re,

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

Cordialement

 

Vote positif 0 Vote négatif

atlonia

XLDnaute Occasionnel

• 14 Avril 2008

• #9

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"...!

 

Dernière édition: 14 Avril 2008

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 14 Avril 2008

• #10

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

 

Vote positif 0 Vote négatif

atlonia

XLDnaute Occasionnel

• 14 Avril 2008

• #11

Re : Problème effacement cellules?

Merci infiniment Spitnolan08,

Maintenat ça fonctionne parfaitement!

A+

 

Vote positif 0 Vote négatif