Discussion :

[Mickamax]

Bonjour à tous,

Voici mon problème: j'ai créé le formulaire suivant :



Comme j'indique ma date de début de projet et mon objectif en mois, je voulais indiquer dans une cellule ma deadline objectif avec une ligne de code comme suivant :

Code :

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

Cells(Dligne + 1, 7) = JJ & "/" & MM + Objectif & "/" & AAAA

Avec JJ ma comboBox jours, MM ma comboBox Mois, AAAA ma ComboBox Année, et objectif = ma case objectif.
Seulement, mon résultat est le suivant:



Il s'agit ici d'un problème de format puisque mes variables sont au format texte, mais je n'arrive pas à les modifier en format nombre. Je pense que la bonne piste serait d'utiliser .numberFormat mais jusqu'ici toutes mes tentatives ont été vaines.

Merci à ceux qui pourront me donner un coup de main (et aux autres également !).

Mickamax

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim JJ, MM, AAAA, Objectif
JJ = 18
MM = 3
AAAA = 2019
Objectif = 24
MsgBox DateSerial(AAAA, MM + Objectif, JJ)
End Sub

[Mickamax]

Bonjour,
Merci mais si je ne me trompe pas DateSerial renvoie un format mois, jours, année.

Ici, je souhaite simplement modifier le format de mes variables en nombre

Bonne journée,
Mickamax

[Invité]

Bonjour,
Voila

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim JJ As String, MM As String, AAAA As String, Objectif As String
JJ = "18"
MM = "3"
AAAA = "2019"
Objectif = "24"
MsgBox DateSerial(CInt(AAAA), CInt(MM) + CInt(Objectif), CInt(JJ))
End Sub