Formule dans "Format de cellule"

Résolu/Fermé
écureuyl Messages postés 37 Date d'inscription lundi 31 janvier 2011 Statut Membre Dernière intervention 24 septembre 2016 - 8 avril 2016 à 08:48
écureuyl Messages postés 37 Date d'inscription lundi 31 janvier 2011 Statut Membre Dernière intervention 24 septembre 2016 - 8 avril 2016 à 13:34
Bonjour,

Voici mon problème :
- J'aimerais que la cellule dans lequel je rentre "08/04/2016" affiche "S15"
Autrement dit : j'aimerais que l'utilisateur entre dans la cellule la date mais que la cellule affiche le n° de semaine associé

Contraintes (oui je suis pénible) :
- La cellule doit bien contenir une date dans le sens ou j'utilise cette date ensuite.
- Je ne peux pas ajouter de colonne
- Dans l'absolue je ne veux pas mettre de formule dans cette cellule.

Pour imager :
- En fait, il faudrait que je puisse mettre un "format de cellule" du genre NO.SEMAINE(<cellule>;2)

Est-ce possible ? Avez vous des idées ?

Merci la communauté !

A voir également:

2 réponses

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
8 avril 2016 à 10:58
Bonjour

Deux idées
http://www.cjoint.com/c/FDii6oA6xuq

Cdlmnt
0
écureuyl Messages postés 37 Date d'inscription lundi 31 janvier 2011 Statut Membre Dernière intervention 24 septembre 2016 2
8 avril 2016 à 11:19
Bonjour,

Nickel pour la deuxième idée ! Merci

Pour aller plus loin, je ne maitrise pas la mise en forme de cellule avec VBA, est-ce qu'il serait possible d'ajouter un "S" devant le numéro de semaine retourné ? (Avoir "S14" plutôt que "14") ??

Merci pour ta réactivité
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
8 avril 2016 à 12:15
Essaies ceci

' cette partie formate une date en n° de seamine en colonne F
If Not Intersect(Target, Columns(codada)) Is Nothing Then
Target.NumberFormat = Format(Target, "ww", vbMonday, vbFirstFourDays)
Target.NumberFormat = """S """ & Target.NumberFormat
End If

Cdlmnt
0
écureuyl Messages postés 37 Date d'inscription lundi 31 janvier 2011 Statut Membre Dernière intervention 24 septembre 2016 2
8 avril 2016 à 13:34
Parfait.

Encore merci
0