Bonjour,

J'ai un problème de format sur ce programme.
Je me débrouille en vba mais la manipulation des dates, j'ai beau lire des tuto et tout ce qu'il faut mais je coince.

voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Function IdentificationDate()
 
    Dim j   As Integer
    Dim jour As Integer
    Dim mois As Integer
    Dim année As Integer
    Dim date_symbole As Date
    Dim date_taper As Date
    Dim date_reel As Date
 
 
    j = 4
 
    While Sheets("Programme").Cells(j, 2) <> ""
 
        date_taper = Sheets("Programme").Cells(j, 2)
 
        If Left(Sheets("Programme").Cells(j, 11), 1) = "&" Then
            jour = Mid(Sheets("Programme").Cells(j, 11), 2, 2)
            mois = Mid(Sheets("Programme").Cells(j, 11), 4, 2)
            annee = Mid(Sheets("Programme").Cells(j, 11), 6, 2)
            date_reel = jour & mois & annee
 
        ElseIf Left(Sheets("Programme").Cells(j, 11), 1) = "%" Then
            jour = Mid(Sheets("Programme").Cells(j, 11), 2, 2)
            mois = Mid(Sheets("Programme").Cells(j, 11), 4, 2)
            annee = Mid(Sheets("Programme").Cells(j, 11), 6, 2)
            date_reel = jour & mois & annee
 
        Else
                date_reel = date_taper
        End If
 
        Sheets("Programme").Cells(j, 16) = date_reel
        j = j + 1
    Wend
 
 
 
End Function
Enfaite soit il y a un symbole dans un commentaire et je prends les 6 chiffres qui suit le symbole ce qui correspond à une date. Exemple : &061014 (pour 6 octobre 2014).

Si aucun symbole je prends la date qui est dans la deuxième colonne écrit de cette manière : 06.03.2014.

Ce que je veux c'est avoir une date uniformisée dans ma colonne 16.

Je pense qu'il n'y a rien de compliquer mais pour moi c'est un arrache cheveux looool

Merci à celui qui m'enlevera cette épine du pied... rrrrrr

Cordialement

Vincent