Date VBA Résolu/Fermé

Question

Bonjour, 


J'ai réalisé une macro à l'aide de l'assistant. 
A un moment donné, je demande à travers un inputbox de saisir une date.
J'ai même pensé à la convertir en format date et de le mettre en format français. 
Néanmoins, la valeur numérique associé à la date a "disparu" et il m'est impossible de changer le format date manuellement...
Je cherche à garder la valeur numérique et à avoir un format français. 

Dans la macro, je saisie la date dans la première cellule de mon tableau (C3) et je veux que la date soit la même sur le reste de la colonne de C3 à C10000 (ou plus). Dans les cellules C2 et C1, il y a autre chose (du texte)

Voici mon bout de macro : 
Range("C3").Select 'Remplie la colonne de la date de la saisie de commande
    ActiveCell = InputBox("Saisir la date du jour", "DATE", Date)
    ActiveCell.Value = CDate(Date)
    Range("C3").Select
    Selection.Copy
    Range("C4").Select
    ActiveSheet.Paste
    Range("C3:C4").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("C3:C10000"), Type:=xlFillDefault
    Columns("C:C").Select 'Change le format de la colonne en date
    Selection.NumberFormat = "dd/mm/yyyy"
    Columns("C:C").ColumnWidth = 10
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "When"

Configuration: Windows 7 / Internet Explorer 8.0

mcou · Answer

Merci de votre aide

Bidouilleu_R · Answer

Sub boutdecode()

Dim maDate As Date

maDate = Format(InputBox("Saisir la date du jour", "DATE", Date), "dd/mm/yyyy")
Range("C3:C4").Value = maDate
Range("c3:c4").Copy

Range("C3:c4").AutoFill Destination:=Range("C3:C10000"), Type:=xlFillDefault
Application.CutCopyMode = False

Range("C2").Value = "When"



End Sub

pour faire simple ... je pense que tu rencontres un problème de format avec les dates.... ce que tu fais me semble juste mais compliqué....
Pour t'aider :
-  en appliquant le "bout de code " que je te donne tu obtiendras des dates jj/mm/aaaa au format français.


si maintenant tu souhaites autre chose ou peut-être ai-je mal compris alors
tu m'en dis plus et je t'aiderai (si j'en suis capable)  :-)

A+

Bidouilleu_R · Answer

Ce que tu dis n'est pas possible.
en utilisant ce code tu as obligatoirement une date.
Cependant l'alignement à gauche te laisse penser que tu as du texte ( je suppose).
si tu fais click droit /format de cellule ... tu verras que date est sélectionner.
pour éviter cette gène. fais ceci.


Range("C3:C10000").ClearContents   ' on efface le contenu
Range("C3:c10000").NumberFormat = "dd/mm/yyyy" ' on met le format


Range("C3").Select 'Remplie la colonne de la date de la saisie de commande
Range("C3:C10000").Value = Format(InputBox("Saisir la date du jour", "DATE", Date), "dd/mm/yyyy")
Range("C2").Value = "When"
Range("c3").Select


A+

Date VBA

3 réponses

Discussions similaires