Discussion :

[DVano]

Bonjour,

Je rencontre des problèmes de format date durant l'évolution d'une macro...

Le fait de remplacer un caractère dans une cellule permet la mise au bon format. (problème connu)

Ma macro est la suivante :

Code :

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

1
2
3
4
5
6
Public Sub Rempl()
Dim feuil As Worksheet
For Each feuil In ThisWorkbook.Worksheets
    feuil.Cells.Replace What:="/", Replacement:="/"
Next feuil
End Sub

Mon problème est le suivant :

Via la macro, toutes le remplacement ne fonctionne pas pour toutes les cellules... Par contre, si je le fais manuellement, cela fonctionne...


Pourquoi cela fonctionne manuellement et pas par la macro ?!

Merci de votre aide

Bon app' :p

Ce sujet à déjà été discuté sur un autre topic...

Bonjour,


Dans ton exemple tu ne précise pas si on fait la recherche sur tout le contenu de la cellule.

Code :

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

1
2
3
4
5
6
Public Sub Rempl()
Dim feuil As Worksheet
For Each feuil In ThisWorkbook.Worksheets
    feuil.Cells.Replace What:="/", Replacement:="/", LookAt:=xlPart
Next feuil
End Sub

As-tu essayé le recorder VBA ?

J'ai également essayer avec le recorder, il veut rien savoir v_v

[aalex_38]

Re,

As-tu essayé avec le code que je t'ai donné ?

[DVano]

Lu Alex...

Je ne vois pas de quel code tu veux parler... (je suis pourtant allé voir mes ancien post v_v)

EDIT : Ah pardon, tu parle du lookAt :p

Oui, je crois avoir testé et je n'es pas eu plus de succès v_v

[aalex_38]

Tu peux joindre un fichier en exemple ?

[DVano]

Pas de problème... Mais je suis déjà actuellement sur un autre sujet

C'est aussi pour cela que je rame... j'ai trop de programme en cours de réalisation v_v

Voici un fichier test...

Vous y verez des formats correctes et non correctes... Si vous lancer la macro en cliquant sur màj, les formats ne changent pas (voir macro pour détail) mais si vous faites un ctrl + H et remplacer "/" par "/" tous les formats deviennent correctes v_v

Merci de votre aide

[aalex_38]

C'est vrai je n'ai pas trouvé de solution aujourd'hui

Code :

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

1
2
3
4
5
6
 
' => CTRL + H  manuel OK
' => F2 OK
' => Calculer maintenant : KO
ActiveSheet.EnableCalculation = True 'KO
Calculate 'KO

[DVano]

Malgré un essai avec la fonction suivante, je rencontre toujorus le même problème...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub essai1()
 
Dim i, j As Variant
 
For i = 13 To 10000
    For j = 2 To 7
 
Cells(i, j).Value = format(Cells(i, j).Value, "dd/mm/yyyy")
 
    Next j
Next i
End Sub

PS : je n'arrive pas à utiliser la fonction CDate malgrés mes recherches...
Quelqu'un peut me faire un bout de code pour son utilisation ?

[zenpbb]

Bonjour DVano,

Comment as-tu alimenté les dates dans tes cellules ?

Si elles proviennent de chaines de texte, il aurait fallu les transformer au format date AVANT de les mettre dans tes cellules. La fonction DateSerial est utile dans ce cas. Exemple de code

Code :

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

1
2
tblDate = Split(DateTexteJJMMAAAA, "/")
maCellule.Value = DateSerial(tblDate(2), tblDate(1), tblDate(0))

Si tu as la main sur l'alimentation de ta feuille, c'est ce que je te conseille de faire, comme ça, tu es sûr que VBA interprètera correctement tes dates jj/mm/aaaa, car sinon, il essaie de les prendre par défaut au format mm/dd/yyyy.

Si tu n'as plus la main sur l'alimentation de ta feuille, il faut rattraper le coup, en tenant compte du fait que lors de l'alimentation des données, les dates ont été interprétées par VBA au format mm/dd/yyyy lorsque c'était possible alors que le format était jj/mm/aaaa.
Ton fichier contient donc actuellement :
- des dates incorrectes (par exemple 02/12/2009 au lieu de 12/02/2009) car lorsque jj est inférieur ou égal à 12, il a été considéré comme le mois !
- des valeurs que VBA n'a pas considéré comme des dates (par exemple 23/01/2009) car jj est supérieur à 12 et n'est pas reconnu comme un numéro de mois correct ! (et VBA ne considérera jamais ces valeurs comme des dates tant que tu ne les auras pas validées comme des dates via Excel en faisant un remplacement de "/" par "/").

Exemple de code, basé sur ton fichier joint, qui permet de remettre les dates comme il faut (à n'utiliser qu'une fois)

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
Sub Essai2()
Dim maCellule As Range, tblDate
With ThisWorkbook.Worksheets(1).Range("B12").CurrentRegion
    For Each maCellule In .Cells
        If IsDate(maCellule.Value) Then
            tblDate = Split(maCellule.Value, "/")
            If tblDate(0) <= 12 Then
                'date mm/dd/yyyy ==> jj/mm/aaaa
                maCellule.Value = DateSerial(tblDate(2), tblDate(0), tblDate(1))
            Else
                'on force les valeurs 'jj/mm/aaaa' dont jj > 12 au format date
                maCellule.Value = DateSerial(tblDate(2), tblDate(1), tblDate(0))
            End If
        End If
    Next
End With
End Sub

En résumé, il faut éviter de laisser VBA deviner tout seul le format des données que l'on récupère à l'extérieur d'Excel, surtout quand on a affaire à des dates ou des nombres (problèmes de '.' et de ',').

[DVano]

Je parts effectivement d'un fichier texte où les dates sont au formats yyyymmdd...

Je vais essayer de mettre en application tous tes conseils

Merci

EDIT:
j'adore ce truc ^^

Code :

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

tblDate = Split(DateTexteJJMMAAAA, "/")

[DVano]

Finalement, dans ma macro, au moment où je souhaite faire ce remplacement, je créé un bogage, je fais mon remplacement manuellement et relance la macro à la ligne suivante...



C'est donc pas résolu mais aujourd'hui, cela fonctionne de la sorte...