Problème fonction recherche / remplacer sous VBA

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:

---

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...

Citation:

---

Envoyé par aalex_38

Bonjour,


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

Code:

---

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

Re,

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

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

Tu peux joindre un fichier en exemple ?

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

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

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

Code:

---

1 2 3 4 5 6

' => CTRL + H manuel OK ' => F2 OK ' => Calculer maintenant : KO ActiveSheet.EnableCalculation = True 'KO Calculate 'KO

---

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

Code:

---

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

---

:cry:

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 ?

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:

---

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:

---

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 ',').

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

Je vais essayer de mettre en application tous tes conseils 8-)

Merci

EDIT:
j'adore ce truc ^^

Code:

---

tblDate = Split(DateTexteJJMMAAAA, "/")

---

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...

:aie:

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