XL 2013 texte suivant date saisi dans une autre feuille

[Big66677]

Bonjour,

Je suis toujours avec mon calendrier « ont lâche rien »

Dans ce calendrier (en pièce jointe)
On voit dans la partie calendrier, des colonnes avec les dates et des cases vides en colonne.
-----------
Dans la feuille saisie des dates il y a des colonnes au format date et un texte au début de chaque colonne.
--------------
Le but est de récupérer la valeur texte des cellules A1 B1 C1 ext…
Si, une date et saisi en dessous de celle-ci.

merci pour voter aide

 

[job75]

Bonsoir Big66677,

Le but est de récupérer la valeur texte des cellules A1 B1 C1 ext…
Si, une date et saisi en dessous de celle-ci.

Pas bien clair mais bon, mettez dans le code de la feuille "saisie des dates" :

Private Sub worksheet_Change(ByVal Target As Range)
Dim titre$
If Target.Row = 1 Or Target.Count > 1 Or Not IsDate(Target(1)) Then Exit Sub
titre = Cells(1, Target.Column)
MsgBox titre 'pour tester
End Sub

A+

 

[Big66677]

Bonsoir,


J’aurais dire sans vba, mais par formule. Sauf si c’est impossible autrement.
-------------
La feuille "saisie des dates" est organisée par colonne avec au début un texte.
"CE" "CTPsdle" " Prépa CT Psdle"ext..

la feuille calendrier et organisé par un ensemble de 3 colonnes fois 12 (mois dans l’année)
Si, une date ce produit dans l’une de ces colonnes, alors, affiché texte de la première cellule.
je joins le classeur avec explication.

merci