XL 2010 gérer le passage des adhérents.

[yveslam]

Je recherche la fonction suivante:
un adhérents (B5) passe la première semaine à 14h(C5),la deuxième semaine à 14h30(C5), la troisième semaine à 15h(C5), la quatrième semaine à 14h(C5) et ainsi de suite
Le changement de l'heure doit se faire chaque fois que l'on mets un chiffre en B5
la case B5 est remise à zéro toutes les semaines

 

[yveslam]

Tout fonctionne bien mais quand je recopie les données dans le fichier de base dans VBA j'ai l'erreur suivante.
Regarde la pièce jointe 1089784

Bonjour
je n'arrive pas à faire fonctionner les cellules avec les deux macro.
Je mets en PJ le fichier(avec 2 onglets) que je dois utilisé en PJ.
je vous souhaite de bonne fêtes.
Yves

 

[Exl-Noob]

Salut,

Tu as ajouté une macro, mais tu leur a donné le même nom. Renomme

Private Sub Worksheet_Change(ByVal Target As Range)

En :

Private Sub Worksheet_Change2(ByVal Target As Range)

il faut le faire sur chacune de tes feuilles.
Et supprime aussi

Option Explicit

qui va te donner des messages d'erreur.