Discussion :

[VBBBA]

Bonjour à vous tous

Je reviens vers ce forum car j'ai un soucis sur une macro

Cette macro me sert à tronsvaser des lignes d'un classeur à un autre.( Pas toute la ligne: certaines valeurs).

Dans le fichier source une des cellules qui est une date est au format standard.

J'utilise une ligne pour convertir la colonne date en format date

Code :

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

1
2
3
4
5
6
 
Columns("J:J").Select
    Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True

Ensuite je copie cette cellule vers le deuxieme classeur comme suit

Code :

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

1
2
3
 
 
Range("R" & j).Value = Format(Workbooks(GaG_FIC).Worksheets(1).Cells(i, 10).Value, "dd/mm/yyyy")

Et c'est là que certaines dates passe en format americain.

02/082007 passe en 08/02/2007 par exemple.


Toute aide sera la bien venue

Merci d'avance

[zazaraignée]

Code :

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

Workbooks(GaG_FIC).Worksheets(1).Cells(i, 10).NumberFormat = "dd\/mm\/yyyy"

Les 'backslash' permettent d'obliger l'affichage des 'slash' si tu as un '-' de défini comme séparateur de date dans les paramètres régionaux.

[VBBBA]

ca marche pas.

[zazaraignée]

Alors, comme ça ?

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
Sub FormaterDate()
    ' La cellule A1 qui a servi a faire le test a été renseignée
    ' en tappant le raccourcis clavier Ctrl + ;
    ' Une copie de A1 existe en format texte (NumberFormat)
    ' dans la cellule A2.
 
    Dim laDate As Variant
    Dim cellule As Range
 
    For Each cellule In Range("A1:A2")
        If IsDate(cellule.Value) Then
            ' pas de problème
          Else
            ' il faut faire une conversion
            ' car la cellule est probablement en format de texte
            If cellule.NumberFormat = "@" Then
                ' en effet, c'est bien du texte
                laDate = cellule.Value
                cellule.NumberFormat = "General"
                cellule.Value = laDate
            End If
        End If
        cellule.NumberFormat = "dd\/mm\/yyyy"
    Next
End Sub

[VBBBA]

Le plus bizarre dans tout ça c'est que toutes ces solutions marchents pour toutes les dates sauf pour une 02/08/2007 ( 2 Aout 2007) qui passe à 08/02/207
A suivre donc...

[zazaraignée]

Elles viennent d'où ces dates ?

Quand on tape une date à la main dans Excel, il faut la taper dans le bon ordre. Pour connaître l'ordre (année mois jour, par exemple) à utiliser sans avoir à toujours consulter les paramètres d'Excel ou encore les paramètres régionaux du système, tu tapes Ctrl + ; (controle plus point-virgule) dans une cellule vide.