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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christian Hubert-Hugoud
Tente une conversion en String de ta source, peut-être...
Christian
"speedyk62" a écrit dans le message de news:
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
Tente une conversion en String de ta source, peut-être...
Christian
"speedyk62" <speedyk62@domain-xyz.in> a écrit dans le message de news:
rOednbXyH5TROofU4p2dnAA@giganews.com...
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
Tente une conversion en String de ta source, peut-être...
Christian
"speedyk62" a écrit dans le message de news:
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
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.
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.
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
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 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
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
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 !
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
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
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
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
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