Discussion :

[lasmarco]

Bonjour,

Je suis à la recherche d'un bout de code VBA pour Excel qui me permettrai d'insérer une date au format 21/12/2017 et qu'il ne m'affiche que "décembre-17".

Un exemple au passage:


Merci pour votre aide,

[Marc-L]

Bonjour,

en activant l'Enregistreur de macro puis en opérant manuellement une base de code est livrée sur un plateau ‼
Voir les règles de ce forum aussi …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[lasmarco]

Bonjour,

Merci mais je connais déjà l'enregistreur de macro, et si je viens sur ce forum ce n'est pas spécialement pour ce genre de réponse.

J'ai déjà essayé cela mais cela ne me donne pas le résultat attendu:
Cellule = DateValue(Date, "mmmm-yy"))

[romainorleans]

Bonjour,

Je ne suis pas sur que ce ton pousse les gens à t'aider.
En tout cas, si je fais l'enregistreur de macro de mon côté et que je l'adapte biensur, cela me donne ça

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
Dim r As Date
r = Range("D4")
Range("D4").NumberFormat = "[$-40C]mmmm-yy;@"
End Sub

A adapter bien sur car je ne sais pas ce à quoi ca peut te servir. Dans mon exemple c'est un bouton click qui demande de convertir la case D4 dans ce format.
Après faire du vba pour ça...je pense que tu dois avoir un peu plus de choses à faire dans ton code.

Bonne soirée,

[lasmarco]

Désolé si tu l'as mal pris, ce n'étais pas du tout voulu.

En gros, je travaille sur 2 onglets sur laquelle la date est importé d'un onglet à l'autre avec des formats de date différents

Sheets("Onglet2").Cells(j, 1) = DateValue(Sheets("Onglet1").Cells(i, 1), "mmmm-yy"))

Du coup, je ne vois pas trop à quoi sert la variable r pour mon problème

Merci pour ton aide,

[romainorleans]

Ca permet de déclarer les variables, mais je ne sais pas ce que tu fais de ton fichier, ni à quoi correspondent tes i et j.

En reprenant ton exemple, et je suis sur que ce n'est pas la meilleure façon, un expert te donnera certainement mieux, ca donne ca:

Code :

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

1
2
3
 
Sheets("onglet2").Cells(1, 1) = Sheets("onglet1").Cells(1, 1)
Sheets("onglet2").Cells(1, 1).NumberFormat = "[$-40C]mmmm-yy;@"

Encore une fois il y a certainement mieux, c'est juste pour te montrer qu'en cherchant bien on peut quand même trouver des réponses, car là c'est assez simple ton truc.

Bref bonne soirée, j'espère que ca t'a aidé.