problème avec replace

Le
speedyk62
Bonjour,

J'ai un soucis avec ma procédure. J'ai des dates du type jj.mm.aaaa et je remplace les . par des / Problème par exemple j'ai 09.11.2008 j'obtiens 11/09/2008 mais autre exemple j'ai 25.09.2008 j'obtiens 25/09/2008

Merci de votre aide !! ;-)

Sub convertir()
Sheets("iw39_traite").Select
Dim nblignes, j As Long
nblignes = Range("A65536").End(xlUp).Row
For j = 2 To nblignes
Range("C" & j).Replace ".", "/"
Range("D" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Next j

End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Christian Hubert-Hugoud
Le #17818951
Tente une conversion en String de ta source, peut-être...

Christian

"speedyk62"
Bonjour,

J'ai un soucis avec ma procédure. J'ai des dates du type jj.mm.aaaa et je
remplace les . par des / Problème par exemple j'ai 09.11.2008 j'obtiens
11/09/2008 mais autre exemple j'ai 25.09.2008 j'obtiens 25/09/2008

Merci de votre aide !! ;-)

Sub convertir()
Sheets("iw39_traite").Select
Dim nblignes, j As Long
nblignes = Range("A65536").End(xlUp).Row
For j = 2 To nblignes
Range("C" & j).Replace ".", "/"
Range("D" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Next j

End Sub


Patrice Henrio
Le #17819251
speedyk62 a écrit :
Bonjour,

J'ai un soucis avec ma procédure. J'ai des dates du type jj.mm.aaaa et je
remplace les . par des / Problème par exemple j'ai 09.11.2008 j'obtiens
11/09/2008 mais autre exemple j'ai 25.09.2008 j'obtiens 25/09/2008

Merci de votre aide !! ;-)

Sub convertir()
Sheets("iw39_traite").Select
Dim nblignes, j As Long
nblignes = Range("A65536").End(xlUp).Row
For j = 2 To nblignes
Range("C" & j).Replace ".", "/"
Range("D" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Next j

End Sub


visiblement il s'agit de VBA.
La méthode replace n'existe pas pour l'objet range (en tout cas sûrement
pas pour ce que tu veux faire)

Voici la méthode
Range("C"&j)=replace(Range("C"&j, ".","/")

la même chose pour les deux suivants

un appui sur F1 lorsque le curseur de la souris est sur replace t'aurait
permis de trouver la solution.
Patrice Henrio
Le #17819651
speedyk62 a écrit :
Bonjour,

J'ai un soucis avec ma procédure. J'ai des dates du type jj.mm.aaaa et je
remplace les . par des / Problème par exemple j'ai 09.11.2008 j'obtiens
11/09/2008 mais autre exemple j'ai 25.09.2008 j'obtiens 25/09/2008

Merci de votre aide !! ;-)

Sub convertir()
Sheets("iw39_traite").Select
Dim nblignes, j As Long
nblignes = Range("A65536").End(xlUp).Row
For j = 2 To nblignes
Range("C" & j).Replace ".", "/"
Range("D" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Next j

End Sub


J'ai dit une sottise tout à l'heure, même si le principe fonctionne

voici la sub

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 12/11/2008 par Origin
'

'
Columns("C:C").Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse
End Sub

faire la même chose pour les autres colonnes.

On obtient ce résultat en enregistrant une nouvelle macro
speedyk62
Le #17819701
speedyk62 a écrit le 12/11/2008 à 10h52 :
Bonjour,

J'ai un soucis avec ma procédure. J'ai des dates du type jj.mm.aaaa et
je remplace les . par des / Problème par exemple j'ai 09.11.2008
j'obtiens 11/09/2008 mais autre exemple j'ai 25.09.2008 j'obtiens 25/09/2008

Merci de votre aide !! ;-)

Sub convertir()
Sheets("iw39_traite").Select
Dim nblignes, j As Long
nblignes = Range("A65536").End(xlUp).Row
For j = 2 To nblignes
Range("C" & j).Replace ".", "/"
Range("D" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Next j

End Sub


merci à tous !

le cstr est la solution !
Patrice Henrio
Le #17820501
speedyk62 a écrit :
speedyk62 a écrit le 12/11/2008 à 10h52 :
Bonjour,

J'ai un soucis avec ma procédure. J'ai des dates du type jj.mm.aaaa et
je remplace les . par des / Problème par exemple j'ai 09.11.2008
j'obtiens 11/09/2008 mais autre exemple j'ai 25.09.2008 j'obtiens 25/09/2008

Merci de votre aide !! ;-)

Sub convertir()
Sheets("iw39_traite").Select
Dim nblignes, j As Long
nblignes = Range("A65536").End(xlUp).Row
For j = 2 To nblignes
Range("C" & j).Replace ".", "/"
Range("D" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Range("E" & j).Replace ".", "/"
Next j

End Sub


merci à tous !

le cstr est la solution !



la solution

Columns("C:C").Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse

n'est-elle pas plus simple et plus rapide ?
Publicité
Poster une réponse
Anonyme