A voir également:
- Vba convertir date en texte
- Excel convertir date en texte - Meilleures réponses
- Convertir date en texte excel - Meilleures réponses
- Macro Excel : Convertion des dates en texte ✓ - Forum - Programmation
- EXCEL : convertir une date en texte ✓ - Forum - Excel
- Convertir une date en chaîne de caractère ✓ - Forum - VB / VBA
- Convertir date en texte vba ✓ - Forum - VB / VBA
- Excel convertir date en texte - Forum - Excel
3 réponses
oozgr
Bonjour,
Je suis "rookie" en macro, mais j'ai utilisé ton macro (Nino ) pour mon problème .
et quand j'ai fait un convertir de fichier CSV avec la code:
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 3), Array(10, 1))
je ne sais pas ou il faut l'integrer ( dans une array ?)
après convertir c'est trop tard, le format ne marche pas !
Merci d'avance,
oozgr
Je suis "rookie" en macro, mais j'ai utilisé ton macro (Nino ) pour mon problème .
et quand j'ai fait un convertir de fichier CSV avec la code:
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 3), Array(10, 1))
je ne sais pas ou il faut l'integrer ( dans une array ?)
après convertir c'est trop tard, le format ne marche pas !
Merci d'avance,
oozgr
lami20j
- Messages postés
- 21331
- Date d'inscription
- jeudi 4 novembre 2004
- Statut
- Modérateur, Contributeur sécurité
- Dernière intervention
- 30 octobre 2019
Salut,
Sub texte() Range("b1").NumberFormat = "@" Range("b1") = Format(Range("a1"), "dd/mm/yyyy") End Sublami20j
phil733
- Messages postés
- 9
- Date d'inscription
- vendredi 22 octobre 2004
- Statut
- Membre
- Dernière intervention
- 25 novembre 2006
Salut lami20j,
Merci pour ta réponse. Avec ta réponse, j'ai pu me débrouiller pour trouver la solution.
En fait voici la solution pour le faire sur une colonne, et non sur une cellule :
Dim myRange As Range
Dim myDate As Date
Columns("C:C").Select
For Each myRange In Selection
If myRange.Value = "" Then
Exit For
Else
myDate = myRange.Value
myRange.NumberFormat = "@"
myRange.Value = Format(myDate, "dd/mm/yyyy")
End If
Next
Encore merci
Merci pour ta réponse. Avec ta réponse, j'ai pu me débrouiller pour trouver la solution.
En fait voici la solution pour le faire sur une colonne, et non sur une cellule :
Dim myRange As Range
Dim myDate As Date
Columns("C:C").Select
For Each myRange In Selection
If myRange.Value = "" Then
Exit For
Else
myDate = myRange.Value
myRange.NumberFormat = "@"
myRange.Value = Format(myDate, "dd/mm/yyyy")
End If
Next
Encore merci
karinegl44
>
phil733
- Messages postés
- 9
- Date d'inscription
- vendredi 22 octobre 2004
- Statut
- Membre
- Dernière intervention
- 25 novembre 2006
Salut Phil,
J'ai bien le même problème que toi et j'ai essayé ta macro, mais il me marque une erreur d'éxecution '13', incompatibilité du type.
Votre aide est la bioenvenue,
Merci d'avance
Karine
J'ai bien le même problème que toi et j'ai essayé ta macro, mais il me marque une erreur d'éxecution '13', incompatibilité du type.
Votre aide est la bioenvenue,
Merci d'avance
Karine
Nino
Bonjour,
En fait j'avais le meme problème, sur la premiere ligne de la collonne j'avai un titre donc il ne pouvai pas faire le changement de format et voici la solution:
Dim myRange As Range
Dim myDate As Date
Range("C2:C400").Select 'Je commence ici à la 2ème ligne pour eviter la cellule C1 ou il y a du texte et pas une date
For Each myRange In Selection
If myRange.Value = "" Then
Exit For
Else
myDate = myRange.Value
myRange.NumberFormat = "@"
myRange.Value = Format(myDate, "dd/mm/yyyy")
End If
Next
ENJOY...
Nino
En fait j'avais le meme problème, sur la premiere ligne de la collonne j'avai un titre donc il ne pouvai pas faire le changement de format et voici la solution:
Dim myRange As Range
Dim myDate As Date
Range("C2:C400").Select 'Je commence ici à la 2ème ligne pour eviter la cellule C1 ou il y a du texte et pas une date
For Each myRange In Selection
If myRange.Value = "" Then
Exit For
Else
myDate = myRange.Value
myRange.NumberFormat = "@"
myRange.Value = Format(myDate, "dd/mm/yyyy")
End If
Next
ENJOY...
Nino