[XL-2007] Extraction du mois et du jour d'une date pour création d'un code numérique

[altra]

Bonjour,

J'ai un nouveau projet excel qui va nécessiter l'utilisation de macro.

Dans un premier temps, j'aimerais pouvoir créer un code numérique de manière automatique.

A partir d'une date contenue dans une cellule, je voudrais extraire le mois et le jour puis y ajouter un nombre à 4 chiffres

par exemple si la date 16/09/2011, mon code sera 0916XXXX.

Ma question est comment extraire les deux chiffres mois d'une date et les deux chiffres jour d'une date.

Merci pour votre aide.

[lelensois16]

Bonjour,

Voici le code :

Code :

1
2
3
4
Public Function RetourneDate(DateM As Date, Numéro As String) As String
'Date étant la date à convertir , Numéro le numéro à rajouter
RetourneDate = Left(DateM, 2) & Format(Month(DateM), "00") & Numéro
End Function

Bien cordialement

[bbil]

Il faut éviter d'utiliser des fonctions de manipulations de chaines ( left, right, mid..) pour extraire les éléments d'une date .. il y as des fonctions prévues pour cela ( Day, Month , Year ..)

[AlainTech]

Bonjour à tous,

Le retour demandé étant une String, Format me semble plus indiqué:

Code :

Format(Date, "mmdd")

[altra]

Bonjour à tous,

Merci pour vos propositions.

J'avais pour ma part trouvé quelque chose d'équivalent en utilisant DatePart mais il fallait que j'unisse le mois et le jour, donc Format semble plus indiqué. Merci

Comment faire si je désire garder le 0 devant le mois lorsque celui est inférieur à dix. Il y a bien mettre le format de cellule en texte, mais je pense que ce n'est pas la seule solution, ni la meilleure.

Concernant le code a 4 chiffres ajouté après la date, j'aimerais que celui ci regarde le code complet (date + 4 chiffres) dans une autre cellule est en fonction de la date (antérieure, postérieure) ajoute ou enlève 1.
Par exemple, si le code est à créer à partir de la date 16/09. Le code précédemment rentré le 16/09 aussi porte le code 09161483. Le second code à créer pour le 16/09 devra être 09161484.

Merci et bonne journée

[helas]

Bonjour,
Right permet de récupérer les caractères de droite

[Ormonth]

Bonjour,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub gogo()
Dim lngCoddde As Long
Dim lngmonAjout As Long
Dim lngMonResult As Long
 
lngCoddde = Format(Cells(4, 4), "mmdd") 'cellule où figure une date
lngmonAjout = 9999
lngMonResult = lngCoddde & lngmonAjout
 
With Cells(5, 5)
    .NumberFormat = "00000000"
    'If lngMonResult = cells(x,x).value then  lngMonResult= lngMonResult+1 etc... selon contexte **
    .Value = lngMonResult
End With
' ** pour l'ajout ou le retrait,il suffit de faire une opératon de comparaison avec ta cellule cible vu que tu es sur des nombres
 
End Sub

cordialement,

Didier