comment appeler la Sub CommentCal pour la mise à jour des semaines en commentaires

[lolo42]

salut les exelnautes

j' ai un souci avec la Sub CommentCal pour faire la mise à jour des numéros de semaine
quand je change l' année en B1;
il parait qu' il faut appeler la Sub CommentCal mais je ne dois pas le faire ou pas correctement car ça ne fonctionne pas !!!

Merci de votre aide

 

[Dranreb]

Re : comment appeler la Sub CommentCal pour la mise à jour des semaines en commentai

Bonjour.
L'appel est correct dans la Workseet_Change mais je n'ai pas vu de plage nommée "Mois" de sorte que votre instruction
If Target = Range("An") Or Target = Range("Mois") Then
ne peut pas comparer sa valeur avec celle qui viend d'être attribuée à la cellule qui a changée quelle qu'elle soit.
Remarque: Évitez d'utiliser qualificateurs et propriétés assumées par défaut: ça ne clarifie jamais rien. Écrivez plutôt:
If Target.Value = Me.Range("An").Value Or Target.Value = Me.Range("Mois").Value Then
À+

P.S. Surtout qu'en plus ce n'était peut être même pas les propriétés Value que vous vouliez comparer. N'était-ce pas plutôt les Address ?

 

[lolo42]

Re : comment appeler la Sub CommentCal pour la mise à jour des semaines en commentai

Bonjour Dranred,

d' abord merci de te votre réponse car je débute dans exel;
c' est certainement pour cela que je n' ai pas tous compris dans votre réponse!
Pour info, on peut changer les mois en C1
si vous pouvez me donner plus d' explication, cela me serai utile

Encore MERCI

 

[exene]

Re : comment appeler la Sub CommentCal pour la mise à jour des semaines en commentai

Bonjour,

Il faut définir un nom en C1, Insertion/Nom/Définir, nommer la plage Nom dans le classeur = Mois puis fait référence à = C1

@+

Cela fonctionne chez mois quand on change l'année

 

[Dranreb]

Re : comment appeler la Sub CommentCal pour la mise à jour des semaines en commentai

En haut à gauche de la barre de formule on voit bien qu'il existe un nom "an" correspondant à la cellule B1. Mais il n'y a pas de nom "Mois". C'est du reste le nom d'une fonction Excel. Je vous le déconseille.
Qu'est ce que vous n'avez pas compris ?

 

[lolo42]

Re : comment appeler la Sub CommentCal pour la mise à jour des semaines en commentai

Bonjour exene,

Je viens de renommer la cellule en C1 est bien nommé "Mois" et ça ne fonctionne toujours pas!

 

[lolo42]

Re : comment appeler la Sub CommentCal pour la mise à jour des semaines en commentai

Ok je viens de renomer C1 en "Mois",

est ce que je doit écrire: If Target.Value = Me.Range("An").Value Or Target.Value = Me.Range("Mois").Value Then
ou If Target.Value = Me.Range("B1").Value Or Target.Value = Me.Range("C1").Value Then

 

[exene]

Re : comment appeler la Sub CommentCal pour la mise à jour des semaines en commentai

Re,

Ton fichier en retour. Tu change l'année et le commentaire se positionne bien sur le lundi
(enfin il me semble).

@+

Je n'ai pas touché au code (trop complexe pour moi)

 

[lolo42]

Re : comment appeler la Sub CommentCal pour la mise à jour des semaines en commentai

Merci exene et Dranred,

je vois que ça fonctionne correctement;

je vais comparer nom fichier avec le votre pour voir ou j' ai fait une erreur (certainement dans les VBA que je maitrise pas)

Merci a tous Cordialement

 

[Dranreb]

Re : comment appeler la Sub CommentCal pour la mise à jour des semaines en commentai

Très probablement en fait:

If Target.Address = Me.Range("An").Address Or Target.Address = Me.Range("Mois").Address Then

On encore:

If Target.Address = Me.[An].Address Or Target.Address = Me.[Mois].Address Then

ou encore

If Not Intersect(Me.[An:Mois], Target) Is Nothing Then

À+