J'ai un petit probl=E8me avec des dates, je re=E7ois un=20
fichier extrait d'une base de donn=E9es, avec une colonne=20
date, le probl=E8me est qu'il y a un espace derri=E8re chaque=20
date, j'ai donc mis en place ce code pour supprimer les=20
espaces :
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
michdenis
Bonjour s306,
Si toutes ta colonne H:H a le même problème avec des dates qui se présentent dans un format identique, tu peux utiliser ceci :
'------------------ With Columns("H:H") .TextToColumns Destination:=Range("H1"), _ DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 9), _ Array(1, 4)), TrailingMinusNumbers:=True End With '------------------
Salutations!
"s306" a écrit dans le message de news:99c101c49739$f20dfeb0$ Bonjour à tous,
J'ai un petit problème avec des dates, je reçois un fichier extrait d'une base de données, avec une colonne date, le problème est qu'il y a un espace derrière chaque date, j'ai donc mis en place ce code pour supprimer les espaces :
ce code a été obtenu en créant une nouvelle macro !!
Cependant mes dates 02/01/2004 deviennent 01/02/2004, j'aimerais savoir s'il y a une solution à ce problème...
D'avance merci...
Bonjour s306,
Si toutes ta colonne H:H a le même problème avec des dates qui se présentent dans un format identique, tu peux utiliser
ceci :
'------------------
With Columns("H:H")
.TextToColumns Destination:=Range("H1"), _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), _
Array(1, 4)), TrailingMinusNumbers:=True
End With
'------------------
Salutations!
"s306" <anonymous@discussions.microsoft.com> a écrit dans le message de news:99c101c49739$f20dfeb0$a301280a@phx.gbl...
Bonjour à tous,
J'ai un petit problème avec des dates, je reçois un
fichier extrait d'une base de données, avec une colonne
date, le problème est qu'il y a un espace derrière chaque
date, j'ai donc mis en place ce code pour supprimer les
espaces :
Si toutes ta colonne H:H a le même problème avec des dates qui se présentent dans un format identique, tu peux utiliser ceci :
'------------------ With Columns("H:H") .TextToColumns Destination:=Range("H1"), _ DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 9), _ Array(1, 4)), TrailingMinusNumbers:=True End With '------------------
Salutations!
"s306" a écrit dans le message de news:99c101c49739$f20dfeb0$ Bonjour à tous,
J'ai un petit problème avec des dates, je reçois un fichier extrait d'une base de données, avec une colonne date, le problème est qu'il y a un espace derrière chaque date, j'ai donc mis en place ce code pour supprimer les espaces :
ce code a été obtenu en créant une nouvelle macro !!
Cependant mes dates 02/01/2004 deviennent 01/02/2004, j'aimerais savoir s'il y a une solution à ce problème...
D'avance merci...
Xav
Bonjour s306
regarde plus (v)bas le post de antakini
-- Cordialement
@+ Xav "s306" a écrit dans le message de news:99c101c49739$f20dfeb0$ Bonjour à tous,
J'ai un petit problème avec des dates, je reçois un fichier extrait d'une base de données, avec une colonne date, le problème est qu'il y a un espace derrière chaque date, j'ai donc mis en place ce code pour supprimer les espaces :
ce code a été obtenu en créant une nouvelle macro !!
Cependant mes dates 02/01/2004 deviennent 01/02/2004, j'aimerais savoir s'il y a une solution à ce problème...
D'avance merci...
Bonjour s306
regarde plus (v)bas le post de antakini
--
Cordialement
@+
Xav
"s306" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:99c101c49739$f20dfeb0$a301280a@phx.gbl...
Bonjour à tous,
J'ai un petit problème avec des dates, je reçois un
fichier extrait d'une base de données, avec une colonne
date, le problème est qu'il y a un espace derrière chaque
date, j'ai donc mis en place ce code pour supprimer les
espaces :
@+ Xav "s306" a écrit dans le message de news:99c101c49739$f20dfeb0$ Bonjour à tous,
J'ai un petit problème avec des dates, je reçois un fichier extrait d'une base de données, avec une colonne date, le problème est qu'il y a un espace derrière chaque date, j'ai donc mis en place ce code pour supprimer les espaces :
ce code a été obtenu en créant une nouvelle macro !!
Cependant mes dates 02/01/2004 deviennent 01/02/2004, j'aimerais savoir s'il y a une solution à ce problème...
D'avance merci...
docm
Bonjour s306.
La méthode classique:
colonne = Range("h1").Column r = [h65536].End(xlUp).Row
For i = 1 To r If Trim(Cells(i, colonne).Value) <> Cells(i, colonne).Value Then Cells(i, colonne).Value = Trim(Cells(i, colonne).Value) End If Next
"s306" wrote in message news:99c101c49739$f20dfeb0$ Bonjour à tous,
J'ai un petit problème avec des dates, je reçois un fichier extrait d'une base de données, avec une colonne date, le problème est qu'il y a un espace derrière chaque date, j'ai donc mis en place ce code pour supprimer les espaces :
ce code a été obtenu en créant une nouvelle macro !!
Cependant mes dates 02/01/2004 deviennent 01/02/2004, j'aimerais savoir s'il y a une solution à ce problème...
D'avance merci...
Bonjour s306.
La méthode classique:
colonne = Range("h1").Column
r = [h65536].End(xlUp).Row
For i = 1 To r
If Trim(Cells(i, colonne).Value) <> Cells(i, colonne).Value Then
Cells(i, colonne).Value = Trim(Cells(i, colonne).Value)
End If
Next
"s306" <anonymous@discussions.microsoft.com> wrote in message
news:99c101c49739$f20dfeb0$a301280a@phx.gbl...
Bonjour à tous,
J'ai un petit problème avec des dates, je reçois un
fichier extrait d'une base de données, avec une colonne
date, le problème est qu'il y a un espace derrière chaque
date, j'ai donc mis en place ce code pour supprimer les
espaces :
colonne = Range("h1").Column r = [h65536].End(xlUp).Row
For i = 1 To r If Trim(Cells(i, colonne).Value) <> Cells(i, colonne).Value Then Cells(i, colonne).Value = Trim(Cells(i, colonne).Value) End If Next
"s306" wrote in message news:99c101c49739$f20dfeb0$ Bonjour à tous,
J'ai un petit problème avec des dates, je reçois un fichier extrait d'une base de données, avec une colonne date, le problème est qu'il y a un espace derrière chaque date, j'ai donc mis en place ce code pour supprimer les espaces :
