Discussion :

[Chewi]

Bonjour à tous.

Je voudrais savoir s'il y a moyen de créer un format de date où une lettre de l'alphabet remplacerait la date du jour.
Par exemple pour les mois: janvier=A, février=B, etc

Deuxième question, y a t'il moyen de donner un format avec la valeur actuelle - 1. Ex: Si on est le 17, afficher 16/11/2006 ?

Je reconnais que c'est assez spécial.

Je vous remercie grandement pour l'aide que vous allez m'apporter.

Chewi

[AlainTech]

Pour la deuxième, dans la cellule cette formule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=AUJOURDHUI()-1

[Chewi]

Bonjour et déjà merci AlainTech,

Pour la première question, je voudrais qu'excel me propose automatiquement la lettre correspondant au mois en cours.

Quelque chose du genre: "Si mm=12 ; date = 05 L 06" où L équivaut à decembre par exemple.

[ouskel'n'or]

Tu vas devoir faire ta macro si tu veux avoir ça.
Mais je ne comprends pas "L". C'est en quelle langue ?

Ce que tu peux faire c'est
msgbox Ucase(left(format("2006/12/05","mmmm"),1)) pour avoir D, mais pas L

[Chewi]

Oui oui pas de problème pour une macro.
Je m'exprime mal quand je parle de proposition automatique d'excel.

L [El]. n. m. ou f. Douzième lettre et neuvième consonne de l'alphabet, servant à transcrire une consonne constrictive sonore, dentale, latérale.

Par contre, je ne comprend pas trop le fonctionnement de ta MsgBox

[dadavyvy]

En fait, il veux juste remplacer le mois :
- 01 (janvier) par A
- 02 (février) par B
- ...
- 12 (décembre) par L

Ainsi une date : 25/11/06 s'écrirait 25 K 06
Je pense que tu peux t'inspirer du code Ascii :
Ainsi : A...Z = 65-90
et a...z = 97-122
Donc si ton mois m est 11, tu as :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Chr(m + 64) = "K"

Et ta date s'écrirait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Day(Date) & " " & Chr(Month(Date) + 64) & " " & Year(Date)

[ouskel'n'or]

Tu peux aussi faire un truc comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    LaDate = "05/12/2006"
    LeMois = Array("", "B", "C", "D", "G", "H", "J", "K", "L", "N", "Q", "R", "S")
    MsgBox LeMois(Month(LaDate))

Tu dis parce que je n'ai pas compris la même chose que dadavyvy

[dadavyvy]

T'as raison ouskel'n'or, ta méthode est plus générale, car au lieu de remplacer les mois 1 à 12 par les lettres A à L, tu peux les remplacer par ce que tu veux...

[Chewi]

Re,

Que dites-vous de ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub aujourdhui()
 
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=TODAY()-2"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "=TODAY()-1"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "=TODAY()+1"
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "=TODAY()+2"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=LEFT(TEXT(RC[-1],""jj mm aa""),2)&"" ""&CHOOSE(MONTH(RC[-1]),""A"",""B"",""C"",""D"",""E"",""F"",""G"",""H"",""I"",""J"",""K"",""L"")&"" ""&RIGHT(TEXT(RC[-1],""jj mm aa""),2)"
    Selection.AutoFill Destination:=Range("B2:B6"), Type:=xlFillDefault
    Range("B2:B6").Select
 
End Sub

Cette macro regroupe mes deux questions.

Bien à vous,

Chewi

[AlainTech]

Juste qu'il faudrait essayer d'éviter les Select.
De plus, inutile d'ajouter R1C1 à Formula si tu ne fais pas de références.
Petit exemple de code plus compact:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub aujourdhui()
 
    [A2].Formula = "=TODAY()-2"
    [A3].Formula = "=TODAY()-1"
    [A4].Formula = "=TODAY()"
    [A5].Formula = "=TODAY()+1"
    [A6].Formula = "=TODAY()+2"
    [B2].FormulaR1C1 = _
        "=LEFT(TEXT(RC[-1],""jj mm aa""),2)&"" ""&CHOOSE(MONTH(RC[-1]),""A"",""B"",""C"",""D"",""E"",""F"",""G"",""H"",""I"",""J"",""K"",""L"")&"" ""&RIGHT(TEXT(RC[-1],""jj mm aa""),2)"
    [B2].AutoFill Destination:=Range("B2:B6"), Type:=xlFillDefault
    Range("B2:B6").Select
 
End Sub

[ouskel'n'or]

Épi j'ajoute que ta solution ne correspond pas à ta question
Mais bravo quand même