Calendrier

Bonjour à toutes et à tous,

Je fais appel à vôtres savoir, et si c'est possible à réaliser.

Le fichier joint contient trois feuilles - calendrier - imprimé - dates.

Je voudrais bien que l'or-ce que j'écris VA dans la cellule B10 -- AF21 de la feuille calendrier que la date pour la cellule B10 (01/01/2013) s'inscrive dans le tableau de la feuille, Dates, dans la colonne VA.

Au deuxième VA écris dans la cellule C11 la date (02/01/2012) s'inscrive dans la feuille, Date, dans la colonne VA juste en dessous et in-ci de suite, la même chose pour les CC,CS,AC,Form,Mal, et CT.

Encore un grand merci pour votre aides

Bonsoir

Un essai

j'avais fait çà :

  
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Date").Range("A2:H25").ClearContents
    For ligne = 10 To 21
        For colonne = 2 To 32
            ligne_date = 2
            col_date = 1
            If Cells(ligne, colonne) <> "" Then
                While Sheets("Date").Cells(1, col_date) <> Cells(ligne, colonne)
                    col_date = col_date + 1
                    If col_date > 8 Then
                        GoTo prochaine
                    End If
                Wend

                While Sheets("Date").Cells(ligne_date, col_date) <> ""
                        ligne_date = ligne_date + 1
                Wend
                Sheets("Date").Cells(ligne_date, col_date) = CDate(Cells(9, colonne) & "/" & Cells(ligne, 1) & "/2013")
            End If
prochaine:
        Next colonne
    Next ligne
End Sub

Bonjour padafret

Un tous grand merci cela marche exactement comme je le voulais, ce programme m'étonneras toujours in-ci que vos compétences.

Encore merci

Banzai64 a écrit :

Bonsoir

Un essai

Merci Banzai64

Je n'avet pas vus ton poste, ses très bien également

Merci