Barre de formule et format d'une date

Bonjour,

Je ne comprends un phénomène particulier !

Je saisis une date dans une cellule exemple:30/10/2013

Si je personnalise le format via la console "Format de cellule" en choisissant "personnalisé" et "dd", la cellule affiche "30" et dans la barre de formule il y a "30/10/1973"

Par contre, si je provoque dynamiquement via vba le remplissage de la cellule en lui appliquant le meme type de format, la cellule affiche certes "30" mais la barre de formule indique "30" et non plus "30/10/1973" :?
Et je souhaite ce dernier cas de figure !!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'c est un numéro de colonne et d une date quelconque Public Sub RemplirDateNum(c As Integer, d As Date) For i = 1 To Day(DateSerial(Year(d), Month(d) + 1, 1) - 1) Dim dateserie As Date dateserie = DateSerial(Year(d), Month(d), i) With ActiveSheet.Cells(i + 6, c) .Value = Format(dateserie, "dd")   End With Next i End Sub

---

Pouvez vous m'aider, svp?

Oui c'est normal, dans le premier cas tu as une date dans ta cellule et tu demandes via la console "Format de cellule" un format spécifique. Ainsi ta date s'affiche dans la cellule avec le format que tu as choisi (ce n'est que l'affichage) mais la valeur de la cellule reste la date complête (que tu visualises dans la barre de formule).

Dans le deuxième cas tu modifies la valeur de ta cellule et non pas le format de la cellule.

Le format (l'affichage) et la valeur de la cellule sont deux choses différentes.

Bonjour,

Citation:

---

Par contre, si je provoque dynamiquement via vba le remplissage de la cellule en lui appliquant le meme type de format, la cellule affiche certes "30" mais la barre de formule indique "30" et non plus "30/10/1973"

---

Ça n’a rien à voir, la fonction Format renvoie un variant qui est un string comme l’indique l’aide VBA et comme on peut le constater dans la fenêtre Variables locales de l’éditeur VBE.
Donc lors de ta provocation dynamique, tu attribues à la propriété Value non pas une date, mais une chaîne de caractère qui, vu qu’elle représente un nombre à 1 ou 2 digits, n’a aucune chance d’être interprétée comme une date par Excel ! Le 30 obtenu n'est donc pas un format de date, mais un bête nombre tout simple.
Ceci t’es invisible car tu n’attribues pas la valeur écrite à une variable déclarée, mais tu l’injectes directement dans la cellule, ce qui est sans souci, mais ne te permet pas d’analyser le phénomène.

Si on joue à l’apprenti sorcier pour voir ce qui se passe, ça devient plus complexe car on est dans les jeux subtils du fonctionnement particulier d’Excel.

Si tu testes le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub JouerAvecLeFeu() Dim Mavar As Variant Dim Mavar2 As Date   Mavar = Format("30/05/2013", "dd") Mavar2 = Format("30/05/2013", "dd")   ActiveSheet.Cells(2, 2).Value = Mavar ActiveSheet.Cells(3, 2).Value = Mavar 'Cellule en format standard / Feuille ActiveSheet.Cells(4, 2).Value = Mavar 'Cellule en format date / Feuille End Sub

---

Tu obtiens en pas à pas dans la fenêtre variable locale :
Pièce jointe 119804


Et en feuille tu auras :

Pièce jointe 119806

Donc en forçant MaVar en date par déclaration, tu as en VBA le 29 janvier 1900 et un 30 dans la cellule B3 ou un 30/01/1900 en B4.

Explications :

En forçant MaVAr2 en Date en VBA, le VBA transforme le String « 30 » en date, donc pour lui, il interprète le N° de série 30 soit le 30ème jour à partir du point de départ de son calendrier qui est le 31 dec 1899, soit le 29 janvier 1900, ce qu’on obtient dans la fenêtre variables locales.
Si on injecte le string obtenu (30 donc) dans une cellule en format standard, il l’interprète comme un nombre et inscrit 30.
Si par contre, on injecte le string obtenu (30 donc) dans une cellule en format Date, il convertit le nombre apparent en date, donc le 30ème jour à partir du point de départ de son calendrier qui est le 1er janvier 1900 dans Excel Feuille, soir le 30 janvier 1900. Eh oui, les origines des calendriers VBA et Feuilles ne sont pas les même, voir le tuto :

Comprendre et gérer les datessous Excel et en VBA
Comme quoi rien n’est anodin…

Sinon mettre une déclaration de variable dans une boucle ce n’est pas trop indiqué…

cordialement,

Didier