Défusionner une cellule

Version imprimable

19/06/2009, 14h06
lucas-18

Défusionner une cellule

Bonjour,

J'ai un problème avec une cellule qui contient une date et un commentaire de cette façon : 16/05/2009 - commentaire

J'aimerais importer par access ce fichier mais j'aimerais savoir s'il est possible dans le fichier XLS d'insérer une autre colonne avec un champ date et un champ commentaire.

Merci d'avance,

Un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
'
Dim MaCell As Range, Partie1 As String, Partie2 As String
Set MaCell = Range("A1")
Partie1 = Left$(MaCell, 10)
Partie2 = Mid$(MaCell, 11)
Columns("b:b").Insert Shift:=xlToRight
Columns("b:b").Insert Shift:=xlToRight
 
Range("B1") = Partie1
Range("c1") = Partie2
 
End Sub

19/06/2009, 14h22
mapeh

Bonjour,

regarde du côté de Données/Convertir, et à l'étape 2 choisir "-"...

PS, si tu n'as qu'un seul Tiret dans les commentaires, bien sûr...
Et insère une colonne à droite de ta colonne d'extraction
19/06/2009, 15h00
lucas-18

Citation:

Envoyé par mapeh

Bonjour,

regarde du côté de Données/Convertir, et à l'étape 2 choisir "-"...

PS, si tu n'as qu'un seul Tiret dans les commentaires, bien sûr...
Et insère une colonne à droite de ta colonne d'extraction

je ne trouve pas dans la barre d'outils Convert dans Data ...8O

En VBA utilise texttocolumns, un exemple avec l'enregistreur de macro :

Code:

1
2
3
4
 Range("A1").TextToColumns Destination:=Range("b1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Un exemple plus complet tel que je l'ai compris maintenant :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Macro5()
'
Dim Macell As Range
Set Macell = Range("A1")
Columns(Macell.Column + 1).Insert Shift:=xlToRight
Columns(Macell.Column + 1).Insert Shift:=xlToRight
    Macell.TextToColumns Destination:=Macell.Offset(0, 1), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub

Dans cet exemple la cellule a convertir se trouve en A1