Replace récalcitrant !?!?

pierrejean

XLDnaute Barbatruc

• 3 Septembre 2008

• #2

Re : Replace récalcitrant !?!?

bonjour Samy Terje

Teste:

Code:

Selection = CDate(Replace(Selection, ".", "/"))

 

Vote positif 0 Vote négatif

SamyTerje

XLDnaute Nouveau

• 3 Septembre 2008

• #3

Re : Replace récalcitrant !?!?

Ta ligne ne marche pas et me renvoie "Run time error '13', Type Mismatch" ! Cela te donne un indice ?
J'ai bidouillé différente syntax mais toujours cette erreur.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Septembre 2008

• #4

Re : Replace récalcitrant !?!?

Re

Non

un petit fichier avec quelques exemples permettra d'y voir plus clair

 

Vote positif 0 Vote négatif

SamyTerje

XLDnaute Nouveau

• 3 Septembre 2008

• #5

Re : Replace récalcitrant !?!?

Voilà un fichier exemple.
-Si tu fais le remplacement avec la rechercher/remplacer dans excel, cela se passe bien
-Et si tu lances la macro Macro1, le jour et le mois s'inverse !!!

Macro écrite dans l'exemple en enregistrant en plus ma première manip manuelle ! Toujours aussi surprenant 😕

 

Pièces jointes

• replace.xls

  32 KB · Affichages: 73
• replace.xls

  32 KB · Affichages: 67
• replace.xls

  32 KB · Affichages: 68

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 3 Septembre 2008

• #6

Re : Replace récalcitrant !?!?

Bonjour, Salut pierrejean,

A essayer le code suivant :

Code:

Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)

 

Vote positif 0 Vote négatif

SamyTerje

XLDnaute Nouveau

• 3 Septembre 2008

• #7

Re : Replace récalcitrant !?!?

Merci Raja, cela marche nickel. Je ne sais pas trop pourquoi mais la solution de contournement donne satisfaction !

Merci aussi PierreJean pour la tentative.

Des fois Excel est énervant avec ces petits soucis... Heureusement que la communauté est active sur le web ;-)

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Septembre 2008

• #8

Re : Replace récalcitrant !?!?

Re

Merci a Raja de m'avoir fait connaitre le TexToColumns

Mon replace butait sur le mot debut qu'Excel ne pouvait pas traduire en date

 

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 3 Septembre 2008

• #9

Re : Replace récalcitrant !?!?

Re pierrejean,

Je profite du moment pour te resaluer. C'est vraiment un grand bonheur de te croiser sur les fils(a mon avis je ne suis pas seul à le penser). Malgré mon manque de connaissance en VBA, je tente de temps en temps une parade. Tant mieux, si ça marche.
Mais, pour en revenir à notre "TextToColumns", je ne le connaissais pas non plus. Vive l'enregistreur de macro !!!

 

Dernière édition: 3 Septembre 2008

Vote positif 0 Vote négatif