Effacer sur la bonne feuille

Bonjour à tous,

Un problème basique qui ne pose d'habitude pas de probléme, mais avec un Private Sub Worksheet_SelectionChange(ByVal Target As Range)...

Avec ce code:

    'effacement données agenda
       Sheets("Agenda").Activate
       Range(Cells(1, 3), Cells(13, drcol)).Interior.ColorIndex = 4 'ClearContents 'données

Cà devrait mettre en vert ou opérer sur la feuille Agenda, comme je voudrais, mais çà le fait sur la feuille de départ.

Pour tester le fichier, cliquez dans le tableau de l'onglet Planning pour voir.

Merci

Blonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour gmb,

Tu m'aides bien, çà fonctionne.

J'ai besoin d'être sur la page Agenda, et le

Sheets("Agenda").Activate

fonctionne bien en dehors de ta boucle with, super. , pourvu que çà dure.

Merci

Bonjour gmb, tous,

Bon çà n'a effectivement pas durer puisque çà opère sur la mauvaise feuille :

- La couleur, qui est censée être remplacée par une suppression des données sur l'agenda précédent.

    With Sheets("Agenda")
           Range(Cells(1, 2), Cells(13, drcol)).Interior.ColorIndex = 4 'donnéesClearContents
    End With

La suppression d'une ou plusieurs colonnes sur l'agenda lorsqu'il y a des doublons, qui se fait sur le planning avec:

                            With Sheets("Agenda")
                                Columns(cl).Delete Shift:=xlToLeft
                            End With

Il faut cliquer sur le 14/03 le 18/03 ou le 20/03 dans le planning pour vérifier les bugs.

Merci

Bon en cherchant, j'y suis arrivé sur la couleur/effacement, en mettant le end if de

If Not Intersect(Target, Range("B3:V" & drn3)) Is Nothing Then

avant la triple boucle pour remplir l'agenda.

Il me reste plus qu'à supprimer les colonnes doublons avec une variable, là ou çà bug.

Columns(cl).Delete Shift:=xlToLeft