format date : uniquement la 1ere lettre

[bertgrav]

bonsoir,

je voudrais mettre dans mes céllules sélectionnées uniquement la 1ere lettre du jour et en plus en majuscule (exemple dimanche : D)

j'ai bien ceci:
Cells(Li, Col).NumberFormatLocal = 'Jjj'

qui m'affiche : dim (le fait de mettre la majuscule ou pas à J devant ne change rien)

Si je mets 1 seul j j'ai le N° du jour Considéré...

Comment faire
merci

chantal

 

[Tibo]

Salut Chantal,

A défaut de te fournir une solution VBA (je suis un pur formuliste), je te donne ce que cela pourrait donner en formule :

=MAJUSCULE(GAUCHE(TEXTE(A1;'jjj')))

Ca pourra peut-être t'inspirer pour trouver l'équivalent en VBA

Bonne soirée

@+

 

[bertgrav]

merci, mais VBA ne reconnait pas ceci en jour
il est reconnu en date entiére (exemple: 01/01/2006)
et ensuite suivant le format on aura soit
le jour : dimanche ou dim etc
ou la date 01
ou le mois 01 ou janv ou janvier etc
ou l'année

tout dépend du format demandé...

chantal

 

[bertgrav]

merci et rebonsoir

pour la case a1 par exemple j'ai écris:

Range('a1').NumberFormatLocal = UCase(Left(Format(Range('A1'), 'ddd'), 1))

ça marche pour DIMANCHE : D
LUNDI : L
VENDREDI :V
par contre mardi et mercredi j'ai 1
pour samedi 0
et pour jeudi j'ai le chiffre de la date...

comment faire

chantal

 

[bertgrav]

MERCI BEAUCOUP

ça a l'air de fonctionner

chantal