XL 2013 texte suivant date saisi dans une autre feuille

Big66677

XLDnaute Occasionnel
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
 

Pièces jointes

  • Calendrier CGT.xlsm
    472.1 KB · Affichages: 16

job75

XLDnaute Barbatruc
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" :
VB:
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

XLDnaute Occasionnel
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
 

Pièces jointes

  • Calendrier CGT.xlsm
    480.3 KB · Affichages: 3
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 897
Membres
101 833
dernier inscrit
sandra25